/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
- object dlgSelectPrinter: TdlgSelectPrinter
- Left = 330
- Height = 441
- Top = 111
- Width = 563
- ActiveControl = btnProp
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Printing'
- ClientHeight = 441
- ClientWidth = 563
- OnCreate = dlgSelectPrinterCREATE
- OnShow = dlgSelectPrinterSHOW
- Position = poScreenCenter
- LCLVersion = '1.5'
- object PrinterGroupbox: TGroupBox
- Left = 6
- Height = 137
- Top = 6
- Width = 551
- Align = alTop
- BorderSpacing.Around = 6
- Caption = ' Printer '
- ClientHeight = 118
- ClientWidth = 547
- TabOrder = 0
- object labState: TLabel
- Left = 96
- Height = 17
- Top = 49
- Width = 57
- Caption = 'labState'
- ParentColor = False
- end
- object labLocation: TLabel
- Left = 96
- Height = 17
- Top = 73
- Width = 80
- Caption = 'labLocation'
- ParentColor = False
- end
- object labComment: TLabel
- Left = 96
- Height = 17
- Top = 97
- Width = 87
- Caption = 'labComment'
- ParentColor = False
- end
- object ImgPrn: TImage
- Left = 96
- Height = 17
- Top = 12
- Width = 17
- end
- object PrinterNameLabel: TLabel
- Left = 250
- Height = 17
- Top = 8
- Width = 40
- Anchors = []
- Caption = 'Name'
- ParentColor = False
- end
- object PrinterStateLabel: TLabel
- Left = 10
- Height = 17
- Top = 49
- Width = 36
- Caption = 'State'
- ParentColor = False
- OnChangeBounds = PrinterStateLabelChangeBounds
- end
- object PrinterLocationLabel: TLabel
- Left = 10
- Height = 17
- Top = 73
- Width = 59
- Caption = 'Location'
- ParentColor = False
- end
- object PrinterDescriptionLabel: TLabel
- Left = 10
- Height = 17
- Top = 97
- Width = 78
- Caption = 'Description'
- ParentColor = False
- end
- object labPrinterName: TLabel
- Left = 10
- Height = 17
- Top = 12
- Width = 40
- Caption = 'Name'
- ParentColor = False
- OnChangeBounds = PrinterStateLabelChangeBounds
- end
- object btnProp: TButton
- AnchorSideLeft.Control = cbPrinters
- AnchorSideLeft.Side = asrBottom
- AnchorSideTop.Control = cbPrinters
- AnchorSideRight.Side = asrBottom
- Left = 442
- Height = 29
- Top = 7
- Width = 99
- Anchors = [akTop, akRight]
- AutoSize = True
- Caption = 'Properties ...'
- OnClick = btnPropCLICK
- TabOrder = 0
- end
- object cbPrintToFile: TCheckBox
- AnchorSideRight.Side = asrBottom
- Left = 438
- Height = 24
- Top = 39
- Width = 101
- Anchors = [akRight, akBottom]
- Caption = 'Print to file'
- TabOrder = 1
- end
- object cbPrinters: TComboBox
- AnchorSideRight.Control = btnProp
- Left = 120
- Height = 31
- Top = 7
- Width = 316
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Right = 6
- ItemHeight = 0
- OnChange = cbPrintersCHANGE
- OnKeyPress = cbPrintersKEYPRESS
- Style = csDropDownList
- TabOrder = 2
- end
- end
- object NbOpts: TPageControl
- Left = 6
- Height = 217
- Top = 177
- Width = 551
- ActivePage = pgCopies
- Align = alClient
- Anchors = [akLeft]
- BorderSpacing.Around = 6
- TabIndex = 0
- TabOrder = 1
- object pgCopies: TTabSheet
- Caption = 'Copies'
- ClientHeight = 186
- ClientWidth = 547
- object gbPages: TGroupBox
- AnchorSideBottom.Control = pgCopies
- AnchorSideBottom.Side = asrBottom
- Left = 8
- Height = 173
- Top = 7
- Width = 262
- Anchors = [akTop, akLeft, akBottom]
- BorderSpacing.Around = 6
- Caption = ' Select pages '
- ClientHeight = 154
- ClientWidth = 258
- TabOrder = 0
- object Bevel1: TBevel
- AnchorSideTop.Control = edRange
- AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 2
- Top = 110
- Width = 240
- BorderSpacing.Top = 6
- Shape = bsTopLine
- Style = bsRaised
- end
- object labPage: TLabel
- AnchorSideTop.Control = Bevel1
- AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 17
- Top = 124
- Width = 40
- BorderSpacing.Top = 12
- Caption = 'Pages'
- ParentColor = False
- end
- object edRange: TEdit
- AnchorSideLeft.Control = rbRange
- AnchorSideLeft.Side = asrBottom
- AnchorSideTop.Control = rbRange
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = gbPages
- AnchorSideRight.Side = asrBottom
- Left = 90
- Height = 27
- Top = 77
- Width = 162
- Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 15
- BorderSpacing.Right = 6
- TabOrder = 0
- end
- object edPageSet: TComboBox
- AnchorSideTop.Control = labPage
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = gbPages
- AnchorSideRight.Side = asrBottom
- Left = 104
- Height = 27
- Top = 119
- Width = 148
- Anchors = [akTop, akRight]
- BorderSpacing.Right = 6
- ItemHeight = 0
- ItemIndex = 0
- Items.Strings = (
- 'All pages'
- 'Odd pages'
- 'Even pages'
- )
- Style = csDropDownList
- TabOrder = 1
- Text = 'All pages'
- end
- object rbCurrentPage: TRadioButton
- AnchorSideTop.Control = rbAllPage
- AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 24
- Top = 26
- Width = 113
- BorderSpacing.Around = 2
- Caption = 'Current page'
- DragCursor = crDefault
- Enabled = False
- TabOrder = 2
- end
- object rbRange: TRadioButton
- AnchorSideTop.Control = rbSelection
- AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 24
- Top = 78
- Width = 67
- BorderSpacing.Around = 2
- Caption = 'Range'
- DragCursor = crDefault
- TabOrder = 4
- end
- object rbAllPage: TRadioButton
- Left = 8
- Height = 24
- Top = 0
- Width = 47
- Caption = 'All '
- Checked = True
- DragCursor = crDefault
- TabOrder = 3
- TabStop = True
- end
- object rbSelection: TRadioButton
- AnchorSideTop.Control = rbCurrentPage
- AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 24
- Top = 52
- Width = 88
- BorderSpacing.Around = 2
- Caption = 'Selection'
- DragCursor = crDefault
- Enabled = False
- TabOrder = 5
- end
- end
- object gbCopies: TGroupBox
- AnchorSideLeft.Control = gbPages
- AnchorSideLeft.Side = asrBottom
- AnchorSideRight.Control = pgCopies
- AnchorSideRight.Side = asrBottom
- AnchorSideBottom.Control = pgCopies
- AnchorSideBottom.Side = asrBottom
- Left = 276
- Height = 173
- Top = 7
- Width = 265
- Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Around = 6
- Caption = ' Copies '
- ClientHeight = 154
- ClientWidth = 261
- TabOrder = 1
- object imgCollate: TImage
- AnchorSideTop.Control = lanNumCopies
- AnchorSideTop.Side = asrBottom
- Left = 6
- Height = 37
- Top = 29
- Width = 93
- AutoSize = True
- BorderSpacing.Top = 6
- Proportional = True
- end
- object lanNumCopies: TLabel
- Left = 6
- Height = 17
- Top = 6
- Width = 120
- Caption = 'Number of copies'
- ParentColor = False
- end
- object edCopies: TSpinEdit
- AnchorSideLeft.Control = lanNumCopies
- AnchorSideLeft.Side = asrBottom
- AnchorSideTop.Control = lanNumCopies
- AnchorSideTop.Side = asrCenter
- Left = 132
- Height = 27
- Top = 1
- Width = 60
- BorderSpacing.Left = 6
- TabOrder = 0
- end
- object cbCollate: TCheckBox
- AnchorSideTop.Control = edCopies
- AnchorSideTop.Side = asrBottom
- Left = 119
- Height = 24
- Top = 34
- Width = 74
- AllowGrayed = True
- BorderSpacing.Around = 6
- Caption = 'Collate'
- DragCursor = crDefault
- OnClick = cbReverseCLICK
- TabOrder = 2
- end
- object cbReverse: TCheckBox
- AnchorSideTop.Control = cbCollate
- AnchorSideTop.Side = asrBottom
- Left = 119
- Height = 24
- Top = 64
- Width = 79
- AllowGrayed = True
- BorderSpacing.Around = 6
- Caption = 'Reverse'
- DragCursor = crDefault
- OnClick = cbReverseCLICK
- TabOrder = 1
- end
- end
- end
- object pgAdvance: TTabSheet
- Caption = 'Advanced'
- ClientHeight = 186
- ClientWidth = 547
- object labTask: TLabel
- Left = 7
- Height = 14
- Top = 10
- Width = 63
- Caption = 'Delayed task'
- ParentColor = False
- end
- object PrioLabel: TLabel
- AnchorSideTop.Control = labTask
- AnchorSideTop.Side = asrBottom
- Left = 7
- Height = 14
- Top = 50
- Width = 35
- BorderSpacing.Top = 20
- BorderSpacing.Around = 6
- Caption = 'Priority'
- ParentColor = False
- end
- object cbTasktime: TComboBox
- Left = 215
- Height = 21
- Top = 7
- Width = 200
- ItemHeight = 0
- ItemIndex = 0
- Items.Strings = (
- 'Immediate'
- 'Never (suspending)'
- 'during the day'
- 'evening'
- 'night'
- 'Weekend'
- 'After close of business'
- 'After midnight'
- 'At time'
- )
- OnChange = cbTasktimeCHANGE
- OnKeyPress = cbPrintersKEYPRESS
- Style = csDropDownList
- TabOrder = 1
- Text = 'Immediate'
- end
- object edTimeTask: TEdit
- Left = 423
- Height = 21
- Top = 9
- Width = 83
- DragCursor = crDefault
- MaxLength = 8
- TabOrder = 0
- Text = '23:00:00'
- end
- object edPriority: TSpinEdit
- AnchorSideTop.Control = PrioLabel
- AnchorSideTop.Side = asrCenter
- Left = 127
- Height = 21
- Top = 47
- Width = 50
- TabOrder = 3
- end
- object tkbPriority: TTrackBar
- AnchorSideLeft.Control = edPriority
- AnchorSideLeft.Side = asrBottom
- AnchorSideTop.Control = PrioLabel
- AnchorSideTop.Side = asrCenter
- AnchorSideRight.Control = pgAdvance
- AnchorSideRight.Side = asrBottom
- Left = 183
- Height = 38
- Top = 38
- Width = 320
- Frequency = 10
- Max = 100
- OnChange = tkbPriorityCHANGE
- Position = 10
- TabStop = False
- TickMarks = tmBoth
- BorderSpacing.Around = 6
- DragCursor = crDefault
- TabOrder = 2
- end
- end
- end
- object BtnPanel: TPanel
- Left = 0
- Height = 41
- Top = 400
- Width = 563
- Align = alBottom
- Anchors = [akLeft, akBottom]
- AutoSize = True
- BevelOuter = bvNone
- ClientHeight = 41
- ClientWidth = 563
- FullRepaint = False
- TabOrder = 2
- TabStop = True
- object btnCancel: TButton
- Left = 477
- Height = 29
- Top = 6
- Width = 80
- Align = alRight
- AutoSize = True
- BorderSpacing.Around = 6
- Cancel = True
- Caption = 'Cancel'
- Constraints.MinWidth = 80
- ModalResult = 2
- TabOrder = 0
- end
- object btnPrint: TButton
- Left = 391
- Height = 29
- Top = 6
- Width = 80
- Align = alRight
- AutoSize = True
- BorderSpacing.Around = 6
- Caption = 'Print'
- Constraints.MinWidth = 80
- Default = True
- ModalResult = 1
- OnClick = btnPrintCLICK
- TabOrder = 1
- end
- object btnReduc: TButton
- Left = 6
- Height = 29
- Top = 6
- Width = 80
- Align = alLeft
- AutoSize = True
- BorderSpacing.Around = 6
- Caption = 'More ...'
- Constraints.MinWidth = 80
- OnClick = btnReducCLICK
- TabOrder = 2
- end
- object btnPreview: TButton
- Left = 305
- Height = 29
- Top = 6
- Width = 80
- Align = alRight
- AutoSize = True
- BorderSpacing.Around = 6
- Caption = 'Preview'
- Constraints.MinWidth = 80
- ModalResult = 6
- TabOrder = 3
- end
- end
- object panLabels: TPanel
- Left = 6
- Height = 22
- Top = 149
- Width = 551
- Align = alTop
- BorderSpacing.Around = 6
- BevelOuter = bvNone
- ClientHeight = 22
- ClientWidth = 551
- TabOrder = 3
- object labCUPS: TLabel
- AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 17
- Top = 3
- Width = 251
- Caption = 'CUPS (Common Unix Printing System)'
- ParentColor = False
- end
- object labCUPSServer: TLabel
- AnchorSideLeft.Control = labCUPS
- AnchorSideLeft.Side = asrBottom
- Left = 265
- Height = 17
- Top = 3
- Width = 100
- BorderSpacing.Around = 6
- Caption = 'labCUPSServer'
- ParentColor = False
- end
- end
- end