* Applied a patch from Luiz Americo which fixes some alignment issues inside TfpgPanel.

* I implemented more alignment fixes for TfpgGroupBox and TfpgBevel.
* I improved the painting of the focus rectangle it TfpgCheckBox and TfpgRadioButton.
* UI Designer's Unknown widget can now act like a container component.

1 files changed, 16 insertions, 0 deletions

diff --git a/src/gui/gui_panel.pas b/src/gui/gui_panel.pas
index d25271a6..2e4280c5 100644
--- a/src/gui/gui_panel.pas
+++ b/src/gui/gui_panel.pas
@@ -38,11 +38,13 @@ type
 
   TPanelBorder = (bsSingle, bsDouble);
 
+
   TfpgAbstractPanel = class(TfpgWidget)
   private
     FPanelShape: TPanelShape;
     FPanelStyle: TPanelStyle;
     FPanelBorder: TPanelBorder;
+    function    GetClientBounds: TfpgRect; override;
     procedure   SetPanelStyle(const AValue: TPanelStyle);
     procedure   SetPanelBorder(const AValue: TPanelBorder);
   protected
@@ -128,6 +130,7 @@ type
     procedure   SetMargin(const AValue: integer);
   protected
     FFont: TfpgFont;
+    function    GetClientBounds: TfpgRect; override;
     procedure   HandlePaint; override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -205,6 +208,11 @@ end;
 
 {TfpgAbstractPanel}
 
+function TfpgAbstractPanel.GetClientBounds: TfpgRect;
+begin
+  Result.SetRect(2, 2, Width - 4, Height - 4);
+end;
+
 procedure TfpgAbstractPanel.SetPanelStyle(const AValue: TPanelStyle);
 begin
   if FPanelStyle <> AValue then
@@ -538,6 +546,14 @@ begin
   end;
 end;
 
+function TfpgGroupBox.GetClientBounds: TfpgRect;
+var
+  h: integer;
+begin
+  h := FFont.Height + 4;
+  Result.SetRect(2, h, Width - 4, Height - (h + 2));
+end;
+
 procedure TfpgGroupBox.HandlePaint;
 var
   r: TfpgRect;