lazarus/examples/postscript/usamplepostscriptcanvas.lfm

94 lines
1.6 KiB
Plaintext

object Form1: TForm1
Left = 420
Height = 118
Top = 276
Width = 486
ActiveControl = Button1
Caption = 'Form1'
ClientHeight = 118
ClientWidth = 486
OnCreate = FormCreate
LCLVersion = '0.9.29'
object Label1: TLabel
Left = 108
Height = 16
Top = 8
Width = 112
Caption = 'Select Paper Size'
ParentColor = False
end
object Label2: TLabel
Left = 8
Height = 16
Top = 8
Width = 78
Caption = 'Resolution X'
ParentColor = False
end
object Label3: TLabel
Left = 8
Height = 16
Top = 64
Width = 77
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 = 79
Top = 28
Width = 124
Items.Strings = (
'A4'
'Letter'
)
ItemHeight = 21
TabOrder = 2
end
object txtResX: TEdit
Left = 8
Height = 21
Top = 28
Width = 80
TabOrder = 3
Text = '72'
end
object txtResY: TEdit
Left = 8
Height = 21
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
end