paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-09 17:12:59 +02:00
Code Issues Packages Projects Releases Wiki Activity
d94a996d71
lazarus/components/printers/unix/udlgselectprinter.lfm

536 lines
13 KiB
Plaintext
Raw Blame History

object dlgSelectPrinter: TdlgSelectPrinter
Left = 330
Height = 406
Top = 111
Width = 530
ActiveControl = btnProp
Caption = 'Printing'
ClientHeight = 406
ClientWidth = 530
OnCreate = dlgSelectPrinterCREATE
OnShow = dlgSelectPrinterSHOW
Position = poScreenCenter
LCLVersion = '1.1'
object PrinterGroupbox: TGroupBox
Left = 6
Height = 137
Top = 6
Width = 518
Align = alTop
BorderSpacing.Around = 6
Caption = ' Printer '
ClientHeight = 118
ClientWidth = 514
TabOrder = 0
object labState: TLabel
Left = 96
Height = 15
Top = 49
Width = 53
Caption = 'labState'
ParentColor = False
end
object labLocation: TLabel
Left = 96
Height = 15
Top = 73
Width = 72
Caption = 'labLocation'
ParentColor = False
end
object labComment: TLabel
Left = 96
Height = 15
Top = 97
Width = 78
Caption = 'labComment'
ParentColor = False
end
object ImgPrn: TImage
Left = 96
Height = 17
Top = 12
Width = 17
end
object PrinterNameLabel: TLabel
Left = 236
Height = 15
Top = 9
Width = 36
Anchors = []
Caption = 'Name'
ParentColor = False
end
object PrinterStateLabel: TLabel
Left = 10
Height = 15
Top = 49
Width = 34
Caption = 'State'
ParentColor = False
OnChangeBounds = PrinterStateLabelChangeBounds
end
object PrinterLocationLabel: TLabel
Left = 10
Height = 15
Top = 73
Width = 53
Caption = 'Location'
ParentColor = False
end
object PrinterDescriptionLabel: TLabel
Left = 10
Height = 15
Top = 97
Width = 71
Caption = 'Description'
ParentColor = False
end
object labPrinterName: TLabel
Left = 10
Height = 15
Top = 12
Width = 36
Caption = 'Name'
ParentColor = False
OnChangeBounds = PrinterStateLabelChangeBounds
end
object btnProp: TButton
Left = 415
Height = 25
Top = 8
Width = 95
Anchors = []
AutoSize = True
Caption = 'Properties ...'
OnClick = btnPropCLICK
TabOrder = 0
end
object cbPrintToFile: TCheckBox
Left = 414
Height = 21
Top = 42
Width = 92
Anchors = [akRight, akBottom]
Caption = 'Print to file'
TabOrder = 1
end
object cbPrinters: TComboBox
Left = 120
Height = 25
Top = 7
Width = 287
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
OnChange = cbPrintersCHANGE
OnKeyPress = cbPrintersKEYPRESS
Style = csDropDownList
TabOrder = 2
end
end
object NbOpts: TPageControl
Left = 6
Height = 180
Top = 177
Width = 518
ActivePage = pgCopies
Align = alClient
Anchors = [akLeft]
BorderSpacing.Around = 6
TabIndex = 0
TabOrder = 1
object pgCopies: TTabSheet
Caption = 'Copies'
ClientHeight = 155
ClientWidth = 514
object gbPages: TGroupBox
AnchorSideBottom.Control = pgCopies
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 142
Top = 7
Width = 262
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
Caption = ' Select pages '
ClientHeight = 123
ClientWidth = 258
TabOrder = 0
object Bevel1: TBevel
AnchorSideTop.Control = edRange
AnchorSideTop.Side = asrBottom
Left = 18
Height = 3
Top = 102
Width = 230
BorderSpacing.Top = 6
Shape = bsTopLine
Style = bsRaised
end
object labPage: TLabel
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 14
Height = 15
Top = 117
Width = 38
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 = 92
Height = 25
Top = 71
Width = 160
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 = 25
Top = 112
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 = 14
Height = 21
Top = 27
Width = 106
BorderSpacing.Around = 2
Caption = 'Current page'
DragCursor = crDefault
Enabled = False
TabOrder = 2
end
object rbRange: TRadioButton
AnchorSideTop.Control = rbSelection
AnchorSideTop.Side = asrBottom
Left = 14
Height = 21
Top = 73
Width = 63
BorderSpacing.Around = 2
Caption = 'Range'
DragCursor = crDefault
TabOrder = 4
end
object rbAllPage: TRadioButton
Left = 14
Height = 21
Top = 0
Width = 41
BorderSpacing.Around = 6
Caption = 'All '
Checked = True
DragCursor = crDefault
TabOrder = 3
TabStop = True
end
object rbSelection: TRadioButton
AnchorSideTop.Control = rbCurrentPage
AnchorSideTop.Side = asrBottom
Left = 14
Height = 21
Top = 50
Width = 81
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 = 142
Top = 7
Width = 232
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = ' Copies '
ClientHeight = 123
ClientWidth = 228
TabOrder = 1
object imgCollate: TImage
AnchorSideTop.Control = lanNumCopies
AnchorSideTop.Side = asrBottom
Left = 6
Height = 37
Top = 27
Width = 93
AutoSize = True
BorderSpacing.Top = 6
Proportional = True
end
object lanNumCopies: TLabel
Left = 6
Height = 15
Top = 6
Width = 110
Caption = 'Number of copies'
ParentColor = False
end
object edCopies: TSpinEdit
AnchorSideLeft.Control = lanNumCopies
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lanNumCopies
AnchorSideTop.Side = asrCenter
Left = 122
Height = 25
Top = 1
Width = 50
BorderSpacing.Left = 6
TabOrder = 0
end
object cbCollate: TCheckBox
AnchorSideTop.Control = edCopies
AnchorSideTop.Side = asrBottom
Left = 119
Height = 21
Top = 32
Width = 67
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 = 21
Top = 59
Width = 73
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'Reverse'
DragCursor = crDefault
OnClick = cbReverseCLICK
TabOrder = 1
end
end
end
object pgAdvance: TTabSheet
Caption = 'Advanced'
ClientHeight = 156
ClientWidth = 510
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 = 6
Height = 37
Top = 363
Width = 518
Align = alBottom
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 37
ClientWidth = 518
FullRepaint = False
TabOrder = 2
TabStop = True
object btnCancel: TButton
Left = 456
Height = 25
Top = 6
Width = 56
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 0
end
object btnPrint: TButton
Left = 407
Height = 25
Top = 6
Width = 43
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print'
Default = True
ModalResult = 1
OnClick = btnPrintCLICK
TabOrder = 1
end
object btnReduc: TButton
Left = 6
Height = 25
Top = 6
Width = 61
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'More ...'
OnClick = btnReducCLICK
TabOrder = 2
end
object btnPreview: TButton
Left = 340
Height = 25
Top = 6
Width = 61
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Preview'
ModalResult = 6
TabOrder = 3
end
end
object panLabels: TPanel
Left = 6
Height = 22
Top = 149
Width = 518
Align = alTop
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 518
TabOrder = 3
object labCUPS: TLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 15
Top = 3
Width = 232
Caption = 'CUPS (Common Unix Printing System)'
ParentColor = False
end
object labCUPSServer: TLabel
AnchorSideLeft.Side = asrBottom
Left = 248
Height = 15
Top = 3
Width = 92
Caption = 'labCUPSServer'
ParentColor = False
end
end
end
Reference in New Issue View Git Blame Copy Permalink