File: frmselprinter.lfm

package info (click to toggle)
lazarus 1.6.2%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 172,444 kB
  • ctags: 124,173
  • sloc: pascal: 1,528,777; xml: 260,232; sh: 3,008; java: 603; makefile: 512; perl: 297; sql: 222; ansic: 137
file content (291 lines) | stat: -rw-r--r-- 6,064 bytes parent folder | download | duplicates (2)
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
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
object Form1: TForm1
  Left = 106
  Height = 683
  Top = 121
  Width = 489
  ActiveControl = Button7
  Caption = 'Form1'
  ClientHeight = 683
  ClientWidth = 489
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '1.3'
  object Label1: TLabel
    Left = 12
    Height = 13
    Top = 4
    Width = 229
    Caption = 'This sample show how to use the printer dialogs'
    ParentColor = False
  end
  object Button2: TButton
    Left = 8
    Height = 27
    Top = 51
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute TPrinterSetupDialog'
    OnClick = Button2Click
    TabOrder = 0
  end
  object btnTPrintDialog: TButton
    Left = 8
    Height = 27
    Top = 78
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute TPrintDialog'
    OnClick = btnTPrintDialogClick
    TabOrder = 1
  end
  object SGrid: TStringGrid
    Left = 8
    Height = 411
    Top = 264
    Width = 469
    AlternateColor = clCream
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    ColCount = 2
    Columns = <    
      item
        Color = clBtnFace
        SizePriority = 0
        Title.Caption = 'Property'
        Width = 120
      end    
      item
        MinSize = 60
        MaxSize = 350
        ReadOnly = True
        Title.Caption = 'Value'
        Width = 345
      end>
    DefaultColWidth = 120
    FixedCols = 0
    FixedRows = 0
    Options = [goVertLine, goRangeSelect, goSmoothScroll]
    RowCount = 15
    TabOrder = 7
    TitleStyle = tsNative
    OnSelectCell = SGridSelectCell
    ColWidths = (
      120
      345
    )
  end
  object Button3: TButton
    Left = 8
    Height = 27
    Top = 105
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Get default printer info'
    OnClick = Button3Click
    TabOrder = 2
  end
  object btnDirectPrint: TButton
    Left = 200
    Height = 27
    Top = 152
    Width = 128
    BorderSpacing.InnerBorder = 4
    Caption = 'Direct Print'
    OnClick = btnDirectPrintClick
    TabOrder = 3
  end
  object Button5: TButton
    Left = 8
    Height = 25
    Top = 132
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Update printer state info'
    OnClick = Button5Click
    TabOrder = 4
  end
  object Button6: TButton
    Left = 8
    Height = 25
    Top = 157
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Show printer properties'
    OnClick = Button6Click
    TabOrder = 5
  end
  object Button7: TButton
    Left = 8
    Height = 27
    Top = 24
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute TPageSetupDialog'
    OnClick = Button7Click
    TabOrder = 6
  end
  object chkTestImgs: TCheckBox
    Left = 407
    Height = 17
    Top = 100
    Width = 65
    Caption = 'Test Imgs'
    TabOrder = 8
  end
  object chkOutputFile: TCheckBox
    Left = 195
    Height = 17
    Top = 27
    Width = 71
    Caption = 'Output File'
    TabOrder = 9
  end
  object txtOutputFile: TFileNameEdit
    Left = 195
    Height = 21
    Top = 48
    Width = 261
    DialogKind = dkSave
    DialogOptions = []
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    Anchors = [akTop, akLeft, akRight]
    MaxLength = 0
    TabOrder = 10
  end
  object Label2: TLabel
    Left = 20
    Height = 13
    Top = 188
    Width = 94
    Alignment = taRightJustify
    Caption = 'PageSetupDlg Title:'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 5
    Height = 13
    Top = 212
    Width = 102
    Alignment = taRightJustify
    Caption = 'PrinterSetupDlg Title:'
    ParentColor = False
  end
  object txtPageSetupDlgTitle: TEdit
    Left = 184
    Height = 21
    Top = 188
    Width = 293
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 11
    Text = 'Printer Dialogs Tests: PageSetupDialog'
  end
  object txtPrinterSetupDlgTitle: TEdit
    Left = 184
    Height = 21
    Top = 212
    Width = 293
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 12
    Text = 'Printer Dialogs Tests: PrinterSetupDialog'
  end
  object Label4: TLabel
    Left = 38
    Height = 13
    Top = 236
    Width = 78
    Alignment = taRightJustify
    Caption = 'PrintDialog Title:'
    ParentColor = False
  end
  object txtPrintDialogTitle: TEdit
    Left = 184
    Height = 21
    Top = 236
    Width = 293
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 13
    Text = 'Printer Dialogs Tests: PrinterDialog'
  end
  object btnRotateBin: TButton
    Left = 195
    Height = 25
    Top = 72
    Width = 127
    Anchors = [akTop, akRight]
    Caption = 'Rotate Bin'
    OnClick = btnRotateBinClick
    TabOrder = 14
  end
  object btnRestoreDefaultBin: TButton
    Left = 332
    Height = 25
    Top = 72
    Width = 123
    Anchors = [akTop, akRight]
    Caption = 'Restore Default Bin'
    OnClick = btnRestoreDefaultBinClick
    TabOrder = 15
  end
  object btnPrintWithDlg: TButton
    Left = 334
    Height = 27
    Top = 152
    Width = 142
    Caption = 'Print with Dialog'
    OnClick = btnPrintWithDlgClick
    TabOrder = 16
  end
  object comboTests: TComboBox
    Left = 200
    Height = 21
    Top = 120
    Width = 272
    ItemHeight = 13
    ItemIndex = 0
    Items.Strings = (
      'Single Page'
      'Single Page with Images'
      'Multi-Page'
    )
    Style = csDropDownList
    TabOrder = 17
    Text = 'Single Page'
  end
  object Label5: TLabel
    Left = 200
    Height = 13
    Top = 104
    Width = 30
    Caption = 'Tests:'
    ParentColor = False
  end
  object PSD: TPrinterSetupDialog
    Title = 'Testing dialog title'
    left = 172
    top = 452
  end
  object PD: TPrintDialog
    Title = 'Testing title'
    Collate = True
    FromPage = 2
    MinPage = 2
    MaxPage = 5
    Options = [poPrintToFile, poPageNums, poSelection, poWarning, poHelp]
    PrintToFile = True
    ToPage = 3
    left = 172
    top = 484
  end
  object PopupMenu1: TPopupMenu
    left = 212
    top = 452
  end
  object PAGED: TPageSetupDialog
    Title = 'Ustawienie strony raportu'
    left = 172
    top = 516
  end
end