/examples/postscript/usamplepostscriptcanvas.lfm

http://github.com/graemeg/lazarus · Unknown · 128 lines · 128 code · 0 blank · 0 comment · 0 complexity · 33fdfbd6c2bf2ac1034b70fb9762e811 MD5 · raw file

  1. object Form1: TForm1
  2. Left = 420
  3. Height = 219
  4. Top = 276
  5. Width = 486
  6. ActiveControl = Button1
  7. Caption = 'Form1'
  8. ClientHeight = 219
  9. ClientWidth = 486
  10. OnCreate = FormCreate
  11. LCLVersion = '1.3'
  12. object Label1: TLabel
  13. Left = 108
  14. Height = 21
  15. Top = 8
  16. Width = 117
  17. Caption = 'Select Paper Size'
  18. ParentColor = False
  19. end
  20. object Label2: TLabel
  21. Left = 8
  22. Height = 21
  23. Top = 8
  24. Width = 84
  25. Caption = 'Resolution X'
  26. ParentColor = False
  27. end
  28. object Label3: TLabel
  29. Left = 8
  30. Height = 21
  31. Top = 64
  32. Width = 83
  33. Caption = 'Resolution Y'
  34. ParentColor = False
  35. end
  36. object Button1: TButton
  37. Left = 264
  38. Height = 25
  39. Top = 8
  40. Width = 212
  41. BorderSpacing.InnerBorder = 4
  42. Caption = 'Generate a PostScript file'
  43. OnClick = Button1Click
  44. TabOrder = 0
  45. end
  46. object Button2: TButton
  47. Left = 264
  48. Height = 25
  49. Top = 40
  50. Width = 212
  51. BorderSpacing.InnerBorder = 4
  52. Caption = 'Show this file (kghostview)'
  53. OnClick = Button2Click
  54. TabOrder = 1
  55. end
  56. object ListBox1: TListBox
  57. Left = 104
  58. Height = 87
  59. Top = 28
  60. Width = 124
  61. Items.Strings = (
  62. 'A4'
  63. 'Letter'
  64. )
  65. ItemHeight = 27
  66. ScrollWidth = 122
  67. TabOrder = 2
  68. end
  69. object txtResX: TEdit
  70. Left = 8
  71. Height = 31
  72. Top = 28
  73. Width = 80
  74. TabOrder = 3
  75. Text = '72'
  76. end
  77. object txtResY: TEdit
  78. Left = 8
  79. Height = 31
  80. Top = 84
  81. Width = 80
  82. TabOrder = 4
  83. Text = '72'
  84. end
  85. object Button3: TButton
  86. Left = 264
  87. Height = 25
  88. Top = 80
  89. Width = 211
  90. Caption = 'Test Transparent Image'
  91. OnClick = Button3Click
  92. TabOrder = 5
  93. end
  94. object btnTestFonts: TButton
  95. Left = 264
  96. Height = 25
  97. Top = 112
  98. Width = 211
  99. Caption = 'Test Fonts'
  100. OnClick = btnTestFontsClick
  101. TabOrder = 6
  102. end
  103. object gpOrientation: TRadioGroup
  104. Left = 8
  105. Height = 96
  106. Top = 120
  107. Width = 220
  108. AutoFill = True
  109. Caption = 'Orientation'
  110. ChildSizing.LeftRightSpacing = 6
  111. ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
  112. ChildSizing.EnlargeVertical = crsHomogenousChildResize
  113. ChildSizing.ShrinkHorizontal = crsScaleChilds
  114. ChildSizing.ShrinkVertical = crsScaleChilds
  115. ChildSizing.Layout = cclLeftToRightThenTopToBottom
  116. ChildSizing.ControlsPerLine = 1
  117. ClientHeight = 73
  118. ClientWidth = 216
  119. ItemIndex = 0
  120. Items.Strings = (
  121. 'Portrait'
  122. 'Reverse Portrait'
  123. 'Landscape'
  124. 'Reverse Landscape'
  125. )
  126. TabOrder = 7
  127. end
  128. end