diff --git a/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas b/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas
index f9772b878..b79095b32 100644
--- a/components/spktoolbar/SpkToolbar/spkt_BaseItem.pas
+++ b/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 Enabled: boolean read FEnabled write SetEnabled;
+ property Visible: boolean read FVisible write SetVisible default true;
+ property Enabled: boolean read FEnabled write SetEnabled default true;
end;
TSpkBaseItemClass = class of TSpkBaseItem;
diff --git a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas
index 5ae104df1..e3dc0d802 100644
--- a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas
+++ b/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 HideFrameWhenIdle: boolean read FHideFrameWhenIdle write SetHideFrameWhenIdle;
- property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
- property ShowCaption: boolean read FShowCaption write SetShowCaption;
- property TableBehaviour: TSpkItemTableBehaviour read FTableBehaviour write SetTableBehaviour;
+ property GroupBehaviour: TSpkItemGroupBehaviour
+ read FGroupBehaviour write SetGroupBehaviour default gbSingleItem;
+ property HideFrameWhenIdle: boolean
+ read FHideFrameWhenIdle write SetHideFrameWhenIdle default false;
+ 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;
diff --git a/components/spktoolbar/SpkToolbar/spkt_Checkboxes.pas b/components/spktoolbar/SpkToolbar/spkt_Checkboxes.pas
index c7aeb8cca..363f9fbee 100644
--- a/components/spktoolbar/SpkToolbar/spkt_Checkboxes.pas
+++ b/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 TableBehaviour: TSpkItemTableBehaviour read FTableBehaviour write SetTableBehaviour;
+ property State: TCheckboxState read FState write SetState default cbUnchecked;
+ property TableBehaviour: TSpkItemTableBehaviour read FTableBehaviour write SetTableBehaviour default tbContinuesRow;
end;
TSpkCheckbox = class(TSpkCustomCheckbox)
diff --git a/components/spktoolbar/SpkToolbar/spkt_Pane.pas b/components/spktoolbar/SpkToolbar/spkt_Pane.pas
index 51bb5ee80..da80824f8 100644
--- a/components/spktoolbar/SpkToolbar/spkt_Pane.pas
+++ b/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)
diff --git a/components/spktoolbar/SpkToolbar/spkt_Tab.pas b/components/spktoolbar/SpkToolbar/spkt_Tab.pas
index 2203419bc..739f454f7 100644
--- a/components/spktoolbar/SpkToolbar/spkt_Tab.pas
+++ b/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 Visible: boolean read FVisible write SetVisible;
+ property OverrideAppearance: boolean read FOverrideAppearance write SetOverrideAppearance default false;
+ property Visible: boolean read FVisible write SetVisible default true;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
end;
diff --git a/components/spktoolbar/demos/styles/unit1.lfm b/components/spktoolbar/demos/styles/unit1.lfm
index 5cde348d7..2299c8cb4 100644
--- a/components/spktoolbar/demos/styles/unit1.lfm
+++ b/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
diff --git a/components/spktoolbar/registerspktoolbar.pas b/components/spktoolbar/registerspktoolbar.pas
index 257afe862..e56c1ad1d 100644
--- a/components/spktoolbar/registerspktoolbar.pas
+++ b/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.
+
diff --git a/components/spktoolbar/spktoolbarpackage.lpk b/components/spktoolbar/spktoolbarpackage.lpk
index 7ff877035..b46e1cf4d 100644
--- a/components/spktoolbar/spktoolbarpackage.lpk
+++ b/components/spktoolbar/spktoolbarpackage.lpk
@@ -16,7 +16,7 @@
-
+