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
|
unit VTIDEEditors;
{$mode objfpc}{$H+}
interface
uses
ComponentEditors, PropEdits, VirtualTrees;
type
// The usual trick to make a protected property accessible in the ShowCollectionEditor call below.
TVirtualTreeCast = class(TBaseVirtualTree);
{ TVirtualTreeEditor }
TVirtualTreeEditor = class(TComponentEditor)
public
procedure Edit; override;
function GetVerbCount: Integer; override;
function GetVerb(Index: Integer): string; override;
procedure ExecuteVerb(Index: Integer); override;
end;
implementation
{ TVirtualTreeEditor }
procedure TVirtualTreeEditor.Edit;
var
Tree: TVirtualTreeCast;
begin
Tree := TVirtualTreeCast(GetComponent);
TCollectionPropertyEditor.ShowCollectionEditor(Tree.Header.Columns, Tree, 'Columns');
end;
function TVirtualTreeEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
function TVirtualTreeEditor.GetVerb(Index: Integer): string;
begin
case Index of
0: Result := 'Edit Columns...';
end;
end;
procedure TVirtualTreeEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0: Edit;
end;
end;
end.
|
