You've already forked lazarus-ccr
* 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:
@ -2176,14 +2176,5 @@ begin
|
||||
FToolbarDispatch.NotifyMetricsChanged;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterClass(TSpkLargeButton);
|
||||
RegisterClass(TSpkSmallButton);
|
||||
|
||||
finalization
|
||||
|
||||
UnRegisterClass(TSpkLargeButton);
|
||||
UnRegisterClass(TSpkSmallButton);
|
||||
|
||||
end.
|
||||
|
@ -1102,12 +1102,5 @@ begin
|
||||
FToolbarDispatch.NotifyItemsChanged;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterClass(TSpkPane);
|
||||
|
||||
finalization
|
||||
|
||||
UnregisterClass(TSpkPane);
|
||||
|
||||
end.
|
||||
|
@ -802,12 +802,5 @@ begin
|
||||
FToolbarDispatch.NotifyItemsChanged;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterClass(TSpkTab);
|
||||
|
||||
finalization
|
||||
|
||||
UnRegisterClass(TSpkTab);
|
||||
|
||||
end.
|
||||
|
@ -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.
|
||||
|
Reference in New Issue
Block a user