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
|
object FieldsListFrm: TFieldsListFrm
Left = 414
Height = 280
Top = 116
Width = 195
ActiveControl = BitBtnOk
Caption = 'FieldsListFrm'
ClientHeight = 280
ClientWidth = 195
OnClose = FormClose
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object BitBtnOk: TBitBtn
AnchorSideBottom.Side = asrBottom
Left = 9
Height = 34
Top = 241
Width = 77
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = '&Create'
Default = True
Kind = bkOK
ModalResult = 1
OnClick = BitBtnOkClick
TabOrder = 0
end
object BitBtnCancel: TBitBtn
AnchorSideLeft.Control = BitBtnOk
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BitBtnOk
AnchorSideTop.Side = asrCenter
Left = 92
Height = 34
Top = 241
Width = 76
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
TabOrder = 1
end
object ListBox1: TListBox
AnchorSideBottom.Control = BitBtnOk
Left = 0
Height = 235
Top = 0
Width = 192
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True
ScrollWidth = 190
TabOrder = 2
TopIndex = -1
end
end
|
