lazarus/components/printers/unix/udlgselectprinter.lfm
2020-11-05 11:47:34 +00:00

643 lines
17 KiB
Plaintext

object dlgSelectPrinter: TdlgSelectPrinter
Left = 321
Height = 454
Top = 135
Width = 562
ActiveControl = cbPrinters
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Printing'
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 6
ChildSizing.VerticalSpacing = 6
ClientHeight = 454
ClientWidth = 562
OnClose = FormClose
OnCreate = dlgSelectPrinterCREATE
OnDestroy = FormDestroy
OnShow = dlgSelectPrinterSHOW
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object PrinterGroupbox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 138
Top = 6
Width = 544
AutoSize = True
Caption = ' Printer '
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 6
ChildSizing.VerticalSpacing = 6
ClientHeight = 118
ClientWidth = 542
TabOrder = 0
object labState: TLabel
AnchorSideLeft.Control = cbPrinters
AnchorSideTop.Control = PrinterStateLabel
Left = 116
Height = 19
Top = 43
Width = 54
Caption = 'labState'
ParentColor = False
ShowAccelChar = False
end
object labLocation: TLabel
AnchorSideLeft.Control = labState
AnchorSideTop.Control = PrinterLocationLabel
Left = 116
Height = 19
Top = 68
Width = 75
Caption = 'labLocation'
ParentColor = False
ShowAccelChar = False
end
object labComment: TLabel
AnchorSideLeft.Control = labLocation
AnchorSideTop.Control = PrinterDescriptionLabel
Left = 116
Height = 19
Top = 93
Width = 84
Caption = 'labComment'
ParentColor = False
ShowAccelChar = False
end
object Label1: TLabel
AnchorSideLeft.Control = PrinterGroupbox
AnchorSideTop.Control = PrinterGroupbox
Left = 116
Height = 1
Top = 2
Width = 1
BorderSpacing.Left = 116
ParentColor = False
end
object PrinterStateLabel: TLabel
AnchorSideLeft.Control = PrinterGroupbox
AnchorSideTop.Control = cbPrinters
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 43
Width = 34
Caption = 'State'
ParentColor = False
end
object PrinterLocationLabel: TLabel
AnchorSideLeft.Control = PrinterStateLabel
AnchorSideTop.Control = PrinterStateLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 68
Width = 55
Caption = 'Location'
ParentColor = False
end
object PrinterDescriptionLabel: TLabel
AnchorSideLeft.Control = PrinterLocationLabel
AnchorSideTop.Control = PrinterLocationLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 93
Width = 75
BorderSpacing.Bottom = 6
Caption = 'Description'
ParentColor = False
end
object PrinterNameLabel: TLabel
AnchorSideLeft.Control = PrinterGroupbox
AnchorSideTop.Control = cbPrinters
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 10
Width = 40
Caption = 'Name'
ParentColor = False
end
object btnProp: TButton
AnchorSideLeft.Control = cbPrinters
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PrinterGroupbox
AnchorSideRight.Side = asrBottom
Left = 434
Height = 35
Top = 2
Width = 100
AutoSize = True
Caption = 'Properties ...'
OnClick = btnPropCLICK
TabOrder = 1
end
object cbPrintToFile: TCheckBox
AnchorSideTop.Control = btnProp
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PrinterGroupbox
AnchorSideRight.Side = asrBottom
Left = 436
Height = 23
Top = 43
Width = 98
Anchors = [akTop, akRight]
Caption = 'Print to file'
TabOrder = 2
end
object cbPrinters: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = PrinterGroupbox
Left = 116
Height = 35
Top = 2
Width = 312
ItemHeight = 0
OnChange = cbPrintersCHANGE
OnDrawItem = cbPrintersDrawItem
OnKeyPress = cbPrintersKEYPRESS
Style = csOwnerDrawFixed
TabOrder = 0
end
end
object NbOpts: TPageControl
AnchorSideLeft.Control = panLabels
AnchorSideTop.Control = panLabels
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = panLabels
AnchorSideRight.Side = asrBottom
Left = 8
Height = 231
Top = 175
Width = 544
TabStop = False
ActivePage = pgCopies
Anchors = [akTop, akLeft, akRight]
TabIndex = 0
TabOrder = 2
Visible = False
Options = [nboKeyboardTabSwitch]
object pgCopies: TTabSheet
Caption = 'Copies'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 8
ChildSizing.VerticalSpacing = 6
ClientHeight = 198
ClientWidth = 534
object gbPages: TGroupBox
AnchorSideLeft.Control = pgCopies
AnchorSideTop.Control = pgCopies
AnchorSideRight.Control = Label2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 187
Top = 2
Width = 262
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Bottom = 8
Caption = ' Select pages '
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 6
ClientHeight = 167
ClientWidth = 260
TabOrder = 0
object Bevel1: TBevel
AnchorSideLeft.Control = gbPages
AnchorSideTop.Control = edRange
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbPages
AnchorSideRight.Side = asrBottom
Left = 8
Height = 2
Top = 112
Width = 244
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Shape = bsTopLine
Style = bsRaised
end
object labPage: TLabel
AnchorSideLeft.Control = Bevel1
AnchorSideTop.Control = edPageSet
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 128
Width = 40
Caption = 'Pages'
ParentColor = False
end
object edRange: TEdit
AnchorSideLeft.Control = rbRange
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rbSelection
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbPages
AnchorSideRight.Side = asrBottom
Left = 81
Height = 35
Top = 71
Width = 171
Anchors = [akTop, akLeft, akRight]
OnEnter = edRangeEnter
TabOrder = 4
end
object edPageSet: TComboBox
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbPages
AnchorSideRight.Side = asrBottom
Left = 104
Height = 35
Top = 120
Width = 148
Anchors = [akTop, akRight]
BorderSpacing.Bottom = 12
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'All pages'
'Odd pages'
'Even pages'
)
Style = csDropDownList
TabOrder = 5
Text = 'All pages'
end
object rbCurrentPage: TRadioButton
AnchorSideLeft.Control = rbAllPage
AnchorSideTop.Control = rbAllPage
AnchorSideTop.Side = asrBottom
Left = 8
Height = 23
Top = 25
Width = 111
Caption = 'Current page'
DragCursor = crDefault
Enabled = False
TabOrder = 1
end
object rbRange: TRadioButton
AnchorSideLeft.Control = rbSelection
AnchorSideTop.Control = edRange
AnchorSideTop.Side = asrCenter
Left = 8
Height = 23
Top = 77
Width = 67
Caption = 'Range'
DragCursor = crDefault
TabOrder = 3
end
object rbAllPage: TRadioButton
AnchorSideLeft.Control = gbPages
AnchorSideTop.Control = gbPages
Left = 8
Height = 23
Top = 2
Width = 46
Caption = 'All '
Checked = True
DragCursor = crDefault
TabOrder = 0
TabStop = True
end
object rbSelection: TRadioButton
AnchorSideLeft.Control = rbCurrentPage
AnchorSideTop.Control = rbCurrentPage
AnchorSideTop.Side = asrBottom
Left = 8
Height = 23
Top = 48
Width = 86
Caption = 'Selection'
DragCursor = crDefault
Enabled = False
TabOrder = 2
end
end
object gbCopies: TGroupBox
AnchorSideLeft.Control = gbPages
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pgCopies
AnchorSideRight.Control = pgCopies
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbPages
AnchorSideBottom.Side = asrBottom
Left = 276
Height = 187
Top = 2
Width = 252
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = ' Copies '
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 2
ChildSizing.HorizontalSpacing = 6
ClientHeight = 167
ClientWidth = 250
TabOrder = 1
object imgCollate: TImage
AnchorSideLeft.Control = lanNumCopies
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = edCopies
AnchorSideTop.Side = asrBottom
Left = 19
Height = 37
Top = 45
Width = 93
AutoSize = True
BorderSpacing.Top = 8
Proportional = True
end
object lanNumCopies: TLabel
AnchorSideLeft.Control = gbCopies
AnchorSideTop.Control = edCopies
AnchorSideTop.Side = asrCenter
Left = 8
Height = 19
Top = 10
Width = 115
Caption = 'Number of copies'
ParentColor = False
end
object edCopies: TSpinEdit
AnchorSideLeft.Control = lanNumCopies
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbCopies
Left = 129
Height = 35
Top = 2
Width = 60
BorderSpacing.Bottom = 2
MaxValue = 999
MinValue = 1
OnChange = edCopiesChange
TabOrder = 0
Value = 1
end
object cbCollate: TCheckBox
AnchorSideLeft.Control = edCopies
AnchorSideTop.Control = edCopies
AnchorSideTop.Side = asrBottom
Left = 129
Height = 23
Top = 39
Width = 72
Caption = 'Collate'
DragCursor = crDefault
OnClick = cbReverseCLICK
TabOrder = 1
end
object cbReverse: TCheckBox
AnchorSideLeft.Control = cbCollate
AnchorSideTop.Control = cbCollate
AnchorSideTop.Side = asrBottom
Left = 129
Height = 23
Top = 62
Width = 79
Caption = 'Reverse'
DragCursor = crDefault
OnClick = cbReverseCLICK
TabOrder = 2
end
end
object Label2: TLabel
AnchorSideLeft.Control = pgCopies
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = pgCopies
Left = 267
Height = 1
Top = 2
Width = 1
ParentColor = False
end
end
object pgAdvance: TTabSheet
Caption = 'Advanced'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 8
ChildSizing.HorizontalSpacing = 8
ChildSizing.VerticalSpacing = 6
ClientHeight = 198
ClientWidth = 534
object labTask: TLabel
AnchorSideLeft.Control = pgAdvance
AnchorSideTop.Control = cbTasktime
AnchorSideTop.Side = asrCenter
Left = 6
Height = 19
Top = 16
Width = 83
Caption = 'Delayed task'
ParentColor = False
end
object PrioLabel: TLabel
AnchorSideLeft.Control = pgAdvance
AnchorSideTop.Control = edPriority
AnchorSideTop.Side = asrCenter
Left = 6
Height = 19
Top = 57
Width = 49
Caption = 'Priority'
ParentColor = False
end
object cbTasktime: TComboBox
AnchorSideLeft.Control = labTask
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pgAdvance
Left = 97
Height = 35
Top = 8
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 = 0
Text = 'Immediate'
end
object edTimeTask: TEdit
AnchorSideLeft.Control = cbTasktime
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbTasktime
Left = 305
Height = 35
Top = 8
Width = 83
DragCursor = crDefault
MaxLength = 8
TabOrder = 1
Text = '23:00:00'
end
object edPriority: TSpinEdit
AnchorSideLeft.Control = cbTasktime
AnchorSideTop.Control = cbTasktime
AnchorSideTop.Side = asrBottom
Left = 97
Height = 35
Top = 49
Width = 63
TabOrder = 2
end
object tkbPriority: TTrackBar
AnchorSideLeft.Control = edPriority
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edPriority
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pgAdvance
AnchorSideRight.Side = asrBottom
Left = 168
Height = 30
Top = 51
Width = 360
AutoSize = True
Frequency = 10
Max = 100
OnChange = tkbPriorityCHANGE
Position = 10
TabStop = False
TickMarks = tmBoth
TickStyle = tsNone
Anchors = [akTop, akLeft, akRight]
DragCursor = crDefault
TabOrder = 3
end
end
end
object BtnPanel: TPanel
AnchorSideLeft.Control = NbOpts
AnchorSideTop.Control = NbOpts
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = NbOpts
AnchorSideRight.Side = asrBottom
Left = 8
Height = 35
Top = 412
Width = 544
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ChildSizing.HorizontalSpacing = 6
ClientHeight = 35
ClientWidth = 544
FullRepaint = False
TabOrder = 3
TabStop = True
object btnCancel: TButton
Left = 469
Height = 35
Top = 0
Width = 75
Align = alRight
AutoSize = True
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 75
ModalResult = 2
TabOrder = 3
end
object btnPrint: TButton
Left = 388
Height = 35
Top = 0
Width = 75
Align = alRight
AutoSize = True
Caption = 'Print'
Constraints.MinWidth = 75
Default = True
ModalResult = 1
OnClick = btnPrintCLICK
TabOrder = 2
end
object btnReduc: TButton
Left = 0
Height = 35
Top = 0
Width = 75
Align = alLeft
AutoSize = True
Caption = 'More ...'
Constraints.MinWidth = 75
OnClick = btnReducCLICK
TabOrder = 0
end
object btnPreview: TButton
Left = 307
Height = 35
Top = 0
Width = 75
Align = alRight
AutoSize = True
Caption = 'Preview'
Constraints.MinWidth = 75
ModalResult = 6
TabOrder = 1
end
end
object panLabels: TPanel
AnchorSideLeft.Control = PrinterGroupbox
AnchorSideTop.Control = PrinterGroupbox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PrinterGroupbox
AnchorSideRight.Side = asrBottom
Left = 8
Height = 19
Top = 150
Width = 544
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BevelOuter = bvNone
ChildSizing.HorizontalSpacing = 8
ClientHeight = 19
ClientWidth = 544
TabOrder = 1
object labCUPS: TLabel
AnchorSideLeft.Control = panLabels
AnchorSideTop.Control = panLabels
Left = 0
Height = 19
Top = 0
Width = 244
Caption = 'CUPS (Common Unix Printing System)'
ParentColor = False
end
object labCUPSServer: TLabel
AnchorSideLeft.Control = labCUPS
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = panLabels
Left = 252
Height = 19
Top = 0
Width = 99
Caption = 'labCUPSServer'
ParentColor = False
end
end
end