lazarus/examples/postscript/usamplepostscriptcanvas.lfm
2009-07-17 21:14:58 +00:00

94 lines
1.6 KiB
Plaintext

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