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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
object ComponentListForm: TComponentListForm
Left = 467
Height = 467
Top = 200
Width = 300
Caption = 'Components'
ClientHeight = 467
ClientWidth = 300
KeyPreview = True
OnActivate = FormActivate
OnClose = FormClose
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '1.9.0.0'
object PageControl: TPageControl
Left = 0
Height = 397
Top = 27
Width = 300
ActivePage = TabSheetList
Align = alClient
TabIndex = 0
TabOrder = 1
OnChange = PageControlChange
object TabSheetList: TTabSheet
Caption = 'List'
ClientHeight = 369
ClientWidth = 292
object Panel7: TPanel
Left = 0
Height = 369
Top = 0
Width = 292
Align = alClient
BevelOuter = bvNone
BorderWidth = 2
ClientHeight = 369
ClientWidth = 292
TabOrder = 0
object ListTree: TTreeView
Left = 2
Height = 365
Top = 2
Width = 288
Align = alClient
Indent = 25
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
ShowButtons = False
ShowLines = False
ShowRoot = False
TabOrder = 0
OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress
OnSelectionChanged = ListTreeSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoToolTips]
end
end
end
object TabSheetPaletteTree: TTabSheet
Caption = 'Palette'
ClientHeight = 369
ClientWidth = 292
object pnPaletteTree: TPanel
Left = 0
Height = 369
Top = 0
Width = 292
Align = alClient
BevelOuter = bvNone
BorderWidth = 5
ClientHeight = 369
ClientWidth = 292
TabOrder = 0
object PalletteTree: TTreeView
Left = 5
Height = 359
Top = 5
Width = 282
Align = alClient
PopupMenu = pmCollapseExpand
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
ShowLines = False
TabOrder = 0
OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress
OnSelectionChanged = ListTreeSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowRoot, tvoToolTips]
end
end
end
object TabSheetInheritance: TTabSheet
Caption = 'Inheritance'
ClientHeight = 369
ClientWidth = 292
object Panel6: TPanel
Left = 0
Height = 369
Top = 0
Width = 292
Align = alClient
BevelOuter = bvNone
BorderWidth = 5
ClientHeight = 369
ClientWidth = 292
TabOrder = 0
object InheritanceTree: TTreeView
Left = 5
Height = 359
Top = 5
Width = 282
Align = alClient
Indent = 20
PopupMenu = pmCollapseExpand
ReadOnly = True
RightClickSelect = True
RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0
OnDblClick = ComponentsDblClick
OnKeyPress = TreeKeyPress
OnSelectionChanged = ListTreeSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
end
end
end
end
object FilterPanel: TPanel
Left = 0
Height = 27
Top = 0
Width = 300
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 27
ClientWidth = 300
TabOrder = 0
object SelectionToolButton: TSpeedButton
AnchorSideLeft.Control = FilterPanel
AnchorSideTop.Control = FilterPanel
AnchorSideBottom.Control = FilterPanel
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 27
Top = 0
Width = 32
AllowAllUp = True
Anchors = [akTop, akLeft, akBottom]
Down = True
Flat = True
GroupIndex = 1
OnClick = SelectionToolButtonClick
end
object LabelSearch: TLabel
AnchorSideLeft.Control = SelectionToolButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FilterPanel
Left = 38
Height = 15
Top = 6
Width = 63
BorderSpacing.Around = 6
Caption = 'LabelSearch'
ParentColor = False
end
object TreeFilterEd: TTreeFilterEdit
AnchorSideLeft.Control = LabelSearch
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LabelSearch
AnchorSideTop.Side = asrCenter
Left = 75
Height = 23
Top = 2
Width = 221
OnAfterFilter = TreeFilterEdAfterFilter
ButtonWidth = 23
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
FilteredTreeview = ListTree
end
end
object ButtonPanel: TPanel
Left = 0
Height = 43
Top = 424
Width = 300
Align = alBottom
BevelOuter = bvNone
ClientHeight = 43
ClientWidth = 300
TabOrder = 2
object chbKeepOpen: TCheckBox
Left = 8
Height = 19
Top = 10
Width = 95
Caption = 'chbKeepOpen'
OnChange = chbKeepOpenChange
TabOrder = 0
end
object OKButton: TButton
Left = 215
Height = 25
Top = 8
Width = 78
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'OKButton'
Default = True
ModalResult = 1
OnClick = OKButtonClick
TabOrder = 1
end
end
object pmCollapseExpand: TPopupMenu
OnPopup = pmCollapseExpandPopup
Left = 160
Top = 112
object miExpand: TMenuItem
Caption = 'Expand'
OnClick = miExpandClick
end
object miExpandAll: TMenuItem
Caption = 'Expand All'
OnClick = miExpandAllClick
end
object MenuItem1: TMenuItem
Caption = '-'
end
object miCollapse: TMenuItem
Caption = 'Collapse'
OnClick = miCollapseClick
end
object miCollapseAll: TMenuItem
Caption = 'Collapse All'
OnClick = miCollapseAllClick
end
end
object tmDeselect: TTimer
Enabled = False
Interval = 100
OnTimer = tmDeselectTimer
Left = 155
Top = 172
end
end
|
