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
|
{
*****************************************************************************
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
Authors: Alexander Klenin
}
unit TAToolEditors;
{$H+}
interface
procedure Register;
implementation
uses
Classes, ComponentEditors, Forms, PropEdits, SysUtils,
TAChartStrConsts, TATools, TASubcomponentsEditor;
type
{ TToolsComponentEditor }
TToolsComponentEditor = class(TSubComponentListEditor)
protected
function MakeEditorForm: TForm; override;
public
function GetVerb(Index: Integer): string; override;
end;
{ TToolsPropertyEditor }
TToolsPropertyEditor = class(TComponentListPropertyEditor)
protected
function GetChildrenCount: Integer; override;
function MakeEditorForm: TForm; override;
end;
{ TToolsEditorForm }
TToolsEditorForm = class(TComponentListEditorForm)
protected
procedure AddSubcomponent(AParent, AChild: TComponent); override;
procedure BuildCaption; override;
function ChildClass: TComponentClass; override;
procedure EnumerateSubcomponentClasses; override;
function GetChildrenList: TFPList; override;
function MakeSubcomponent(
AOwner: TComponent; ATag: Integer): TComponent; override;
end;
procedure Register;
begin
RegisterPropertyEditor(
TypeInfo(TChartTools), TChartToolset, 'Tools', TToolsPropertyEditor);
RegisterComponentEditor(TChartToolset, TToolsComponentEditor);
RegisterPropertyEditor(
TypeInfo(Boolean), TZoomDragTool, 'Proportional', THiddenPropertyEditor);
end;
{ TToolsComponentEditor }
function TToolsComponentEditor.GetVerb(Index: Integer): string;
begin
if Index = 0 then
Result := tasToolsEditorTitle
else
Result := '';
end;
function TToolsComponentEditor.MakeEditorForm: TForm;
begin
Result := TToolsEditorForm.Create(Application, GetComponent, Self, nil);
end;
{ TToolsPropertyEditor }
function TToolsPropertyEditor.GetChildrenCount: Integer;
begin
Result := (GetObjectValue as TChartTools).Count;
end;
function TToolsPropertyEditor.MakeEditorForm: TForm;
begin
with TToolsEditorForm do
Result := Create(Application, GetComponent(0) as TComponent, nil, Self);
end;
{ TToolsEditorForm }
procedure TToolsEditorForm.AddSubcomponent(AParent, AChild: TComponent);
begin
(AChild as TChartTool).Toolset := (AParent as TChartToolset);
end;
procedure TToolsEditorForm.BuildCaption;
begin
Caption := tasToolsEditorTitle + ' - ' + Parent.Name;
end;
function TToolsEditorForm.ChildClass: TComponentClass;
begin
Result := TChartTool;
end;
procedure TToolsEditorForm.EnumerateSubcomponentClasses;
var
i: Integer;
begin
for i := 0 to ToolsClassRegistry.Count - 1 do
AddSubcomponentClass(ToolsClassRegistry.GetCaption(i), i);
end;
function TToolsEditorForm.GetChildrenList: TFPList;
begin
Result := (Parent as TChartToolset).Tools;
end;
function TToolsEditorForm.MakeSubcomponent(
AOwner: TComponent; ATag: Integer): TComponent;
begin
Result := TChartToolClass(ToolsClassRegistry.GetClass(ATag)).Create(AOwner);
end;
end.
|
