mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-22 12:02:29 +02:00
91 lines
2.0 KiB
Plaintext
91 lines
2.0 KiB
Plaintext
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
|