/examples/postscript/usamplepostscriptcanvas.lfm
http://github.com/graemeg/lazarus · Unknown · 128 lines · 128 code · 0 blank · 0 comment · 0 complexity · 33fdfbd6c2bf2ac1034b70fb9762e811 MD5 · raw file
- object Form1: TForm1
- Left = 420
- Height = 219
- Top = 276
- Width = 486
- ActiveControl = Button1
- Caption = 'Form1'
- ClientHeight = 219
- ClientWidth = 486
- OnCreate = FormCreate
- LCLVersion = '1.3'
- object Label1: TLabel
- Left = 108
- Height = 21
- Top = 8
- Width = 117
- Caption = 'Select Paper Size'
- ParentColor = False
- end
- object Label2: TLabel
- Left = 8
- Height = 21
- Top = 8
- Width = 84
- Caption = 'Resolution X'
- ParentColor = False
- end
- object Label3: TLabel
- Left = 8
- Height = 21
- Top = 64
- Width = 83
- Caption = 'Resolution Y'
- ParentColor = False
- end
- object Button1: TButton
- Left = 264
- Height = 25
- Top = 8
- Width = 212
- BorderSpacing.InnerBorder = 4
- Caption = 'Generate a PostScript file'
- OnClick = Button1Click
- TabOrder = 0
- end
- object Button2: TButton
- Left = 264
- Height = 25
- Top = 40
- Width = 212
- BorderSpacing.InnerBorder = 4
- Caption = 'Show this file (kghostview)'
- OnClick = Button2Click
- TabOrder = 1
- end
- object ListBox1: TListBox
- Left = 104
- Height = 87
- Top = 28
- Width = 124
- Items.Strings = (
- 'A4'
- 'Letter'
- )
- ItemHeight = 27
- ScrollWidth = 122
- TabOrder = 2
- end
- object txtResX: TEdit
- Left = 8
- Height = 31
- Top = 28
- Width = 80
- TabOrder = 3
- Text = '72'
- end
- object txtResY: TEdit
- Left = 8
- Height = 31
- Top = 84
- Width = 80
- TabOrder = 4
- Text = '72'
- end
- object Button3: TButton
- Left = 264
- Height = 25
- Top = 80
- Width = 211
- Caption = 'Test Transparent Image'
- OnClick = Button3Click
- TabOrder = 5
- end
- object btnTestFonts: TButton
- Left = 264
- Height = 25
- Top = 112
- Width = 211
- Caption = 'Test Fonts'
- OnClick = btnTestFontsClick
- TabOrder = 6
- end
- object gpOrientation: TRadioGroup
- Left = 8
- Height = 96
- Top = 120
- Width = 220
- AutoFill = True
- Caption = 'Orientation'
- ChildSizing.LeftRightSpacing = 6
- ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
- ChildSizing.EnlargeVertical = crsHomogenousChildResize
- ChildSizing.ShrinkHorizontal = crsScaleChilds
- ChildSizing.ShrinkVertical = crsScaleChilds
- ChildSizing.Layout = cclLeftToRightThenTopToBottom
- ChildSizing.ControlsPerLine = 1
- ClientHeight = 73
- ClientWidth = 216
- ItemIndex = 0
- Items.Strings = (
- 'Portrait'
- 'Reverse Portrait'
- 'Landscape'
- 'Reverse Landscape'
- )
- TabOrder = 7
- end
- end