/components/printers/samples/rawmode/unitmain.lfm

 1object Form1: TForm1
 2  Left = 265
 3  Height = 369
 4  Top = 181
 5  Width = 452
 6  HorzScrollBar.Page = 427
 7  VertScrollBar.Page = 301
 8  ActiveControl = ListBox1
 9  Caption = 'RawMode Print Test'
10  ClientHeight = 369
11  ClientWidth = 452
12  Constraints.MaxHeight = 400
13  Constraints.MinHeight = 240
14  OnCreate = FormCreate
15  LCLVersion = '0.9.29'
16  object Label1: TLabel
17    Left = 12
18    Height = 16
19    Top = 8
20    Width = 80
21    Caption = 'Printers List:'
22    ParentColor = False
23  end
24  object Label2: TLabel
25    Left = 11
26    Height = 16
27    Top = 144
28    Width = 80
29    Caption = 'Text to print:'
30    ParentColor = False
31  end
32  object Label3: TLabel
33    Left = 96
34    Height = 71
35    Top = 292
36    Width = 344
37    Anchors = [akLeft, akRight, akBottom]
38    AutoSize = False
39    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.'
40    ParentColor = False
41    WordWrap = True
42  end
43  object ListBox1: TListBox
44    Left = 11
45    Height = 115
46    Top = 25
47    Width = 430
48    Anchors = [akTop, akLeft, akRight]
49    ItemHeight = 0
50    TabOrder = 0
51    TopIndex = -1
52  end
53  object Button1: TButton
54    Left = 11
55    Height = 25
56    Top = 334
57    Width = 75
58    Anchors = [akLeft, akBottom]
59    BorderSpacing.InnerBorder = 4
60    Caption = 'Print'
61    OnClick = Button1Click
62    TabOrder = 1
63  end
64  object Memo1: TMemo
65    Left = 11
66    Height = 125
67    Top = 162
68    Width = 430
69    Anchors = [akTop, akLeft, akRight, akBottom]
70    Lines.Strings = (
71      ''
72      'H E L L O'
73      ''
74      'Sending raw data to attached printer'
75      'is very easy with Printer.RawMode'
76      ''
77      'And it''s portable!'
78    )
79    TabOrder = 2
80  end
81end