InraPorc

unit UFIntro;

interface

uses

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

  ExtCtrls, ComCtrls;

type

  TFIntro = class(TForm)

    PBoutons: TPanel;

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    BBClose: TBitBtn;

    REText: TRichEdit;

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

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

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FIntro: TFIntro;

implementation

uses

  SysUtils, gnugettext, UVariables;

{$R *.dfm}

procedure TFIntro.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

procedure TFIntro.FormShow(Sender: TObject);

var

  LicType, ResName: String;

  Stream: TResourceStream;

begin

  case LicenseType of

    1: LicType := 'Education';

    2: LicType := 'Complete';

  else LicType := 'Evaluation';

  end;

  if Copy(LanguageCode, 1, 2) = 'fr'

  then // Fran?ais

    ResName := UpperCase(LicType + '_fr')

  else // Anglais

    ResName := UpperCase(LicType + '_en');

  Stream := TResourceStream.Create(ResInstance, ResName, 'TEXT');

  try

    REText.Lines.LoadFromStream(Stream);

  finally

    Stream.Free;

  end;

  ActiveControl := REText;

end;

procedure TFIntro.WMSysCommand(var Message: TWMSysCommand);

begin

  if Message.CmdType = SC_MINIMIZE

  then

    Application.Minimize

  else

    inherited;

end;

end.