From 3ea31bad3a90ebfdfebf72a5af28b49252bd290d Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 20 May 2008 09:14:29 +0000
Subject: [PATCH] lcl: set correct default values for TButtonPanel ShowButtons,
 ShowGlyphs

git-svn-id: trunk@15189 -
---
 lcl/buttonpanel.pas | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lcl/buttonpanel.pas b/lcl/buttonpanel.pas
index fe74c9d1c4..cfbafdec6c 100644
--- a/lcl/buttonpanel.pas
+++ b/lcl/buttonpanel.pas
@@ -13,6 +13,11 @@ type
   TPanelButton  = (pbOK, pbCancel, pbClose, pbHelp);
   TPanelButtons = set of TPanelButton;
 
+const
+  DefShowButtons = [pbOK, pbCancel, pbClose, pbHelp];
+  DefShowGlyphs = [pbOK, pbCancel, pbClose, pbHelp];
+
+type
   TPanelBitBtn = class(TCustomBitBtn)
   public
     constructor Create(AOwner: TComponent); override;
@@ -67,8 +72,8 @@ type
     property CancelButton: TPanelBitBtn Read FCancelButton stored False;
     property ButtonOrder: TButtonOrder Read FButtonOrder Write SetButtonOrder;
     property DefaultButton: TPanelButton Read FDefaultButton Write SetDefaultButton;
-    property ShowButtons: TPanelButtons Read FShowButtons Write SetShowButtons;
-    property ShowGlyphs: TPanelButtons Read FShowGlyphs Write SetShowGlyphs;
+    property ShowButtons: TPanelButtons Read FShowButtons Write SetShowButtons default DefShowButtons;
+    property ShowGlyphs: TPanelButtons Read FShowGlyphs Write SetShowGlyphs default DefShowGlyphs;
   published
   end;
 
@@ -154,7 +159,7 @@ begin
     end
     else
       FOKButton.Glyph.Assign(FOKGlyph);
-   end;
+  end;
 
   if FCancelButton<>nil then
   begin
@@ -425,8 +430,8 @@ begin
 
   FDefaultButton := pbOK;
   FButtonOrder   := boDefault;
-  FShowButtons   := [pbOK, pbCancel, pbClose, pbHelp];
-  FShowGlyphs    := [pbOK, pbCancel, pbClose, pbHelp];
+  FShowButtons   := DefShowButtons;
+  FShowGlyphs    := DefShowGlyphs;
 
   if not (csLoading in ComponentState) then
   begin