| 1 | unit MainFrm;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|---|
| 7 | TntForms, StdCtrls, CheckLst, TntStdCtrls, TntDBCtrls, TntCheckLst;
|
|---|
| 8 |
|
|---|
| 9 | type
|
|---|
| 10 | TMainForm = class(TTntForm)
|
|---|
| 11 | TntComboBox1: TTntComboBox;
|
|---|
| 12 | TntEdit1: TTntEdit;
|
|---|
| 13 | TntMemo1: TTntMemo;
|
|---|
| 14 | TntListBox1: TTntListBox;
|
|---|
| 15 | TntCheckListBox1: TTntCheckListBox;
|
|---|
| 16 | Label1: TTntLabel;
|
|---|
| 17 | Label2: TTntLabel;
|
|---|
| 18 | Label3: TTntLabel;
|
|---|
| 19 | Label4: TTntLabel;
|
|---|
| 20 | Label5: TTntLabel;
|
|---|
| 21 | Button1: TTntButton;
|
|---|
| 22 | Button2: TTntButton;
|
|---|
| 23 | Button3: TTntButton;
|
|---|
| 24 | Button4: TTntButton;
|
|---|
| 25 | Label6: TTntLabel;
|
|---|
| 26 | procedure FormCreate(Sender: TObject);
|
|---|
| 27 | procedure Button1Click(Sender: TObject);
|
|---|
| 28 | procedure Button2Click(Sender: TObject);
|
|---|
| 29 | procedure Button3Click(Sender: TObject);
|
|---|
| 30 | procedure Button4Click(Sender: TObject);
|
|---|
| 31 | private
|
|---|
| 32 | { Private declarations }
|
|---|
| 33 | public
|
|---|
| 34 | { Public declarations }
|
|---|
| 35 | end;
|
|---|
| 36 |
|
|---|
| 37 | var
|
|---|
| 38 | MainForm: TMainForm;
|
|---|
| 39 |
|
|---|
| 40 | implementation
|
|---|
| 41 |
|
|---|
| 42 | {$R *.DFM}
|
|---|
| 43 |
|
|---|
| 44 | procedure TMainForm.FormCreate(Sender: TObject);
|
|---|
| 45 | begin
|
|---|
| 46 | if Win32Platform = VER_PLATFORM_WIN32_NT then
|
|---|
| 47 | Font.Name := 'MS Shell Dlg 2'
|
|---|
| 48 | else
|
|---|
| 49 | Font.Name := 'MS Shell Dlg';
|
|---|
| 50 | end;
|
|---|
| 51 |
|
|---|
| 52 | procedure TMainForm.Button1Click(Sender: TObject);
|
|---|
| 53 | begin
|
|---|
| 54 | Caption := TntEdit1.Text;
|
|---|
| 55 | end;
|
|---|
| 56 |
|
|---|
| 57 | procedure TMainForm.Button2Click(Sender: TObject);
|
|---|
| 58 | begin
|
|---|
| 59 | TntComboBox1.Items.Add(TntEdit1.Text);
|
|---|
| 60 | end;
|
|---|
| 61 |
|
|---|
| 62 | procedure TMainForm.Button3Click(Sender: TObject);
|
|---|
| 63 | begin
|
|---|
| 64 | TntListBox1.Items.Add(TntEdit1.Text);
|
|---|
| 65 | end;
|
|---|
| 66 |
|
|---|
| 67 | procedure TMainForm.Button4Click(Sender: TObject);
|
|---|
| 68 | begin
|
|---|
| 69 | TntCheckListbox1.Items.Add(TntEdit1.Text);
|
|---|
| 70 | end;
|
|---|
| 71 |
|
|---|
| 72 | end.
|
|---|
