diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-11-22 21:14:45 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-11-22 21:14:45 +0000 |
| commit | 7b0fbef832bc8782f231ecb2663650b73ec98dab (patch) | |
| tree | c82382b90b4547e3f5c34259d117d0af4148f299 /prototypes/multihandle/test.lpr | |
| parent | 05d252d951f2e998ce2e7a84a531cbe9c473f8ec (diff) | |
| download | fpGUI-7b0fbef832bc8782f231ecb2663650b73ec98dab.tar.xz | |
* Implemented Canvas.GetColor
* Implemented a TLabel in the /prototypes/multihandle app.
Diffstat (limited to 'prototypes/multihandle/test.lpr')
| -rw-r--r-- | prototypes/multihandle/test.lpr | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/prototypes/multihandle/test.lpr b/prototypes/multihandle/test.lpr index 6047ef69..9239179f 100644 --- a/prototypes/multihandle/test.lpr +++ b/prototypes/multihandle/test.lpr @@ -28,6 +28,7 @@ type private btnClose: TButton; btnCancel: TButton; + lblWelcome: TLabel; public constructor Create; override; destructor Destroy; override; @@ -59,6 +60,9 @@ begin btnCancel := TButton.Create(self, Point(150, 150)); btnCancel.Caption := 'Cancel'; btnCancel.OnClick := @btnCancelClick; + + lblWelcome := TLabel.Create(self, Point(10, 10)); + lblWelcome.Caption := 'So what do you think?'; end; destructor TMainWindow.Destroy; |