unit _uf_about;

interface

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

type
  T_FXOC_ABOUT = class(TForm)
    eeCOPY: TLabel;
    eeVERS: TLabel;
    Shape2: TShape;
    eeTHANKS: TLabel;
    eeAUTHOR: TLabel;
    Shape1: TShape;
    Image1: TImage;
    Image2: TImage;
    www: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure wwwClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

implementation

uses _uc_refs_consts, _uc_refs_vars, _uc_GuiLanG;

{$R *.DFM}

//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure T_FXOC_ABOUT.FormCreate(Sender: TObject);
begin
//  no lang needed
eeCOPY.Caption:=_APPLICATION_COPYRIGHT;
eeVERS.Caption:='v'+_APPLICATION_VERSION_STRING;
eeTHANKS.Caption:=format(___ccc__0106__ThanksToUsingExoSee,[_VV_LOCAL_USER_NIKO]);
end;


//------------------------------------------------------------------------------
procedure T_FXOC_ABOUT.wwwClick(Sender: TObject);
begin
ShellExecute(0,'open',pchar(TLabel(Sender).Caption),nil,nil,SW_SHOWNORMAL);
end;

end.

---