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;
|
FToolbarDispatch.NotifyMetricsChanged;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
|
||||||
|
|
||||||
RegisterClass(TSpkLargeButton);
|
|
||||||
RegisterClass(TSpkSmallButton);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
UnRegisterClass(TSpkLargeButton);
|
|
||||||
UnRegisterClass(TSpkSmallButton);
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
@ -1102,12 +1102,5 @@ begin
|
|||||||
FToolbarDispatch.NotifyItemsChanged;
|
FToolbarDispatch.NotifyItemsChanged;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
|
||||||
|
|
||||||
RegisterClass(TSpkPane);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
UnregisterClass(TSpkPane);
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
@ -802,12 +802,5 @@ begin
|
|||||||
FToolbarDispatch.NotifyItemsChanged;
|
FToolbarDispatch.NotifyItemsChanged;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
|
||||||
|
|
||||||
RegisterClass(TSpkTab);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
UnRegisterClass(TSpkTab);
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
@ -5,8 +5,8 @@ unit RegisterSpkToolbar;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, LazarusPackageIntf, SpkToolbar, PropEdits,
|
Classes, SysUtils, LazarusPackageIntf, SpkToolbar, PropEdits, ComponentEditors,
|
||||||
ComponentEditors, SpkToolbarEditor;
|
SpkToolbarEditor, spkt_Buttons, spkt_Pane, spkt_Tab, spkt_Appearance;
|
||||||
|
|
||||||
procedure Register;
|
procedure Register;
|
||||||
|
|
||||||
@ -17,9 +17,32 @@ begin
|
|||||||
RegisterComponents('SpkToolbar', [TSpkToolbar]);
|
RegisterComponents('SpkToolbar', [TSpkToolbar]);
|
||||||
end;
|
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;
|
procedure Register;
|
||||||
begin
|
begin
|
||||||
RegisterUnit('SpkToolbar', @RegisterUnitSpkToolbar);
|
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;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Reference in New Issue
Block a user