PageRenderTime 24ms CodeModel.GetById 9ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 8ms

/components/printers/unix/udlgselectprinter.lfm

http://github.com/graemeg/lazarus
Unknown | 548 lines | 548 code | 0 blank | 0 comment | 0 complexity | c34f0b19c6b536580c583f297468fa33 MD5 | raw file
  1object dlgSelectPrinter: TdlgSelectPrinter
  2  Left = 330
  3  Height = 441
  4  Top = 111
  5  Width = 563
  6  ActiveControl = btnProp
  7  BorderIcons = [biSystemMenu]
  8  BorderStyle = bsDialog
  9  Caption = 'Printing'
 10  ClientHeight = 441
 11  ClientWidth = 563
 12  OnCreate = dlgSelectPrinterCREATE
 13  OnShow = dlgSelectPrinterSHOW
 14  Position = poScreenCenter
 15  LCLVersion = '1.5'
 16  object PrinterGroupbox: TGroupBox
 17    Left = 6
 18    Height = 137
 19    Top = 6
 20    Width = 551
 21    Align = alTop
 22    BorderSpacing.Around = 6
 23    Caption = ' Printer '
 24    ClientHeight = 118
 25    ClientWidth = 547
 26    TabOrder = 0
 27    object labState: TLabel
 28      Left = 96
 29      Height = 17
 30      Top = 49
 31      Width = 57
 32      Caption = 'labState'
 33      ParentColor = False
 34    end
 35    object labLocation: TLabel
 36      Left = 96
 37      Height = 17
 38      Top = 73
 39      Width = 80
 40      Caption = 'labLocation'
 41      ParentColor = False
 42    end
 43    object labComment: TLabel
 44      Left = 96
 45      Height = 17
 46      Top = 97
 47      Width = 87
 48      Caption = 'labComment'
 49      ParentColor = False
 50    end
 51    object ImgPrn: TImage
 52      Left = 96
 53      Height = 17
 54      Top = 12
 55      Width = 17
 56    end
 57    object PrinterNameLabel: TLabel
 58      Left = 250
 59      Height = 17
 60      Top = 8
 61      Width = 40
 62      Anchors = []
 63      Caption = 'Name'
 64      ParentColor = False
 65    end
 66    object PrinterStateLabel: TLabel
 67      Left = 10
 68      Height = 17
 69      Top = 49
 70      Width = 36
 71      Caption = 'State'
 72      ParentColor = False
 73      OnChangeBounds = PrinterStateLabelChangeBounds
 74    end
 75    object PrinterLocationLabel: TLabel
 76      Left = 10
 77      Height = 17
 78      Top = 73
 79      Width = 59
 80      Caption = 'Location'
 81      ParentColor = False
 82    end
 83    object PrinterDescriptionLabel: TLabel
 84      Left = 10
 85      Height = 17
 86      Top = 97
 87      Width = 78
 88      Caption = 'Description'
 89      ParentColor = False
 90    end
 91    object labPrinterName: TLabel
 92      Left = 10
 93      Height = 17
 94      Top = 12
 95      Width = 40
 96      Caption = 'Name'
 97      ParentColor = False
 98      OnChangeBounds = PrinterStateLabelChangeBounds
 99    end
100    object btnProp: TButton
101      AnchorSideLeft.Control = cbPrinters
102      AnchorSideLeft.Side = asrBottom
103      AnchorSideTop.Control = cbPrinters
104      AnchorSideRight.Side = asrBottom
105      Left = 442
106      Height = 29
107      Top = 7
108      Width = 99
109      Anchors = [akTop, akRight]
110      AutoSize = True
111      Caption = 'Properties ...'
112      OnClick = btnPropCLICK
113      TabOrder = 0
114    end
115    object cbPrintToFile: TCheckBox
116      AnchorSideRight.Side = asrBottom
117      Left = 438
118      Height = 24
119      Top = 39
120      Width = 101
121      Anchors = [akRight, akBottom]
122      Caption = 'Print to file'
123      TabOrder = 1
124    end
125    object cbPrinters: TComboBox
126      AnchorSideRight.Control = btnProp
127      Left = 120
128      Height = 31
129      Top = 7
130      Width = 316
131      Anchors = [akTop, akLeft, akRight]
132      BorderSpacing.Right = 6
133      ItemHeight = 0
134      OnChange = cbPrintersCHANGE
135      OnKeyPress = cbPrintersKEYPRESS
136      Style = csDropDownList
137      TabOrder = 2
138    end
139  end
140  object NbOpts: TPageControl
141    Left = 6
142    Height = 217
143    Top = 177
144    Width = 551
145    ActivePage = pgCopies
146    Align = alClient
147    Anchors = [akLeft]
148    BorderSpacing.Around = 6
149    TabIndex = 0
150    TabOrder = 1
151    object pgCopies: TTabSheet
152      Caption = 'Copies'
153      ClientHeight = 186
154      ClientWidth = 547
155      object gbPages: TGroupBox
156        AnchorSideBottom.Control = pgCopies
157        AnchorSideBottom.Side = asrBottom
158        Left = 8
159        Height = 173
160        Top = 7
161        Width = 262
162        Anchors = [akTop, akLeft, akBottom]
163        BorderSpacing.Around = 6
164        Caption = ' Select pages '
165        ClientHeight = 154
166        ClientWidth = 258
167        TabOrder = 0
168        object Bevel1: TBevel
169          AnchorSideTop.Control = edRange
170          AnchorSideTop.Side = asrBottom
171          Left = 8
172          Height = 2
173          Top = 110
174          Width = 240
175          BorderSpacing.Top = 6
176          Shape = bsTopLine
177          Style = bsRaised
178        end
179        object labPage: TLabel
180          AnchorSideTop.Control = Bevel1
181          AnchorSideTop.Side = asrBottom
182          Left = 8
183          Height = 17
184          Top = 124
185          Width = 40
186          BorderSpacing.Top = 12
187          Caption = 'Pages'
188          ParentColor = False
189        end
190        object edRange: TEdit
191          AnchorSideLeft.Control = rbRange
192          AnchorSideLeft.Side = asrBottom
193          AnchorSideTop.Control = rbRange
194          AnchorSideTop.Side = asrCenter
195          AnchorSideRight.Control = gbPages
196          AnchorSideRight.Side = asrBottom
197          Left = 90
198          Height = 27
199          Top = 77
200          Width = 162
201          Anchors = [akTop, akLeft, akRight]
202          BorderSpacing.Left = 15
203          BorderSpacing.Right = 6
204          TabOrder = 0
205        end
206        object edPageSet: TComboBox
207          AnchorSideTop.Control = labPage
208          AnchorSideTop.Side = asrCenter
209          AnchorSideRight.Control = gbPages
210          AnchorSideRight.Side = asrBottom
211          Left = 104
212          Height = 27
213          Top = 119
214          Width = 148
215          Anchors = [akTop, akRight]
216          BorderSpacing.Right = 6
217          ItemHeight = 0
218          ItemIndex = 0
219          Items.Strings = (
220            'All pages'
221            'Odd pages'
222            'Even pages'
223          )
224          Style = csDropDownList
225          TabOrder = 1
226          Text = 'All pages'
227        end
228        object rbCurrentPage: TRadioButton
229          AnchorSideTop.Control = rbAllPage
230          AnchorSideTop.Side = asrBottom
231          Left = 8
232          Height = 24
233          Top = 26
234          Width = 113
235          BorderSpacing.Around = 2
236          Caption = 'Current page'
237          DragCursor = crDefault
238          Enabled = False
239          TabOrder = 2
240        end
241        object rbRange: TRadioButton
242          AnchorSideTop.Control = rbSelection
243          AnchorSideTop.Side = asrBottom
244          Left = 8
245          Height = 24
246          Top = 78
247          Width = 67
248          BorderSpacing.Around = 2
249          Caption = 'Range'
250          DragCursor = crDefault
251          TabOrder = 4
252        end
253        object rbAllPage: TRadioButton
254          Left = 8
255          Height = 24
256          Top = 0
257          Width = 47
258          Caption = 'All '
259          Checked = True
260          DragCursor = crDefault
261          TabOrder = 3
262          TabStop = True
263        end
264        object rbSelection: TRadioButton
265          AnchorSideTop.Control = rbCurrentPage
266          AnchorSideTop.Side = asrBottom
267          Left = 8
268          Height = 24
269          Top = 52
270          Width = 88
271          BorderSpacing.Around = 2
272          Caption = 'Selection'
273          DragCursor = crDefault
274          Enabled = False
275          TabOrder = 5
276        end
277      end
278      object gbCopies: TGroupBox
279        AnchorSideLeft.Control = gbPages
280        AnchorSideLeft.Side = asrBottom
281        AnchorSideRight.Control = pgCopies
282        AnchorSideRight.Side = asrBottom
283        AnchorSideBottom.Control = pgCopies
284        AnchorSideBottom.Side = asrBottom
285        Left = 276
286        Height = 173
287        Top = 7
288        Width = 265
289        Anchors = [akTop, akLeft, akRight, akBottom]
290        BorderSpacing.Around = 6
291        Caption = ' Copies '
292        ClientHeight = 154
293        ClientWidth = 261
294        TabOrder = 1
295        object imgCollate: TImage
296          AnchorSideTop.Control = lanNumCopies
297          AnchorSideTop.Side = asrBottom
298          Left = 6
299          Height = 37
300          Top = 29
301          Width = 93
302          AutoSize = True
303          BorderSpacing.Top = 6
304          Proportional = True
305        end
306        object lanNumCopies: TLabel
307          Left = 6
308          Height = 17
309          Top = 6
310          Width = 120
311          Caption = 'Number of copies'
312          ParentColor = False
313        end
314        object edCopies: TSpinEdit
315          AnchorSideLeft.Control = lanNumCopies
316          AnchorSideLeft.Side = asrBottom
317          AnchorSideTop.Control = lanNumCopies
318          AnchorSideTop.Side = asrCenter
319          Left = 132
320          Height = 27
321          Top = 1
322          Width = 60
323          BorderSpacing.Left = 6
324          TabOrder = 0
325        end
326        object cbCollate: TCheckBox
327          AnchorSideTop.Control = edCopies
328          AnchorSideTop.Side = asrBottom
329          Left = 119
330          Height = 24
331          Top = 34
332          Width = 74
333          AllowGrayed = True
334          BorderSpacing.Around = 6
335          Caption = 'Collate'
336          DragCursor = crDefault
337          OnClick = cbReverseCLICK
338          TabOrder = 2
339        end
340        object cbReverse: TCheckBox
341          AnchorSideTop.Control = cbCollate
342          AnchorSideTop.Side = asrBottom
343          Left = 119
344          Height = 24
345          Top = 64
346          Width = 79
347          AllowGrayed = True
348          BorderSpacing.Around = 6
349          Caption = 'Reverse'
350          DragCursor = crDefault
351          OnClick = cbReverseCLICK
352          TabOrder = 1
353        end
354      end
355    end
356    object pgAdvance: TTabSheet
357      Caption = 'Advanced'
358      ClientHeight = 186
359      ClientWidth = 547
360      object labTask: TLabel
361        Left = 7
362        Height = 14
363        Top = 10
364        Width = 63
365        Caption = 'Delayed task'
366        ParentColor = False
367      end
368      object PrioLabel: TLabel
369        AnchorSideTop.Control = labTask
370        AnchorSideTop.Side = asrBottom
371        Left = 7
372        Height = 14
373        Top = 50
374        Width = 35
375        BorderSpacing.Top = 20
376        BorderSpacing.Around = 6
377        Caption = 'Priority'
378        ParentColor = False
379      end
380      object cbTasktime: TComboBox
381        Left = 215
382        Height = 21
383        Top = 7
384        Width = 200
385        ItemHeight = 0
386        ItemIndex = 0
387        Items.Strings = (
388          'Immediate'
389          'Never (suspending)'
390          'during the day'
391          'evening'
392          'night'
393          'Weekend'
394          'After close of business'
395          'After midnight'
396          'At time'
397        )
398        OnChange = cbTasktimeCHANGE
399        OnKeyPress = cbPrintersKEYPRESS
400        Style = csDropDownList
401        TabOrder = 1
402        Text = 'Immediate'
403      end
404      object edTimeTask: TEdit
405        Left = 423
406        Height = 21
407        Top = 9
408        Width = 83
409        DragCursor = crDefault
410        MaxLength = 8
411        TabOrder = 0
412        Text = '23:00:00'
413      end
414      object edPriority: TSpinEdit
415        AnchorSideTop.Control = PrioLabel
416        AnchorSideTop.Side = asrCenter
417        Left = 127
418        Height = 21
419        Top = 47
420        Width = 50
421        TabOrder = 3
422      end
423      object tkbPriority: TTrackBar
424        AnchorSideLeft.Control = edPriority
425        AnchorSideLeft.Side = asrBottom
426        AnchorSideTop.Control = PrioLabel
427        AnchorSideTop.Side = asrCenter
428        AnchorSideRight.Control = pgAdvance
429        AnchorSideRight.Side = asrBottom
430        Left = 183
431        Height = 38
432        Top = 38
433        Width = 320
434        Frequency = 10
435        Max = 100
436        OnChange = tkbPriorityCHANGE
437        Position = 10
438        TabStop = False
439        TickMarks = tmBoth
440        BorderSpacing.Around = 6
441        DragCursor = crDefault
442        TabOrder = 2
443      end
444    end
445  end
446  object BtnPanel: TPanel
447    Left = 0
448    Height = 41
449    Top = 400
450    Width = 563
451    Align = alBottom
452    Anchors = [akLeft, akBottom]
453    AutoSize = True
454    BevelOuter = bvNone
455    ClientHeight = 41
456    ClientWidth = 563
457    FullRepaint = False
458    TabOrder = 2
459    TabStop = True
460    object btnCancel: TButton
461      Left = 477
462      Height = 29
463      Top = 6
464      Width = 80
465      Align = alRight
466      AutoSize = True
467      BorderSpacing.Around = 6
468      Cancel = True
469      Caption = 'Cancel'
470      Constraints.MinWidth = 80
471      ModalResult = 2
472      TabOrder = 0
473    end
474    object btnPrint: TButton
475      Left = 391
476      Height = 29
477      Top = 6
478      Width = 80
479      Align = alRight
480      AutoSize = True
481      BorderSpacing.Around = 6
482      Caption = 'Print'
483      Constraints.MinWidth = 80
484      Default = True
485      ModalResult = 1
486      OnClick = btnPrintCLICK
487      TabOrder = 1
488    end
489    object btnReduc: TButton
490      Left = 6
491      Height = 29
492      Top = 6
493      Width = 80
494      Align = alLeft
495      AutoSize = True
496      BorderSpacing.Around = 6
497      Caption = 'More ...'
498      Constraints.MinWidth = 80
499      OnClick = btnReducCLICK
500      TabOrder = 2
501    end
502    object btnPreview: TButton
503      Left = 305
504      Height = 29
505      Top = 6
506      Width = 80
507      Align = alRight
508      AutoSize = True
509      BorderSpacing.Around = 6
510      Caption = 'Preview'
511      Constraints.MinWidth = 80
512      ModalResult = 6
513      TabOrder = 3
514    end
515  end
516  object panLabels: TPanel
517    Left = 6
518    Height = 22
519    Top = 149
520    Width = 551
521    Align = alTop
522    BorderSpacing.Around = 6
523    BevelOuter = bvNone
524    ClientHeight = 22
525    ClientWidth = 551
526    TabOrder = 3
527    object labCUPS: TLabel
528      AnchorSideTop.Side = asrBottom
529      Left = 8
530      Height = 17
531      Top = 3
532      Width = 251
533      Caption = 'CUPS (Common Unix Printing System)'
534      ParentColor = False
535    end
536    object labCUPSServer: TLabel
537      AnchorSideLeft.Control = labCUPS
538      AnchorSideLeft.Side = asrBottom
539      Left = 265
540      Height = 17
541      Top = 3
542      Width = 100
543      BorderSpacing.Around = 6
544      Caption = 'labCUPSServer'
545      ParentColor = False
546    end
547  end
548end