diff --git a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas index 0b2770080..91a923c9c 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Buttons.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Buttons.pas @@ -2176,14 +2176,5 @@ begin FToolbarDispatch.NotifyMetricsChanged; end; -initialization - -RegisterClass(TSpkLargeButton); -RegisterClass(TSpkSmallButton); - -finalization - -UnRegisterClass(TSpkLargeButton); -UnRegisterClass(TSpkSmallButton); end. diff --git a/components/spktoolbar/SpkToolbar/spkt_Pane.pas b/components/spktoolbar/SpkToolbar/spkt_Pane.pas index 5379f16a6..5616e867d 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Pane.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Pane.pas @@ -1102,12 +1102,5 @@ begin FToolbarDispatch.NotifyItemsChanged; end; -initialization - -RegisterClass(TSpkPane); - -finalization - -UnregisterClass(TSpkPane); end. diff --git a/components/spktoolbar/SpkToolbar/spkt_Tab.pas b/components/spktoolbar/SpkToolbar/spkt_Tab.pas index 23683b290..d510540d6 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Tab.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Tab.pas @@ -802,12 +802,5 @@ begin FToolbarDispatch.NotifyItemsChanged; end; -initialization - -RegisterClass(TSpkTab); - -finalization - -UnRegisterClass(TSpkTab); end. diff --git a/components/spktoolbar/registerspktoolbar.pas b/components/spktoolbar/registerspktoolbar.pas index d9e28119f..58ef4d9a1 100644 --- a/components/spktoolbar/registerspktoolbar.pas +++ b/components/spktoolbar/registerspktoolbar.pas @@ -5,8 +5,8 @@ unit RegisterSpkToolbar; interface uses - Classes, SysUtils, LazarusPackageIntf, SpkToolbar, PropEdits, - ComponentEditors, SpkToolbarEditor; + Classes, SysUtils, LazarusPackageIntf, SpkToolbar, PropEdits, ComponentEditors, + SpkToolbarEditor, spkt_Buttons, spkt_Pane, spkt_Tab, spkt_Appearance; procedure Register; @@ -17,9 +17,32 @@ begin RegisterComponents('SpkToolbar', [TSpkToolbar]); end; +procedure RegisterUnitSpkt_Buttons; +begin + RegisterNoIcon([TSpkLargeButton, TSpkSmallButton]); +end; + +procedure RegisterUnitSpkt_Pane; +begin + RegisterNoIcon([TSpkPane]); +end; + +procedure RegisterUnitSpkt_Tab; +begin + RegisterNoIcon([TSpkTab]); +end; + procedure Register; begin RegisterUnit('SpkToolbar', @RegisterUnitSpkToolbar); + RegisterUnit('spkt_Buttons', @RegisterUnitSpkt_Buttons); + RegisterUnit('spkt_Pane', @RegisterUnitSpkt_Pane); + RegisterUnit('spkt_Tab', @RegisterUnitSpkt_Tab); + + RegisterComponentEditor(TSpkToolbar, TSpkToolbarEditor); + RegisterPropertyEditor(TypeInfo(TSpkToolbarAppearance), TSpkToolbar, + 'Appearance', TSpkToolbarAppearanceEditor); + //todo: register Caption Editor end; end.