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
|
object SelectPropertiesForm: TSelectPropertiesForm
Left = 411
Height = 448
Top = 175
Width = 481
ActiveControl = LBProperties
Caption = 'Select properties'
ClientHeight = 448
ClientWidth = 481
Constraints.MinHeight = 403
Constraints.MinWidth = 350
OnClose = SelectPropertiesFormClose
OnCreate = SelectPropertiesFormCreate
Position = poScreenCenter
LCLVersion = '1.7'
object PTop: TPanel
Left = 0
Height = 248
Top = 0
Width = 481
Align = alTop
BevelOuter = bvNone
ClientHeight = 248
ClientWidth = 481
FullRepaint = False
TabOrder = 0
object PProperties: TPanel
Left = 243
Height = 248
Top = 0
Width = 238
Align = alClient
BevelOuter = bvNone
ClientHeight = 248
ClientWidth = 238
FullRepaint = False
TabOrder = 0
object LProperties: TLabel
Left = 6
Height = 17
Top = 6
Width = 226
Align = alTop
BorderSpacing.Around = 6
Caption = '&Properties'
FocusControl = LBProperties
Layout = tlCenter
ParentColor = False
end
object LBProperties: TListBox
Left = 6
Height = 213
Top = 29
Width = 226
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
MultiSelect = True
OnDblClick = LBPropertiesDblClick
Sorted = True
TabOrder = 0
end
end
object PComponents: TPanel
Left = 0
Height = 248
Top = 0
Width = 239
Align = alLeft
BevelOuter = bvNone
Caption = 'PComponents'
ClientHeight = 248
ClientWidth = 239
FullRepaint = False
TabOrder = 1
object LComponents: TLabel
Left = 6
Height = 17
Top = 6
Width = 227
Align = alTop
BorderSpacing.Around = 6
Caption = 'Co&mponents'
FocusControl = LBComponents
Layout = tlCenter
ParentColor = False
end
object LBComponents: TListBox
Left = 6
Height = 213
Top = 29
Width = 227
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = LBComponentsSelectionChange
Sorted = True
TabOrder = 0
end
end
object VSplitter: TSplitter
Left = 239
Height = 248
Top = 0
Width = 4
end
end
object HSplitter: TSplitter
Cursor = crVSplit
Left = 0
Height = 4
Top = 248
Width = 481
Align = alTop
Beveled = True
ResizeAnchor = akTop
end
object PBottom: TPanel
Left = 0
Height = 196
Top = 252
Width = 481
Align = alClient
BevelOuter = bvNone
ClientHeight = 196
ClientWidth = 481
Constraints.MinHeight = 170
FullRepaint = False
TabOrder = 1
object LLBSelected: TLabel
Left = 10
Height = 17
Top = 3
Width = 130
BorderSpacing.Around = 6
Caption = '&Selected Properties'
FocusControl = LBSelected
ParentColor = False
end
object LBSelected: TListBox
AnchorSideLeft.Control = PBottom
AnchorSideTop.Control = LLBSelected
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BAdd
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 114
Top = 26
Width = 352
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
MultiSelect = True
TabOrder = 0
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 44
Top = 146
Width = 469
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object BAdd: TBitBtn
AnchorSideTop.Control = LBSelected
AnchorSideRight.Control = PBottom
AnchorSideRight.Side = asrBottom
Left = 364
Height = 28
Top = 26
Width = 111
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = '&Add'
OnClick = BAddClick
TabOrder = 2
end
object BDelete: TBitBtn
AnchorSideLeft.Control = BAdd
AnchorSideTop.Control = BAdd
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BAdd
AnchorSideRight.Side = asrBottom
Left = 364
Height = 28
Top = 60
Width = 111
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '&Delete'
OnClick = BDeleteClick
TabOrder = 3
end
object BClear: TBitBtn
AnchorSideLeft.Control = BDelete
AnchorSideTop.Control = BDelete
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BDelete
AnchorSideRight.Side = asrBottom
Left = 364
Height = 28
Top = 94
Width = 111
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'C&lear'
OnClick = BClearClick
TabOrder = 4
end
end
end
|
