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
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
object frPrintForm: TfrPrintForm
Left = 414
Height = 296
Top = 173
Width = 390
HorzScrollBar.Page = 367
VertScrollBar.Page = 269
ActiveControl = OkButton
BorderStyle = bsDialog
Caption = 'Print'
ClientHeight = 296
ClientWidth = 390
OnCreate = FormCreate
OnDeactivate = FormDeactivate
Position = poScreenCenter
LCLVersion = '1.3'
object Image1: TImage
Left = 336
Height = 16
Top = 176
Width = 18
AutoSize = True
Picture.Data = {
07544269746D617036010000424D360100000000000076000000280000001200
0000100000000100040000000000C00000000000000000000000100000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00333333333333333333000000333333300033333333000000333330088800
33333300000033300887888800333300000030088777888888003300000038F7
777F888888880300000038F77FF7778888880300000038FFF779977788880300
000038F77AA777770788030000003388F77777FF070033000000333388F8FFFF
F0333300000033333388FFFFFF0333000000333333338FFFFFF0030000003333
333338FFF8833300000033333333338883333300000033333333333333333300
0000
}
Visible = False
end
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = E1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 21
Top = 90
Width = 44
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Copies'
ParentColor = False
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = E1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CancelButton
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 173
Top = 117
Width = 316
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Page range'
ClientHeight = 150
ClientWidth = 312
TabOrder = 0
object Label2: TLabel
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = E2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox2
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 43
Top = 101
Width = 300
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = False
BorderSpacing.Around = 6
Caption = 'Enter page numbers and/or page ranges, separated by commas. For example, 1,3,5-12'
ParentColor = False
WordWrap = True
end
object RB1: TRadioButton
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2
Left = 6
Height = 23
Top = 6
Width = 40
HelpContext = 108
BorderSpacing.Around = 6
Caption = 'All'
Checked = True
TabOrder = 0
TabStop = True
end
object RB2: TRadioButton
AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = RB1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 35
Width = 108
HelpContext = 118
BorderSpacing.Around = 6
Caption = 'Current &page'
TabOrder = 1
end
object RB3: TRadioButton
AnchorSideLeft.Control = GroupBox2
AnchorSideBottom.Control = E2
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 23
Top = 72
Width = 86
HelpContext = 124
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = '&Numbers:'
OnClick = RB3Click
TabOrder = 2
end
object E2: TEdit
AnchorSideLeft.Control = RB3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RB2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox2
AnchorSideRight.Side = asrBottom
Left = 98
Height = 31
Top = 64
Width = 208
HelpContext = 133
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
OnClick = E2Click
TabOrder = 3
end
end
object OkButton: TButton
AnchorSideLeft.Control = CancelButton
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 328
Height = 33
Top = 80
Width = 56
HelpContext = 40
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Ok'
Default = True
ModalResult = 1
TabOrder = 1
end
object CancelButton: TButton
AnchorSideTop.Control = OkButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 328
Height = 33
Top = 119
Width = 56
HelpContext = 50
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 68
Top = 6
Width = 378
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Printer'
ClientHeight = 45
ClientWidth = 374
TabOrder = 3
object PropButton: TButton
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 289
Height = 33
Top = 6
Width = 79
HelpContext = 152
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Properties'
OnClick = PropButtonClick
TabOrder = 0
end
object CB1: TComboBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = PropButton
Left = 6
Height = 33
Top = 6
Width = 277
HelpContext = 142
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 0
OnChange = CB1Click
OnClick = CB1Click
OnDrawItem = CB1DrawItem
ReadOnly = True
Style = csOwnerDrawFixed
TabOrder = 1
end
end
object cbCollate: TCheckBox
AnchorSideLeft.Control = E1
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = E1
AnchorSideBottom.Side = asrBottom
Left = 143
Height = 23
Top = 88
Width = 70
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Collate'
TabOrder = 4
end
object E1: TSpinEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
Left = 56
Height = 31
Top = 80
Width = 81
BorderSpacing.Around = 6
TabOrder = 5
Value = 1
end
object PrinterSetupDialog1: TPrinterSetupDialog
left = 264
top = 80
end
end
|
