* Improve design time editor

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1711 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-20 01:06:11 +00:00
parent 65088bd5ea
commit c0c6b89b60
4 changed files with 25 additions and 25 deletions

View File

@ -2176,14 +2176,5 @@ begin
FToolbarDispatch.NotifyMetricsChanged;
end;
initialization
RegisterClass(TSpkLargeButton);
RegisterClass(TSpkSmallButton);
finalization
UnRegisterClass(TSpkLargeButton);
UnRegisterClass(TSpkSmallButton);
end.

View File

@ -1102,12 +1102,5 @@ begin
FToolbarDispatch.NotifyItemsChanged;
end;
initialization
RegisterClass(TSpkPane);
finalization
UnregisterClass(TSpkPane);
end.

View File

@ -802,12 +802,5 @@ begin
FToolbarDispatch.NotifyItemsChanged;
end;
initialization
RegisterClass(TSpkTab);
finalization
UnRegisterClass(TSpkTab);
end.

View File

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