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

http://github.com/graemeg/lazarus · Unknown · 81 lines · 81 code · 0 blank · 0 comment · 0 complexity · 7e279fde237c96e68fcf5b78fb76023d MD5 · raw file

  1. object 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
  81. end