lazarus/examples/postscript/usamplepostscriptcanvas.lfm

object Form1: TForm1
  Left = 420
  Height = 219
  Top = 276
  Width = 486
  ActiveControl = Button1
  Caption = 'Form1'
  ClientHeight = 219
  ClientWidth = 486
  OnCreate = FormCreate
  LCLVersion = '1.7'
  object Label1: TLabel
    Left = 108
    Height = 14
    Top = 8
    Width = 103
    Caption = 'Select Paper Size'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 8
    Height = 14
    Top = 8
    Width = 75
    Caption = 'Resolution X'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 8
    Height = 14
    Top = 64
    Width = 75
    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 = 20
    Options = [lboDrawFocusRect]
    TabOrder = 2
  end
  object txtResX: TEdit
    Left = 8
    Height = 28
    Top = 28
    Width = 80
    TabOrder = 3
    Text = '72'
  end
  object txtResY: TEdit
    Left = 8
    Height = 28
    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 = 70
    ClientWidth = 216
    ItemIndex = 0
    Items.Strings = (
      'Portrait'
      'Reverse Portrait'
      'Landscape'
      'Reverse Landscape'
    )
    TabOrder = 7
  end
end