diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-12 17:39:57 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-12 17:39:57 +0100 |
| commit | 8d934b2bf8596c217ac4596004c988692f708d31 (patch) | |
| tree | 6be9792c14a3ea822b4063dfac129d99263e759c | |
| parent | a37b44fabbfe9db5e10bad4c1a3e67c3d55ccae8 (diff) | |
| download | fpGUI-8d934b2bf8596c217ac4596004c988692f708d31.tar.xz | |
Correctly set the default values of TfpgBevel.Shape property
| -rw-r--r-- | src/gui/fpg_panel.pas | 8 |
1 files changed, 8 insertions, 0 deletions
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; |