root / UFCommentAli.pas @ 5
Historique | Voir | Annoter | Télécharger (1,021 ko)
1 | 3 | avalancogn | unit UFCommentAli;
|
---|---|---|---|
2 | |||
3 | interface
|
||
4 | |||
5 | uses
|
||
6 | Windows, Forms, Classes, Controls, StdCtrls, Buttons, PBNumEdit; |
||
7 | |||
8 | type
|
||
9 | TFCommentAli = class(TForm)
|
||
10 | Memo: TMemo; |
||
11 | BBOk: TBitBtn; |
||
12 | BBCancel: TBitBtn; |
||
13 | LType: TLabel; |
||
14 | CBType: TComboBox; |
||
15 | LPrix: TLabel; |
||
16 | PBPrix: TPBNumEdit; |
||
17 | LMonnaie: TLabel; |
||
18 | LPresentation: TLabel; |
||
19 | CBPresentation: TComboBox; |
||
20 | procedure FormShow(Sender: TObject);
|
||
21 | procedure FormCreate(Sender: TObject);
|
||
22 | private
|
||
23 | { D?clarations priv?es }
|
||
24 | public
|
||
25 | { D?clarations publiques }
|
||
26 | end;
|
||
27 | |||
28 | var
|
||
29 | FCommentAli: TFCommentAli; |
||
30 | |||
31 | implementation
|
||
32 | |||
33 | uses
|
||
34 | gnugettext; |
||
35 | |||
36 | {$R *.dfm}
|
||
37 | |||
38 | { TFCommentAli }
|
||
39 | |||
40 | procedure TFCommentAli.FormCreate(Sender: TObject);
|
||
41 | begin
|
||
42 | if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1 |
||
43 | then
|
||
44 | Font.Name := 'Arial Unicode MS';
|
||
45 | TranslateComponent(Self); |
||
46 | CBType.ItemIndex := 0;
|
||
47 | CBPresentation.ItemIndex := 0;
|
||
48 | end;
|
||
49 | |||
50 | procedure TFCommentAli.FormShow(Sender: TObject);
|
||
51 | begin
|
||
52 | Memo.SelectAll; |
||
53 | ActiveControl := Memo; |
||
54 | end;
|
||
55 | |||
56 | end. |