1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
unit RegisterLazControls;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, ExtendedTabControls, ComponentEditors, ObjInspStrConsts, PropEdits,
ComCtrls, CheckBoxThemed, DividerBevel, ExtendedNotebook, ListFilterEdit,
ListViewFilterEdit, LvlGraphCtrl, ShortPathEdit, SpinEx, TreeFilterEdit;
type
{ TExtendedTabControlComponentEditor }
TExtendedTabControlComponentEditor = class(TOldTabControlComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
function ToolBar: TToolBar; virtual;
end;
procedure Register;
implementation
{$R ../lazcontrols.res}
procedure Register;
begin
RegisterComponents('LazControls', [TCheckBoxThemed,
TDividerBevel, TExtendedNotebook, TListFilterEdit, TListViewFilterEdit,
TLvlGraphControl, TShortPathEdit, TSpinEditEx, TFloatSpinEditEx,
TTreeFilterEdit, TExtendedTabControl]);
//RegisterPropertyEditor(TypeInfo(TCaption), TCheckBoxThemed, 'Caption', TStringMultilinePropertyEditor);
RegisterNoIcon([TExtendedTabToolbar, TExtendedTabToolButton, TExtendedTabSheet]);
RegisterComponentEditor(TExtendedTabControl, TExtendedTabControlComponentEditor);
end;
{ TExtendedTabControlComponentEditor }
procedure TExtendedTabControlComponentEditor.ExecuteVerb(Index: Integer);
var
NewStyle: TToolButtonStyle;
Hook: TPropertyEditorHook;
NewToolButton: TToolButton;
NewName: string;
CurToolBar: TToolBar;
SiblingButton: TToolButton;
c: Integer;
begin
c := inherited GetVerbCount;
if Index < c then begin
inherited ExecuteVerb(Index);
exit;
end;
Index := Index - c;
//if Index = 0 then begin
// TabControl.Pages.Add(CreateNewTabCaption);
// Modified;
// exit;
//end;
//
//Index := Index - 1;
Hook:=nil;
if not GetHook(Hook) then exit;
case Index of
0: NewStyle := tbsButton;
1: NewStyle := tbsCheck;
2: NewStyle := tbsSeparator;
3: NewStyle := tbsDivider;
else
exit;
end;
CurToolBar := ToolBar;
NewToolButton := TExtendedTabToolButton.Create(CurToolBar.Owner);
NewName := GetDesigner.CreateUniqueComponentName(NewToolButton.ClassName);
NewToolButton.Caption := NewName;
NewToolButton.Name := NewName;
NewToolButton.Style := NewStyle;
if NewStyle = tbsDivider then
NewToolButton.Width := 3;
// position the button next to the last button
if CurToolBar.ButtonCount > 0 then
begin
SiblingButton := CurToolBar.Buttons[CurToolBar.ButtonCount - 1];
NewToolButton.SetBounds(SiblingButton.Left + SiblingButton.Width,
SiblingButton.Top, NewToolButton.Width, NewToolButton.Height);
end;
NewToolButton.Parent := CurToolBar;
Hook.PersistentAdded(NewToolButton, True);
Modified;
end;
function TExtendedTabControlComponentEditor.GetVerb(Index: Integer): string;
var
c: Integer;
begin
c := inherited GetVerbCount;
if Index < c then
Result := inherited GetVerb(Index)
else
case Index - c of
//0: Result := 'New Page';
0: Result := tbceNewButton;
1: Result := tbceNewCheckbutton;
2: Result := tbceNewSeparator;
3: Result := tbceNewDivider;
else
Result := '';
end;
end;
function TExtendedTabControlComponentEditor.GetVerbCount: Integer;
begin
Result := inherited GetVerbCount + 4;
end;
function TExtendedTabControlComponentEditor.ToolBar: TToolBar;
begin
Result := nil;
if TabControl = nil then
exit;
Result := TExtendedTabControlNoteBookStrings(TCustomExtendedTabControl(TabControl).Tabs).ToolBar;
end;
end.
|
