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 @@ - +