Context Navigation

main.lfm

Last change on this file was 123, checked in by chronos, 3 years ago
Added: QR code image visible in contact others tab. It can be saved as image to file.
File size: 17.3 KB

Line
1	object MainForm: TMainForm
2	Left = 338
3	Height = 484
4	Top = 127
5	Width = 811
6	Caption = 'LazBarcode Demo'
7	ClientHeight = 484
8	ClientWidth = 811
9	OnCreate = FormCreate
10	object BarcodesTree: TTreeView
11	Left = 6
12	Height = 472
13	Top = 6
14	Width = 194
15	Align = alLeft
16	BorderSpacing.Left = 6
17	BorderSpacing.Top = 6
18	BorderSpacing.Right = 3
19	BorderSpacing.Bottom = 6
20	ReadOnly = True
21	TabOrder = 0
22	OnChange = BarcodesTreeChange
23	OnCustomDrawItem = BarcodesTreeCustomDrawItem
24	Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
25	end
26	object Panel1: TPanel
27	Left = 211
28	Height = 472
29	Top = 6
30	Width = 594
31	Align = alClient
32	BorderSpacing.Left = 3
33	BorderSpacing.Top = 6
34	BorderSpacing.Right = 6
35	BorderSpacing.Bottom = 6
36	BevelOuter = bvNone
37	ClientHeight = 472
38	ClientWidth = 594
39	TabOrder = 1
40	object Panel2: TPanel
41	Left = 0
42	Height = 336
43	Top = 0
44	Width = 594
45	Align = alTop
46	BevelOuter = bvNone
47	ClientHeight = 336
48	ClientWidth = 594
49	TabOrder = 0
50	object lblText: TLabel
51	AnchorSideLeft.Control = Panel2
52	AnchorSideTop.Control = edText
53	AnchorSideTop.Side = asrCenter
54	Left = 0
55	Height = 15
56	Top = 4
57	Width = 21
58	Caption = 'Text'
59	end
60	object edText: TEdit
61	AnchorSideLeft.Control = lblText
62	AnchorSideLeft.Side = asrBottom
63	AnchorSideTop.Control = Panel2
64	AnchorSideRight.Control = btnSampleText
65	Left = 33
66	Height = 23
67	Top = 0
68	Width = 485
69	Anchors = [akTop, akLeft, akRight]
70	BorderSpacing.Left = 12
71	BorderSpacing.Right = 4
72	OnChange = edTextChange
73	TabOrder = 0
74	Text = '012345678'
75	end
76	object gbGeometry: TGroupBox
77	AnchorSideLeft.Control = Panel2
78	AnchorSideTop.Control = edText
79	AnchorSideTop.Side = asrBottom
80	Left = 0
81	Height = 173
82	Top = 35
83	Width = 191
84	AutoSize = True
85	BorderSpacing.Top = 12
86	Caption = 'Geometry'
87	ClientHeight = 153
88	ClientWidth = 187
89	TabOrder = 1
90	object lblScale: TLabel
91	AnchorSideLeft.Control = gbGeometry
92	AnchorSideTop.Control = seScale
93	AnchorSideTop.Side = asrCenter
94	Left = 16
95	Height = 15
96	Top = 50
97	Width = 27
98	BorderSpacing.Left = 16
99	Caption = 'Scale'
100	Enabled = False
101	end
102	object seScale: TSpinEdit
103	AnchorSideLeft.Control = seWhiteSpaceWidth
104	AnchorSideTop.Control = cbRecommendedSymbolSize
105	AnchorSideTop.Side = asrBottom
106	AnchorSideRight.Control = cbRecommendedSymbolSize
107	AnchorSideRight.Side = asrBottom
108	Left = 105
109	Height = 23
110	Top = 46
111	Width = 76
112	Alignment = taRightJustify
113	Anchors = [akTop, akLeft, akRight]
114	BorderSpacing.Top = 8
115	Enabled = False
116	MaxValue = 20
117	OnChange = BarcodeChange
118	TabOrder = 0
119	end
120	object seMargin: TSpinEdit
121	AnchorSideLeft.Control = seWhiteSpaceWidth
122	AnchorSideTop.Control = seScale
123	AnchorSideTop.Side = asrBottom
124	AnchorSideRight.Control = cbRecommendedSymbolSize
125	AnchorSideRight.Side = asrBottom
126	Left = 105
127	Height = 23
128	Top = 72
129	Width = 76
130	Alignment = taRightJustify
131	Anchors = [akTop, akLeft, akRight]
132	BorderSpacing.Top = 3
133	Enabled = False
134	MaxValue = 20
135	OnChange = BarcodeChange
136	TabOrder = 1
137	Value = 4
138	end
139	object lblMargin: TLabel
140	AnchorSideLeft.Control = gbGeometry
141	AnchorSideTop.Control = seMargin
142	AnchorSideTop.Side = asrCenter
143	Left = 16
144	Height = 15
145	Top = 76
146	Width = 38
147	BorderSpacing.Left = 16
148	Caption = 'Margin'
149	Enabled = False
150	end
151	object lblWhiteSpaceWidth: TLabel
152	AnchorSideLeft.Control = gbGeometry
153	AnchorSideTop.Control = seWhiteSpaceWidth
154	AnchorSideTop.Side = asrCenter
155	Left = 16
156	Height = 15
157	Top = 102
158	Width = 64
159	BorderSpacing.Left = 16
160	Caption = 'White space'
161	Enabled = False
162	end
163	object seWhiteSpaceWidth: TSpinEdit
164	AnchorSideLeft.Control = seSymbolHeight
165	AnchorSideTop.Control = seMargin
166	AnchorSideTop.Side = asrBottom
167	AnchorSideRight.Control = cbRecommendedSymbolSize
168	AnchorSideRight.Side = asrBottom
169	Left = 105
170	Height = 23
171	Top = 98
172	Width = 76
173	Alignment = taRightJustify
174	Anchors = [akTop, akLeft, akRight]
175	BorderSpacing.Top = 3
176	Enabled = False
177	MaxValue = 20
178	OnChange = BarcodeChange
179	TabOrder = 2
180	Value = 8
181	end
182	object lblSymbolHeight: TLabel
183	AnchorSideLeft.Control = gbGeometry
184	AnchorSideTop.Control = seSymbolHeight
185	AnchorSideTop.Side = asrCenter
186	Left = 16
187	Height = 15
188	Top = 128
189	Width = 77
190	BorderSpacing.Left = 16
191	Caption = 'Symbol height'
192	Enabled = False
193	end
194	object seSymbolHeight: TSpinEdit
195	AnchorSideLeft.Control = lblSymbolHeight
196	AnchorSideLeft.Side = asrBottom
197	AnchorSideTop.Control = seWhiteSpaceWidth
198	AnchorSideTop.Side = asrBottom
199	AnchorSideRight.Control = cbRecommendedSymbolSize
200	AnchorSideRight.Side = asrBottom
201	Left = 105
202	Height = 23
203	Top = 124
204	Width = 76
205	Alignment = taRightJustify
206	Anchors = [akTop, akLeft, akRight]
207	BorderSpacing.Left = 12
208	BorderSpacing.Top = 3
209	BorderSpacing.Bottom = 6
210	Enabled = False
211	MaxValue = 9999
212	OnChange = BarcodeChange
213	TabOrder = 3
214	end
215	object cbRecommendedSymbolSize: TCheckBox
216	AnchorSideLeft.Control = gbGeometry
217	AnchorSideTop.Control = cbAutoSize
218	AnchorSideTop.Side = asrBottom
219	Left = 16
220	Height = 19
221	Top = 19
222	Width = 165
223	BorderSpacing.Left = 16
224	BorderSpacing.Right = 6
225	Caption = 'Recommended symbol size'
226	Checked = True
227	OnChange = cbRecommendedSymbolSizeChange
228	State = cbChecked
229	TabOrder = 4
230	end
231	object cbAutoSize: TCheckBox
232	AnchorSideLeft.Control = gbGeometry
233	AnchorSideTop.Control = gbGeometry
234	Left = 16
235	Height = 19
236	Top = 0
237	Width = 68
238	BorderSpacing.Left = 16
239	Caption = 'Auto size'
240	OnChange = cbAutoSizeChange
241	TabOrder = 5
242	end
243	end
244	object gbShow: TGroupBox
245	AnchorSideLeft.Control = gbGeometry
246	AnchorSideLeft.Side = asrBottom
247	AnchorSideTop.Control = gbGeometry
248	Left = 207
249	Height = 74
250	Top = 35
251	Width = 215
252	AutoSize = True
253	BorderSpacing.Left = 16
254	Caption = 'Show...'
255	ClientHeight = 54
256	ClientWidth = 211
257	TabOrder = 2
258	object cbHumanReadableText: TCheckBox
259	AnchorSideLeft.Control = gbShow
260	AnchorSideTop.Control = gbShow
261	Left = 16
262	Height = 19
263	Top = 0
264	Width = 133
265	BorderSpacing.Left = 16
266	Caption = 'Human-readable text'
267	Checked = True
268	OnChange = BarcodeChange
269	State = cbChecked
270	TabOrder = 0
271	end
272	object cmbBearerBarsBox: TComboBox
273	AnchorSideLeft.Control = gbShow
274	AnchorSideTop.Control = cbHumanReadableText
275	AnchorSideTop.Side = asrBottom
276	AnchorSideRight.Control = btnFont
277	AnchorSideRight.Side = asrBottom
278	Left = 16
279	Height = 23
280	Top = 25
281	Width = 189
282	Anchors = [akTop, akLeft, akRight]
283	BorderSpacing.Left = 16
284	BorderSpacing.Top = 6
285	BorderSpacing.Bottom = 6
286	Enabled = False
287	ItemHeight = 15
288	ItemIndex = 0
289	Items.Strings = (
290	'none'
291	'Bearer bars'
292	'Box'
293	)
294	OnChange = BarcodeChange
295	Style = csDropDownList
296	TabOrder = 2
297	Text = 'none'
298	end
299	object btnFont: TButton
300	AnchorSideLeft.Control = cbHumanReadableText
301	AnchorSideLeft.Side = asrBottom
302	AnchorSideTop.Control = cbHumanReadableText
303	AnchorSideTop.Side = asrCenter
304	Left = 155
305	Height = 25
306	Top = -3
307	Width = 50
308	AutoSize = True
309	BorderSpacing.Left = 6
310	BorderSpacing.Right = 6
311	Caption = 'Font'
312	OnClick = btnFontClick
313	TabOrder = 1
314	end
315	end
316	object gbChecksum: TGroupBox
317	AnchorSideLeft.Control = gbShow
318	AnchorSideTop.Control = gbShow
319	AnchorSideTop.Side = asrBottom
320	AnchorSideRight.Control = gbShow
321	AnchorSideRight.Side = asrBottom
322	Left = 207
323	Height = 68
324	Top = 121
325	Width = 215
326	Anchors = [akTop, akLeft, akRight]
327	AutoSize = True
328	BorderSpacing.Top = 12
329	Caption = 'Checksum'
330	ClientHeight = 48
331	ClientWidth = 211
332	TabOrder = 6
333	object cbAddChecksum: TCheckBox
334	AnchorSideLeft.Control = gbChecksum
335	AnchorSideTop.Control = gbChecksum
336	Left = 16
337	Height = 19
338	Top = 0
339	Width = 99
340	BorderSpacing.Left = 16
341	Caption = 'Add checksum'
342	Checked = True
343	OnChange = BarcodeChange
344	State = cbChecked
345	TabOrder = 0
346	end
347	object cbDisplayChecksum: TCheckBox
348	AnchorSideLeft.Control = cbAddChecksum
349	AnchorSideTop.Control = cbAddChecksum
350	AnchorSideTop.Side = asrBottom
351	Left = 16
352	Height = 19
353	Top = 23
354	Width = 115
355	BorderSpacing.Top = 4
356	BorderSpacing.Bottom = 6
357	Caption = 'Display checksum'
358	OnChange = BarcodeChange
359	TabOrder = 1
360	end
361	end
362	object gbColors: TGroupBox
363	AnchorSideLeft.Control = gbGeometry
364	AnchorSideTop.Control = gbGeometry
365	AnchorSideTop.Side = asrBottom
366	AnchorSideRight.Control = gbGeometry
367	AnchorSideRight.Side = asrBottom
368	Left = 0
369	Height = 109
370	Top = 224
371	Width = 191
372	Anchors = [akTop, akLeft, akRight]
373	AutoSize = True
374	BorderSpacing.Top = 16
375	Caption = 'Colors'
376	ClientHeight = 89
377	ClientWidth = 187
378	TabOrder = 3
379	object clbBackground: TColorButton
380	AnchorSideLeft.Control = gbColors
381	AnchorSideTop.Control = clbColor
382	AnchorSideTop.Side = asrBottom
383	Left = 8
384	Height = 25
385	Top = 29
386	Width = 144
387	BorderSpacing.Left = 8
388	BorderSpacing.Top = 4
389	BorderSpacing.Right = 8
390	BorderWidth = 2
391	ButtonColorAutoSize = False
392	ButtonColorSize = 16
393	ButtonColor = clWhite
394	Caption = 'Background color'
395	OnColorChanged = BarcodeChange
396	end
397	object clbForeground: TColorButton
398	AnchorSideLeft.Control = clbBackground
399	AnchorSideTop.Control = clbBackground
400	AnchorSideTop.Side = asrBottom
401	Left = 8
402	Height = 25
403	Top = 58
404	Width = 144
405	BorderSpacing.Top = 4
406	BorderSpacing.Right = 8
407	BorderSpacing.Bottom = 6
408	BorderWidth = 2
409	ButtonColorAutoSize = False
410	ButtonColorSize = 16
411	ButtonColor = clBackground
412	Caption = 'Foreground color'
413	OnColorChanged = BarcodeChange
414	end
415	object clbColor: TColorButton
416	AnchorSideLeft.Control = gbColors
417	AnchorSideTop.Control = gbColors
418	Left = 8
419	Height = 25
420	Top = 0
421	Width = 144
422	BorderSpacing.Left = 8
423	BorderSpacing.Right = 8
424	BorderWidth = 2
425	ButtonColorAutoSize = False
426	ButtonColorSize = 16
427	ButtonColor = clWindow
428	Caption = 'Control color '
429	OnColorChanged = BarcodeChange
430	end
431	end
432	object btnSaveToFile: TBitBtn
433	AnchorSideLeft.Control = btnCopyToClipboard
434	AnchorSideTop.Control = gbColors
435	AnchorSideRight.Control = btnCopyToClipboard
436	AnchorSideRight.Side = asrBottom
437	Left = 205
438	Height = 25
439	Top = 233
440	Width = 128
441	Anchors = [akTop, akLeft, akRight]
442	AutoSize = True
443	BorderSpacing.Top = 9
444	Caption = 'Save to file...'
445	OnClick = btnSaveToFileClick
446	TabOrder = 4
447	end
448	object btnCopyToClipboard: TBitBtn
449	AnchorSideLeft.Control = gbChecksum
450	AnchorSideTop.Control = btnSaveToFile
451	AnchorSideTop.Side = asrBottom
452	AnchorSideRight.Side = asrBottom
453	Left = 205
454	Height = 25
455	Top = 264
456	Width = 128
457	AutoSize = True
458	BorderSpacing.Top = 6
459	Caption = 'Copy to clipboard'
460	OnClick = btnCopyToClipboardClick
461	TabOrder = 5
462	end
463	object btnSampleText: TSpeedButton
464	AnchorSideTop.Control = edText
465	AnchorSideTop.Side = asrCenter
466	AnchorSideRight.Control = Panel2
467	AnchorSideRight.Side = asrBottom
468	Left = 522
469	Height = 19
470	Top = 2
471	Width = 72
472	Anchors = [akTop, akRight]
473	AutoSize = True
474	Caption = ' Sample text '
475	OnClick = btnSampleTextClick
476	end
477	object nbOptions: TNotebook
478	AnchorSideLeft.Control = gbShow
479	AnchorSideLeft.Side = asrBottom
480	AnchorSideTop.Control = gbGeometry
481	Left = 438
482	Height = 293
483	Top = 35
484	Width = 152
485	PageIndex = 0
486	BorderSpacing.Left = 16
487	TabOrder = 7
488	object pgOptions_QR: TPage
489	object rgQR_ECCLevel: TRadioGroup
490	Left = 0
491	Height = 137
492	Top = 0
493	Width = 152
494	Align = alTop
495	AutoFill = True
496	Caption = 'ECC level'
497	ChildSizing.LeftRightSpacing = 6
498	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
499	ChildSizing.EnlargeVertical = crsHomogenousChildResize
500	ChildSizing.ShrinkHorizontal = crsScaleChilds
501	ChildSizing.ShrinkVertical = crsScaleChilds
502	ChildSizing.Layout = cclLeftToRightThenTopToBottom
503	ChildSizing.ControlsPerLine = 1
504	ClientHeight = 117
505	ClientWidth = 148
506	ItemIndex = 0
507	Items.Strings = (
508	'automatic'
509	'L'
510	'M'
511	'Q'
512	'H'
513	)
514	OnClick = rgQR_ECCLevelClick
515	TabOrder = 0
516	end
517	end
518	object pgOptions_Plessey: TPage
519	object rgPlessey_Checkchar: TRadioGroup
520	Left = 0
521	Height = 104
522	Top = 0
523	Width = 152
524	Align = alTop
525	AutoFill = True
526	Caption = 'Checksum options'
527	ChildSizing.LeftRightSpacing = 6
528	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
529	ChildSizing.EnlargeVertical = crsHomogenousChildResize
530	ChildSizing.ShrinkHorizontal = crsScaleChilds
531	ChildSizing.ShrinkVertical = crsScaleChilds
532	ChildSizing.Layout = cclLeftToRightThenTopToBottom
533	ChildSizing.ControlsPerLine = 1
534	ClientHeight = 104
535	ClientWidth = 152
536	ItemIndex = 0
537	Items.Strings = (
538	'mod-10'
539	'mod-10 & mod-10'
540	'mod-11'
541	'mod-10 & mod-11'
542	)
543	OnClick = rgPlessey_CheckcharClick
544	TabOrder = 0
545	end
546	end
547	end
548	end
549	object BarcodePanel: TPanel
550	Left = 0
551	Height = 136
552	Top = 336
553	Width = 594
554	Align = alClient
555	BorderSpacing.InnerBorder = 6
556	BevelInner = bvRaised
557	BevelOuter = bvLowered
558	ClientHeight = 136
559	ClientWidth = 594
560	TabOrder = 1
561	object lblError: TLabel
562	AnchorSideLeft.Control = BarcodePanel
563	AnchorSideTop.Control = BarcodePanel
564	AnchorSideTop.Side = asrCenter
565	AnchorSideRight.Control = BarcodePanel
566	AnchorSideRight.Side = asrBottom
567	Left = 2
568	Height = 15
569	Top = 61
570	Width = 590
571	Alignment = taCenter
572	Anchors = [akTop, akLeft, akRight]
573	Caption = 'lblError'
574	Font.Color = clRed
575	Font.Style = [fsBold]
576	ParentFont = False
577	Visible = False
578	WordWrap = True
579	end
580	end
581	end
582	object Splitter1: TSplitter
583	Left = 203
584	Height = 484
585	Top = 0
586	Width = 5
587	end
588	object FontDialog: TFontDialog
589	MinFontSize = 0
590	MaxFontSize = 0
591	Left = 568
592	Top = 8
593	end
594	object SaveDialog1: TSaveDialog
595	OnTypeChange = SaveDialogTypeChange
596	Left = 681
597	Top = 210
598	end
599	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format