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
|
object NewOtherDialog: TNewOtherDialog
Left = 281
Height = 434
Top = 191
Width = 741
BorderIcons = [biSystemMenu]
Caption = 'NewOtherDialog'
ClientHeight = 434
ClientWidth = 741
Constraints.MinHeight = 100
Constraints.MinWidth = 450
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object Panel1: TPanel
Left = 6
Height = 390
Top = 6
Width = 729
Align = alClient
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 390
ClientWidth = 729
TabOrder = 0
object ItemsTreeView: TTreeView
Left = 0
Height = 390
Top = 0
Width = 295
Align = alClient
ExpandSignSize = 10
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
OnDblClick = OkButtonClick
OnSelectionChanged = ItemsTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object DescriptionGroupBox: TGroupBox
AnchorSideLeft.Control = ItemsTreeView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
Left = 300
Height = 390
Top = 0
Width = 429
Align = alRight
Caption = 'DescriptionGroupBox'
ClientHeight = 370
ClientWidth = 427
TabOrder = 1
object DescriptionLabel: TLabel
Left = 6
Height = 19
Top = 6
Width = 415
Align = alTop
BorderSpacing.Around = 6
Caption = 'DescriptionLabel'
ParentColor = False
WordWrap = True
end
object InheritableComponentsListView: TListView
AnchorSideLeft.Control = DescriptionGroupBox
AnchorSideTop.Control = CompFilterEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DescriptionGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DescriptionGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 320
Top = 62
Width = 415
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Columns = <
item
Caption = 'Form'
Width = 100
end
item
Caption = 'Unit'
Width = 313
end>
HideSelection = False
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
SortType = stText
TabOrder = 1
ViewStyle = vsReport
OnSelectItem = InheritableComponentsListViewSelectItem
end
object CompFilterEdit: TListViewFilterEdit
AnchorSideLeft.Control = DescriptionGroupBox
AnchorSideTop.Control = DescriptionLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DescriptionGroupBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 31
Width = 415
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
MaxLength = 0
TabOrder = 0
FilteredListview = InheritableComponentsListView
ByAllFields = True
end
end
object Splitter1: TSplitter
Left = 295
Height = 390
Top = 0
Width = 5
Align = alRight
ResizeAnchor = akRight
end
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 402
Width = 729
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OkButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
ShowBevel = False
end
end
|
