InraPorc

unit UFCommentAli;

interface

uses

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

type

  TFCommentAli = class(TForm)

    Memo: TMemo;

    BBOk: TBitBtn;

    BBCancel: TBitBtn;

    LType: TLabel;

    CBType: TComboBox;

    LPrix: TLabel;

    PBPrix: TPBNumEdit;

    LMonnaie: TLabel;

    LPresentation: TLabel;

    CBPresentation: TComboBox;

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

  end;

var

  FCommentAli: TFCommentAli;

implementation

uses

  gnugettext;

{$R *.dfm}

{ TFCommentAli }

procedure TFCommentAli.FormCreate(Sender: TObject);

begin

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

  then

    Font.Name := 'Arial Unicode MS';

  TranslateComponent(Self);

  CBType.ItemIndex := 0;

  CBPresentation.ItemIndex := 0;

end;

procedure TFCommentAli.FormShow(Sender: TObject);

begin

  Memo.SelectAll;

  ActiveControl := Memo;

end;

end.