File: usamplepostscriptcanvas.lfm

package info (click to toggle)
lazarus 2.0.10%2Bdfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 219,188 kB
  • sloc: pascal: 1,867,962; xml: 265,716; cpp: 56,595; sh: 3,005; java: 609; makefile: 568; perl: 297; sql: 222; ansic: 137
file content (128 lines) | stat: -rw-r--r-- 2,558 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
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