InraPorc

unit UFAbout;

interface

uses

  Windows, Messages, Forms, Classes, Controls, StdCtrls, ExtCtrls, Buttons,

  GIFImg;

type

  TFAbout = class(TForm)

    LProduct: TLabel;

    LVersion: TLabel;

    PBoutons: TPanel;

    BBOk: TBitBtn;

    MConfig: TMemo;

    ILogo: TImage;

    PTitle: TPanel;

    PContent: TPanel;

    LIDDN: TLabel;

    LURL: TLabel;

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure LURLClick(Sender: TObject);

    procedure LURLMouseEnter(Sender: TObject);

    procedure LURLMouseLeave(Sender: TObject);

    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FAbout: TFAbout;

implementation

uses

  ShellAPI, SysUtils, gnugettext, UVariables, UStrings, UUtil;

{$R *.dfm}

procedure TFAbout.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  Constraints.MinWidth := 360 + (Width - ClientWidth);

  Width := Constraints.MinWidth;

  Constraints.MinHeight := 320 + (Height - ClientHeight);

  Height := Constraints.MinHeight;

end;

procedure TFAbout.FormShow(Sender: TObject);

begin

  LVersion.Caption := VersionString;

  case LicenseType of

    2: // Compl?te

    begin

      MConfig.Lines.Add(Format(StrLicenseType, [StrComplete]));

      MConfig.Lines.Add(Format(StrLicenseNum, [LicenseNumber]));

      MConfig.Lines.Add(Format(StrFirstName, [FirstName]));

      MConfig.Lines.Add(Format(StrLastName, [LastName]));

      MConfig.Lines.Add(Format(StrCompany, [Company]));

      MConfig.Lines.Add(Format(StrEndValidity, [FinalDate]));

      if Length(SoftwareEnableKey) = 0

      then // Cl? absente

        MConfig.Lines.Add(StrNoKey)

      else

        if not IsComplete

        then // Cl? incorrecte

          MConfig.Lines.Add(StrInvalidKey);

    end ;

    1: // Education

    begin

      MConfig.Lines.Add(Format(StrLicenseType, [StrEducation]));

      MConfig.Lines.Add(Format(StrFirstName, [FirstName]));

      MConfig.Lines.Add(Format(StrLastName, [LastName]));

      MConfig.Lines.Add(Format(StrOrganization, [Company]));

      MConfig.Lines.Add(Format(StrEndValidity, [FinalDate]));

      if Length(SoftwareEnableKey) = 0

      then // Cl? absente

        MConfig.Lines.Add(StrNoKey)

      else

        if not IsEducation

        then // Cl? incorrecte

          MConfig.Lines.Add(StrInvalidKey);

    end ;

    else // Evaluation

      MConfig.Lines.Add(Format(StrLicenseType, [StrEvaluation]));

  end;

  LURL.Caption := URL_HTTPS;

end;

procedure TFAbout.LURLMouseEnter(Sender: TObject);

begin

  Screen.Cursor := crHandPoint;

end;

procedure TFAbout.LURLMouseLeave(Sender: TObject);

begin

  Screen.Cursor := crDefault;

end;

procedure TFAbout.LURLClick(Sender: TObject);

begin

  ShellExecute(Handle, 'open', PChar(URL_HTTPS), nil, nil, SW_SHOWNORMAL);

end;

procedure TFAbout.WMSysCommand(var Message: TWMSysCommand);

begin

  if Message.CmdType = SC_MINIMIZE

  then

    Application.Minimize

  else

    inherited;

end;

end.