InraPorc

unit UFCommentMat;

interface

uses

  Windows, Forms, Classes, Controls, StdCtrls, Buttons;

type

  TFCommentMat = class(TForm)

    Memo: TMemo;

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    CBType: TComboBox;

    LType: TLabel;

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FCommentMat: TFCommentMat;

implementation

uses

  gnugettext;

{$R *.dfm}

{ TFCommentMat }

procedure TFCommentMat.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  CBType.ItemIndex := 0;

end;

procedure TFCommentMat.FormShow(Sender: TObject);

begin

  Memo.SelectAll;

  ActiveControl := Memo;

end;

end.