* Applied patch (#1930945) from Jean-Marc which introduces a new component in gui_panel.

* Added the gui_panel demo to the examples directory.
* Applied a minor painting fix to the Panel groupbox style.
* Extended the gui_panel demo to show the Raised and Lowered look.

2 files changed, 10 insertions, 12 deletions

diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index 65977f62..78a00317 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -24,6 +24,7 @@ type
   TOrientation = (orVertical, orHorizontal);
 
   TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient);
+  TLayout = (tlTop, tlCenter, tlBottom);
 
   TAnchor  = (anLeft, anRight, anTop, anBottom);
   TAnchors = set of TAnchor;
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index 74a9ff6d..cd096005 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -110,7 +110,7 @@ type
     procedure   SetFocus;
     procedure   KillFocus;
     procedure   MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord);
-    procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
+    procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord); virtual;
     procedure   Invalidate; // double check this works as developers expect????
     property    FormDesigner: TObject read FFormDesigner write FFormDesigner;
     property    Parent: TfpgWidget read GetParent write SetParent;
@@ -532,18 +532,15 @@ var
 begin
   FOnScreen := True;
   FVisible := True;
-//  writeln(Classname, ' TfpgWidget.HandleShow - FVisible = ', FVisible);
-  if FVisible then
-  begin
-    AllocateWindowHandle;
-    DoSetWindowVisible(True);
 
-    for n := 0 to ComponentCount - 1 do
-    begin
-      c := Components[n];
-      if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) then
-        TfpgWidget(c).HandleShow;
-    end;
+  AllocateWindowHandle;
+  DoSetWindowVisible(True);
+
+  for n := 0 to ComponentCount - 1 do
+  begin
+    c := Components[n];
+    if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) then
+      TfpgWidget(c).HandleShow;
   end;
 end;