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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
object framePageSetup: TframePageSetup
Left = 0
Height = 435
Top = 0
Width = 403
ClientHeight = 435
ClientWidth = 403
TabOrder = 0
DesignLeft = 388
DesignTop = 96
object panSetup: TPanel
Left = 0
Height = 211
Top = 224
Width = 403
Align = alBottom
BevelOuter = bvNone
ClientHeight = 211
ClientWidth = 403
TabOrder = 0
object gpPaper: TGroupBox
Left = 6
Height = 98
Top = 6
Width = 391
Align = alTop
BorderSpacing.Around = 6
Caption = 'Paper'
ClientHeight = 81
ClientWidth = 387
TabOrder = 0
object lblPaper: TLabel
Left = 14
Height = 16
Top = 11
Width = 39
Caption = 'Paper:'
ParentColor = False
end
object lblSource: TLabel
Left = 14
Height = 16
Top = 51
Width = 46
Caption = 'Source:'
ParentColor = False
end
object cbPaper: TComboBox
Left = 78
Height = 29
Top = 3
Width = 302
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
OnChange = cbPaperChange
Style = csDropDownList
TabOrder = 0
end
object cbSource: TComboBox
Left = 78
Height = 29
Top = 43
Width = 302
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
Style = csDropDownList
TabOrder = 1
end
end
object gpOrientation: TGroupBox
Left = 6
Height = 95
Top = 110
Width = 120
Align = alLeft
BorderSpacing.Around = 6
Caption = 'Orientation'
ClientHeight = 78
ClientWidth = 116
TabOrder = 1
object radPortrait: TRadioButton
Left = 14
Height = 21
Top = 14
Width = 65
Caption = 'Portrait'
Checked = True
OnClick = radPortraitClick
State = cbChecked
TabOrder = 0
end
object radLandscape: TRadioButton
Left = 14
Height = 21
Top = 44
Width = 86
Caption = 'Landscape'
OnClick = radPortraitClick
TabOrder = 1
TabStop = False
end
end
object gpMargins: TGroupBox
Left = 132
Height = 95
Top = 110
Width = 265
Align = alClient
BorderSpacing.Around = 6
Caption = 'Margins'
ClientHeight = 78
ClientWidth = 261
TabOrder = 2
object panMargins: TPanel
AnchorSideLeft.Control = gpMargins
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = gpMargins
AnchorSideTop.Side = asrCenter
Left = 6
Height = 72
Top = 3
Width = 249
BevelOuter = bvSpace
ClientHeight = 72
ClientWidth = 249
TabOrder = 0
object lblBottom: TLabel
Left = 127
Height = 16
Top = 50
Width = 47
Caption = 'Bottom:'
ParentColor = False
end
object lblTop: TLabel
Left = 6
Height = 16
Top = 48
Width = 25
Caption = 'Top:'
ParentColor = False
end
object lblRight: TLabel
Left = 127
Height = 16
Top = 14
Width = 35
Caption = 'Right:'
ParentColor = False
end
object lblLeft: TLabel
Left = 6
Height = 16
Top = 14
Width = 26
Caption = 'Left:'
ParentColor = False
end
object txtBottom: TEdit
Left = 183
Height = 25
Top = 43
Width = 64
TabOrder = 0
end
object txtTop: TEdit
Left = 40
Height = 25
Top = 43
Width = 56
TabOrder = 1
end
object txtRight: TEdit
Left = 183
Height = 25
Top = 7
Width = 64
TabOrder = 2
end
object txtLeft: TEdit
Left = 40
Height = 25
Top = 7
Width = 56
TabOrder = 3
end
end
end
end
object panPreview: TPanel
AnchorSideTop.Control = panSetup
Left = 0
Height = 224
Top = 0
Width = 403
Align = alClient
BevelOuter = bvNone
ClientHeight = 224
ClientWidth = 403
Constraints.MinHeight = 142
TabOrder = 1
OnMouseDown = pbPreviewMouseDown
OnResize = panPreviewResize
object pbPreview: TPaintBox
AnchorSideLeft.Control = panPreview
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = panPreview
AnchorSideTop.Side = asrCenter
Left = 151
Height = 130
Top = 47
Width = 100
OnMouseDown = pbPreviewMouseDown
OnMouseWheelDown = pbPreviewMouseWheelDown
OnMouseWheelUp = pbPreviewMouseWheelUp
OnPaint = pbPreviewPaint
end
end
end
|
