spktoolbar: Define default values for properties. Register GroupBehaviour to be skipped for SpkCheckbox and SpkRadiobox (removes lfm breakage introduced by r6170).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6180 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/spktoolbar/SpkToolbar/spkt_BaseItem.pas

@@ -75,8 +75,8 @@ type
     property Rect: T2DIntRect read FRect write SetRect;
 
   published
-    property Visible: boolean read FVisible write SetVisible;
+    property Visible: boolean read FVisible write SetVisible default true;
-    property Enabled: boolean read FEnabled write SetEnabled;
+    property Enabled: boolean read FEnabled write SetEnabled default true;
   end;
 
   TSpkBaseItemClass = class of TSpkBaseItem;

components/spktoolbar/SpkToolbar/spkt_Buttons.pas

@@ -103,7 +103,7 @@ type
     procedure SetRect(const Value: T2DIntRect); override;
 
     property AllowAllUp: Boolean read FAllowAllUp write SetAllowAllUp default false;
-    property ButtonKind: TSpkButtonKind read FButtonKind write SetButtonKind;
+    property ButtonKind: TSpkButtonKind read FButtonKind write SetButtonKind default bkButton;
     property Checked: Boolean read GetChecked write SetChecked default false;
     property DropdownMenu: TPopupMenu read FDropdownMenu write SetDropdownMenu;
     property GroupIndex: Integer read FGroupIndex write SetGroupIndex default 0;
@@ -146,7 +146,8 @@ type
     function GetTableBehaviour: TSpkItemTableBehaviour; override;
     function GetWidth: integer; override;
   published
-    property LargeImageIndex: TImageIndex read FLargeImageIndex write SetLargeImageIndex default -1;
+    property LargeImageIndex: TImageIndex
+      read FLargeImageIndex write SetLargeImageIndex default -1;
     property AllowAllUp;
     property ButtonKind;
     property Checked;
@@ -181,11 +182,16 @@ type
     function GetTableBehaviour: TSpkItemTableBehaviour; override;
     function GetWidth: integer; override;
   published
-    property GroupBehaviour: TSpkItemGroupBehaviour read FGroupBehaviour write SetGroupBehaviour;
+    property GroupBehaviour: TSpkItemGroupBehaviour
-    property HideFrameWhenIdle: boolean read FHideFrameWhenIdle write SetHideFrameWhenIdle;
+      read FGroupBehaviour write SetGroupBehaviour default gbSingleItem;
-    property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
+    property HideFrameWhenIdle: boolean
-    property ShowCaption: boolean read FShowCaption write SetShowCaption;
+      read FHideFrameWhenIdle write SetHideFrameWhenIdle default false;
-    property TableBehaviour: TSpkItemTableBehaviour read FTableBehaviour write SetTableBehaviour;
+    property ImageIndex: TImageIndex
+      read FImageIndex write SetImageIndex default -1;
+    property ShowCaption: boolean
+      read FShowCaption write SetShowCaption default true;
+    property TableBehaviour: TSpkItemTableBehaviour
+      read FTableBehaviour write SetTableBehaviour default tbContinuesRow;
     property AllowAllUp;
     property ButtonKind;
     property Checked;

components/spktoolbar/SpkToolbar/spkt_Checkboxes.pas

@@ -34,8 +34,8 @@ type
     function GetWidth: integer; override;
   published
     property Checked;
-    property State: TCheckboxState read FState write SetState;
+    property State: TCheckboxState read FState write SetState default cbUnchecked;
-    property TableBehaviour: TSpkItemTableBehaviour read FTableBehaviour write SetTableBehaviour;
+    property TableBehaviour: TSpkItemTableBehaviour read FTableBehaviour write SetTableBehaviour default tbContinuesRow;
   end;
 
   TSpkCheckbox = class(TSpkCustomCheckbox)

components/spktoolbar/SpkToolbar/spkt_Pane.pas

@@ -106,7 +106,7 @@ type
 
   published
     property Caption: string read FCaption write SetCaption;
-    property Visible: boolean read FVisible write SetVisible;
+    property Visible: boolean read FVisible write SetVisible default true;
   end;
 
   TSpkPanes = class(TSpkCollection)

components/spktoolbar/SpkToolbar/spkt_Tab.pas

@@ -122,8 +122,8 @@ type
   published
     property CustomAppearance: TSpkToolbarAppearance read FCustomAppearance write SetCustomAppearance;
     property Caption: string read FCaption write SetCaption;
-    property OverrideAppearance: boolean read FOverrideAppearance write SetOverrideAppearance;
+    property OverrideAppearance: boolean read FOverrideAppearance write SetOverrideAppearance default false;
-    property Visible: boolean read FVisible write SetVisible;
+    property Visible: boolean read FVisible write SetVisible default true;
     property OnClick: TNotifyEvent read FOnClick write FOnClick;
   end;
 

components/spktoolbar/demos/styles/unit1.lfm

@@ -2255,9 +2255,6 @@ object Form1: TForm1
       0000000000000000000000000000000000000000000000000003000000090000
       0010000000150000001100000006
     }
-    BitmapAdv = {
-      4C6900000000
-    }
   end
   object SmallImages: TImageList
     left = 456
@@ -2649,8 +2646,5 @@ object Form1: TForm1
       0033000000330000003300000033000000330000003300000033000000330000
       0033000000330000003300000023
     }
-    BitmapAdv = {
-      4C6900000000
-    }
   end
 end

components/spktoolbar/registerspktoolbar.pas

@@ -59,8 +59,20 @@ begin
   //todo: register Caption Editor
 end;
 
+procedure SkipObsoleteProperties;
+const
+  GROUPBEHAVIOUR_NOTE = 'GroupBehaviour is not needed.';
+begin
+  RegisterPropertyToSkip(TSpkCheckbox, 'Groupbehaviour', GROUPBEHAVIOUR_NOTE, '');
+  RegisterPropertyToSkip(TSpkRadioButton, 'GroupBehaviour', GROUPBEHAVIOUR_NOTE, '');
+end;
+
+
 initialization
 {$I SpkToolbar.lrs}
 
+  SkipObsoleteProperties;
+
 end.
 
+

components/spktoolbar/spktoolbarpackage.lpk

@@ -16,7 +16,7 @@
     </CompilerOptions>
     <Description Value="Ribbon-like toolbar"/>
     <License Value="Modified LGPL (like Lazarus)"/>
-    <Version Minor="1" Release="5"/>
+    <Version Minor="1" Release="6"/>
     <Files Count="26">
       <Item1>
         <Filename Value="SpkToolbar\spkt_Appearance.pas"/>