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
|
object Form1: TForm1
Left = 265
Height = 400
Top = 181
Width = 478
HorzScrollBar.Page = 427
VertScrollBar.Page = 301
ActiveControl = ListBox1
Caption = 'RawMode Print Test'
ClientHeight = 400
ClientWidth = 478
Constraints.MaxHeight = 400
Constraints.MinHeight = 240
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Label1: TLabel
Left = 12
Height = 16
Top = 8
Width = 79
Caption = 'Printers List:'
ParentColor = False
end
object Label2: TLabel
Left = 11
Height = 16
Top = 144
Width = 84
Caption = 'Text to print:'
ParentColor = False
end
object Label3: TLabel
Left = 96
Height = 87
Top = 307
Width = 370
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
Caption = 'NOTE: This sample is meant to sent an alphanumeric string to a Dot-Matrix class printer which doesn''t need special codes to start printing. Label, LaserJet or DeskJet printers might need'#10'some special prefix codes to work correctly.'
ParentColor = False
WordWrap = True
end
object ListBox1: TListBox
Left = 11
Height = 115
Top = 25
Width = 456
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
TabOrder = 0
end
object Button1: TButton
Left = 11
Height = 25
Top = 307
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.InnerBorder = 4
Caption = 'Print'
OnClick = Button1Click
TabOrder = 1
end
object Memo1: TMemo
Left = 11
Height = 140
Top = 162
Width = 456
Anchors = [akTop, akLeft, akRight, akBottom]
Lines.Strings = (
''
'H E L L O'
''
'Sending raw data to attached printer'
'is very easy with Printer.RawMode'
''
'And it''s portable!'
)
TabOrder = 2
end
object btnZPL: TButton
Left = 11
Height = 25
Hint = 'Select a Zebra printer from the list'#10'and press this button. A label should'#10'be printed.'
Top = 341
Width = 75
Caption = 'Zebra Test'
OnClick = btnZPLClick
TabOrder = 3
end
end
|
