diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 14:56:47 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 14:56:47 +0000 |
commit | 1e7af73a67cff669d2b5801f5097e71b30673adc (patch) | |
tree | 1a8a9dc39e475c9e4c429f8d7ef59c729dc44f5d /prototypes | |
parent | c05c7618ddfcf94117efaae8c83dfa2738f5d0a3 (diff) | |
download | fpGUI-1e7af73a67cff669d2b5801f5097e71b30673adc.tar.xz |
GFX: Added support for handle component creation at runtime correct
while the parent component is already visible.
* GUI: Introduced the usage of ComponentState so that the components react correctly in the
GUI Designer. Not all components are tested yet.
* GUI Designer almost paints the designed form correctly. When placing a component, they are
invisible, but as soon as you resize them, they are painted correctly. This is still work
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); |