mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-21 02:02:35 +02:00
643 lines
17 KiB
Plaintext
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
|