Context Navigation

GenericTree.inc

Last change on this file was 18, checked in by chronos, 12 years ago
Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.
File size: 1.5 KB

Line
1	{$IFDEF INTERFACE}
2
3	TGTreeNode = class;
4
5	{$DEFINE TGListIndex := TGTreeIndex}
6	{$DEFINE TGListItem := TGTreeNode}
7	{$DEFINE TGList := TGTreeNodeList}
8	{$DEFINE TGListSortCompare := TGTreeSortCompare}
9	{$DEFINE TGListToStringConverter := TGTreeToStringConverter}
10	{$DEFINE TGListFromStringConverter := TGTreeFromStringConverter}
11	{$DEFINE TGListItemArray := TGTreeItemArray}
12	{$DEFINE INTERFACE}
13	{$I 'GenericList.inc'}
14
15	// TGTreeNode<TGTreeIndex, TGTreeItem> = class
16	TGTreeNode = class
17	Childs: TGTreeNodeList;
18	Value: TGTreeItem;
19	procedure Clear;
20	end;
21
22	// TGTree<TGTreeIndex, TGTreeItem> = class
23	TGTree = class
24	TopItem: TGTreeNode;
25	procedure Clear;
26	end;
27
28	{$UNDEF INTERFACE}
29	{$ENDIF}
30
31	{$IFDEF IMPLEMENTATION_USES}
32
33	{$DEFINE IMPLEMENTATION_USES}
34	{$I 'GenericList.inc'}
35
36	{$UNDEF INTERFACE_USES}
37	{$ENDIF}
38
39
40	{$IFDEF IMPLEMENTATION}
41	{$UNDEF IMPLEMENTATION}
42
43	{$DEFINE TGListIndex := TGTreeIndex}
44	{$DEFINE TGListItem := TGTreeNode}
45	{$DEFINE TGList := TGTreeNodeList}
46	{$DEFINE TGListSortCompare := TGTreeSortCompare}
47	{$DEFINE TGListToStringConverter := TGTreeToStringConverter}
48	{$DEFINE TGListFromStringConverter := TGTreeFromStringConverter}
49	{$DEFINE TGListItemArray := TGTreeItemArray}
50	{$DEFINE IMPLEMENTATION}
51	{$I 'GenericList.inc'}
52
53	{ TGTreeNode }
54
55	procedure TGTreeNode.Clear;
56	begin
57	Childs.Clear;
58	end;
59
60	{ TGTree }
61
62	procedure TGTree.Clear;
63	begin
64	if Assigned(TopItem) then TopItem.Clear;
65	end;
66
67	{$UNDEF IMPLEMENTATION}
68	{$ENDIF}

Note: See TracBrowser for help on using the repository browser.