PageRenderTime 21ms CodeModel.GetById 17ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/examples/postscript/usamplepostscriptcanvas.lfm

http://github.com/graemeg/lazarus
Unknown | 128 lines | 128 code | 0 blank | 0 comment | 0 complexity | 33fdfbd6c2bf2ac1034b70fb9762e811 MD5 | raw file
  1object 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
128end