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
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
object frBarCodeForm: TfrBarCodeForm
Left = 376
Height = 337
Top = 242
Width = 380
HorzScrollBar.Page = 292
VertScrollBar.Page = 285
ActiveControl = Panel1
BorderStyle = bsDialog
Caption = 'Barcode editor'
ClientHeight = 337
ClientWidth = 380
Constraints.MinWidth = 380
Font.Color = clBlack
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
ShowHint = True
LCLVersion = '1.1'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
Height = 14
Top = 6
Width = 26
BorderSpacing.Around = 6
Caption = 'Code'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = M1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 14
Top = 53
Width = 57
BorderSpacing.Around = 6
Caption = 'Type of bar'
ParentColor = False
end
object Image1: TImage
Left = 264
Height = 16
Top = 0
Width = 16
AutoSize = True
Picture.Data = {
07544269746D6170F6000000424DF60000000000000076000000280000001000
0000100000000100040000000000800000000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF0077788888888888777700000000000877770FFFFFFFFF0877770F0F80F80F
0877770F0F80F80F0877770F0F80F80F0877770F0F80F80F0877770F0F80F80F
0877770FFFFFFFFF0877770BBBBBBBBB07777770BBBBBBB0777777770BB0BB07
7777777770000077777777777707707777777777770007777777777777777777
7777
}
Visible = False
end
object M1: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Top = 26
Width = 368
HelpContext = 260
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 0
end
object cbType: TComboBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21
Top = 73
Width = 368
HelpContext = 261
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 13
Style = csDropDownList
TabOrder = 1
end
object Panel1: TPanel
AnchorSideTop.Control = M1
AnchorSideRight.Control = M1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = M1
Left = 340
Height = 17
Top = 3
Width = 34
Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 6
BevelOuter = bvNone
ClientHeight = 17
ClientWidth = 34
FullRepaint = False
TabOrder = 2
object DBBtn: TSpeedButton
Left = 0
Height = 17
Top = 0
Width = 17
Caption = 'D'
Margin = 4
NumGlyphs = 0
OnClick = DBBtnClick
end
object VarBtn: TSpeedButton
Left = 16
Height = 17
Top = 0
Width = 17
Caption = 'V'
NumGlyphs = 0
OnClick = VarBtnClick
end
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cbType
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 71
Top = 100
Width = 368
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Options'
ClientHeight = 53
ClientWidth = 364
TabOrder = 3
object labZoom: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox1
Left = 169
Height = 14
Top = 6
Width = 27
BorderSpacing.Around = 6
Caption = 'Zoom'
ParentColor = False
end
object ckCheckSum: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 6
Height = 17
Top = 6
Width = 69
HelpContext = 262
BorderSpacing.Around = 6
Caption = 'Checksum '
TabOrder = 0
end
object ckViewText: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = ckCheckSum
AnchorSideTop.Side = asrBottom
Left = 6
Height = 17
Top = 29
Width = 96
HelpContext = 263
BorderSpacing.Around = 6
Caption = 'Human readable'
TabOrder = 1
end
object edZoom: TEdit
AnchorSideLeft.Control = labZoom
AnchorSideTop.Control = labZoom
AnchorSideTop.Side = asrBottom
Left = 175
Height = 21
Top = 26
Width = 77
BorderSpacing.Around = 6
OnKeyPress = edZoomKeyPress
TabOrder = 2
Text = '1'
end
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 65
Top = 177
Width = 368
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'Orientation'
ClientHeight = 47
ClientWidth = 364
TabOrder = 4
object RB1: TRadioButton
Left = 8
Height = 17
Top = 16
Width = 27
HelpContext = 264
Caption = '0 '
Checked = True
TabOrder = 0
TabStop = True
end
object RB2: TRadioButton
Left = 72
Height = 17
Top = 16
Width = 33
HelpContext = 264
Caption = '90 '
TabOrder = 1
end
object RB3: TRadioButton
Left = 136
Height = 17
Top = 16
Width = 39
HelpContext = 264
Caption = '180 '
TabOrder = 2
end
object RB4: TRadioButton
Left = 200
Height = 17
Top = 16
Width = 39
HelpContext = 264
Caption = '270 '
TabOrder = 3
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 297
Width = 368
TabOrder = 5
ShowButtons = [pbOK, pbCancel, pbHelp]
end
end
|
