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
|
object SelectPropertiesForm: TSelectPropertiesForm
Left = 411
Height = 462
Top = 175
Width = 485
ActiveControl = LBProperties
Caption = 'Select properties'
ClientHeight = 462
ClientWidth = 485
OnClose = SelectPropertiesFormClose
OnCreate = SelectPropertiesFormCreate
Position = poScreenCenter
LCLVersion = '1.1'
object PTop: TPanel
Left = 0
Height = 248
Top = 0
Width = 485
Align = alTop
BevelOuter = bvNone
ClientHeight = 248
ClientWidth = 485
FullRepaint = False
TabOrder = 0
object PProperties: TPanel
Left = 233
Height = 248
Top = 0
Width = 252
Align = alClient
BevelOuter = bvNone
ClientHeight = 248
ClientWidth = 252
FullRepaint = False
TabOrder = 0
object LProperties: TLabel
Left = 6
Height = 13
Top = 6
Width = 240
Align = alTop
BorderSpacing.Around = 6
Caption = '&Properties'
FocusControl = LBProperties
Layout = tlCenter
ParentColor = False
end
object LBProperties: TListBox
Left = 6
Height = 217
Top = 25
Width = 240
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 = 229
Align = alLeft
BevelOuter = bvNone
Caption = 'PComponents'
ClientHeight = 248
ClientWidth = 229
FullRepaint = False
TabOrder = 1
object LComponents: TLabel
Left = 6
Height = 13
Top = 6
Width = 217
Align = alTop
BorderSpacing.Around = 6
Caption = 'Co&mponents'
FocusControl = LBComponents
Layout = tlCenter
ParentColor = False
end
object LBComponents: TListBox
Left = 6
Height = 217
Top = 25
Width = 217
Align = alClient
BorderSpacing.Around = 6
ItemHeight = 0
OnSelectionChange = LBComponentsSelectionChange
Sorted = True
TabOrder = 0
end
end
object VSplitter: TSplitter
Left = 229
Height = 248
Top = 0
Width = 4
end
end
object HSplitter: TSplitter
Cursor = crVSplit
Left = 0
Height = 4
Top = 248
Width = 485
Align = alTop
Beveled = True
ResizeAnchor = akTop
end
object PBottom: TPanel
Left = 0
Height = 210
Top = 252
Width = 485
Align = alClient
BevelOuter = bvNone
ClientHeight = 210
ClientWidth = 485
Constraints.MinHeight = 190
FullRepaint = False
TabOrder = 1
object LLBSelected: TLabel
Left = 10
Height = 13
Top = 3
Width = 93
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 = PBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 182
Top = 22
Width = 392
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ItemHeight = 0
MultiSelect = True
TabOrder = 0
end
object BAdd: TButton
AnchorSideTop.Control = LBSelected
AnchorSideRight.Control = PBottom
AnchorSideRight.Side = asrBottom
Left = 404
Height = 25
Top = 22
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = '&Add'
OnClick = BAddClick
TabOrder = 1
end
object BDelete: TButton
AnchorSideLeft.Control = BAdd
AnchorSideTop.Control = BAdd
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BAdd
AnchorSideRight.Side = asrBottom
Left = 404
Height = 25
Top = 53
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = '&Delete'
OnClick = BDeleteClick
TabOrder = 2
end
object BClear: TButton
AnchorSideLeft.Control = BDelete
AnchorSideTop.Control = BDelete
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BDelete
AnchorSideRight.Side = asrBottom
Left = 404
Height = 25
Top = 84
Width = 75
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'C&lear'
OnClick = BClearClick
TabOrder = 3
end
object BOK: TButton
AnchorSideRight.Control = PBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PBottom
AnchorSideBottom.Side = asrBottom
Left = 404
Height = 25
Top = 179
Width = 75
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 4
end
object BCancel: TButton
AnchorSideRight.Control = BOK
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BOK
Left = 404
Height = 25
Top = 148
Width = 75
Anchors = [akRight, akBottom]
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 5
end
end
end
|
