diff options
Diffstat (limited to 'prototypes')
| -rw-r--r-- | prototypes/fpgui2/tests/edittest.dpr | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr index 422d9c56..35b3a4ce 100644 --- a/prototypes/fpgui2/tests/edittest.dpr +++ b/prototypes/fpgui2/tests/edittest.dpr @@ -59,6 +59,7 @@ type TMainForm = class(TfpgForm) private + FbtnRuntime: TfpgButton; procedure Trackbar1Changed(Sender: TObject; APosition: integer); procedure btnCloseClick(Sender: TObject); procedure btnDisplayBMP(Sender: TObject); @@ -317,6 +318,9 @@ begin MouseCursor := mcHourGlass else MouseCursor := mcDefault; + + if not Assigned(FbtnRuntime) then + FbtnRuntime := CreateButton(self, 100, 130, 75, 'At Runtime', nil); end; procedure TMainForm.btn3Click(Sender: TObject); |