source: cprs/branches/tmg-cprs/TMG_Extra/tntUniCode/Example/MainFrm.pas@ 1474

Last change on this file since 1474 was 672, checked in by Kevin Toppenberg, 15 years ago

Adding source to tntControls for compilation

File size: 1.6 KB
Line 
1unit MainFrm;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 TntForms, StdCtrls, CheckLst, TntStdCtrls, TntDBCtrls, TntCheckLst;
8
9type
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
37var
38 MainForm: TMainForm;
39
40implementation
41
42{$R *.DFM}
43
44procedure TMainForm.FormCreate(Sender: TObject);
45begin
46 if Win32Platform = VER_PLATFORM_WIN32_NT then
47 Font.Name := 'MS Shell Dlg 2'
48 else
49 Font.Name := 'MS Shell Dlg';
50end;
51
52procedure TMainForm.Button1Click(Sender: TObject);
53begin
54 Caption := TntEdit1.Text;
55end;
56
57procedure TMainForm.Button2Click(Sender: TObject);
58begin
59 TntComboBox1.Items.Add(TntEdit1.Text);
60end;
61
62procedure TMainForm.Button3Click(Sender: TObject);
63begin
64 TntListBox1.Items.Add(TntEdit1.Text);
65end;
66
67procedure TMainForm.Button4Click(Sender: TObject);
68begin
69 TntCheckListbox1.Items.Add(TntEdit1.Text);
70end;
71
72end.
Note: See TracBrowser for help on using the repository browser.