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

1 files changed, 8 insertions, 0 deletions

diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index c777c496..7637deb7 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -190,6 +190,7 @@ end;
 
 constructor TfpgWidget.Create(AOwner: TComponent);
 begin
+  Include(ComponentState, csLoading);
   FOnScreen   := False;
   FVisible    := True;
   FActiveWidget := nil;
@@ -211,6 +212,13 @@ begin
     FWindowType := wtChild;
 
   inherited;
+
+  // This is for components that are create at runtime, after it's
+  // parent has already been shown.
+  if (Parent <> nil) and (Parent.HasHandle) then
+    HandleShow;
+
+  Exclude(ComponentState, csLoading);
 end;
 
 destructor TfpgWidget.Destroy;