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
|
object frInsertFieldsForm: TfrInsertFieldsForm
Left = 352
Height = 347
Top = 210
Width = 438
ActiveControl = HorzRB
BorderStyle = bsDialog
Caption = 'Insert fields'
ClientHeight = 347
ClientWidth = 438
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 15
Top = 6
Width = 94
BorderSpacing.Around = 6
Caption = '&Available datasets'
FocusControl = DatasetCB
end
object FieldsL: TListBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = DatasetCB
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 245
Top = 56
Width = 247
HelpContext = 106
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClickOnSelChange = False
ItemHeight = 0
MultiSelect = True
ScrollWidth = 245
TabOrder = 0
end
object DatasetCB: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
Left = 6
Height = 23
Top = 27
Width = 247
HelpContext = 97
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 15
OnChange = DatasetCBChange
Sorted = True
Style = csDropDownList
TabOrder = 1
end
object GroupBox1: TGroupBox
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 259
Height = 74
Top = 6
Width = 173
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
Caption = 'Placement'
ClientHeight = 54
ClientWidth = 169
TabOrder = 2
object HorzRB: TRadioButton
Left = 8
Height = 19
Top = 5
Width = 75
HelpContext = 115
Caption = '&Horizontal'
Checked = True
TabOrder = 0
TabStop = True
end
object VertRB: TRadioButton
Left = 8
Height = 19
Top = 25
Width = 59
HelpContext = 122
Caption = '&Vertical'
TabOrder = 1
end
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 259
Height = 76
Top = 86
Width = 179
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
ClientHeight = 56
ClientWidth = 175
TabOrder = 3
object HeaderCB: TCheckBox
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 6
Height = 19
Top = 6
Width = 103
HelpContext = 132
BorderSpacing.Around = 6
Caption = '&Include headers'
TabOrder = 0
end
object BandCB: TCheckBox
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = HeaderCB
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 31
Width = 94
BorderSpacing.Around = 6
Caption = 'Include &bands'
TabOrder = 1
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 307
Width = 426
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 4
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object lblError: TLabel
Left = 265
Height = 15
Top = 280
Width = 20
Caption = '<!>'
Font.Color = clRed
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
Visible = False
end
end
|
