From 1e7af73a67cff669d2b5801f5097e71b30673adc Mon Sep 17 00:00:00 2001 From: graemeg Date: Fri, 7 Sep 2007 14:56:47 +0000 Subject: 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 --- prototypes/fpgui2/tests/edittest.dpr | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'prototypes') 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); -- cgit v1.2.3-70-g09d2