From 8d934b2bf8596c217ac4596004c988692f708d31 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 12 Oct 2012 17:39:57 +0100
Subject: Correctly set the default values of TfpgBevel.Shape property

---
 src/gui/fpg_panel.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas
index 2d97ed71..bd6333ce 100644
--- a/src/gui/fpg_panel.pas
+++ b/src/gui/fpg_panel.pas
@@ -72,6 +72,8 @@ type
     procedure   DrawVerDivider; //  bsVerDivider
   protected
     procedure   HandlePaint; override;
+  public
+    constructor Create(AOwner: TComponent); override;
   published
     property    AcceptDrops;
     property    Align;
@@ -606,6 +608,12 @@ begin
   end;
 end;
 
+constructor TfpgBevel.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FPanelShape := bsBox;
+end;
+
 {TfpgPanel}
 
 function TfpgPanel.GetAlignment: TAlignment;
-- 
cgit v1.2.3-70-g09d2