unit _uf_xoc_icons;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
  T_FXOC_ICONS_HELP = class(TForm)
    AA_0518_LvIconsHELP: TListView;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  _FXOC_ICONS_HELP: T_FXOC_ICONS_HELP;

implementation

uses Unit1, _uc_funcs;

{$R *.DFM}

//------------------------------------------------------------------------------
procedure T_FXOC_ICONS_HELP.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

//------------------------------------------------------------------------------
procedure T_FXOC_ICONS_HELP.FormShow(Sender: TObject);
begin
AA_0518_LvIconsHELP.Items[3].OverlayIndex:=0; // admin
AA_0518_LvIconsHELP.Items[4].OverlayIndex:=1;  // mod

GoSetLANG(Self); //----- go loadLang --- if ok  (1st here)
end;


end.

---