InraPorc

unit UFComment;

interface

uses

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

type

  TFComment = class(TForm)

    Memo: TMemo;

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FComment: TFComment;

implementation

uses

  gnugettext;

{$R *.dfm}

{ TFComment }

procedure TFComment.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

end;

procedure TFComment.FormShow(Sender: TObject);

begin

  Memo.SelectAll;

  ActiveControl := Memo;

end;

end.