paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 23:36:03 +02:00
Code Issues Packages Projects Releases Wiki Activity
cadf49eda8
lazarus/components/printers/unix/udlgselectprinter.lfm
mattias a83db51afa printers, cups: improved dialogs 
git-svn-id: trunk@13347 -
2007-12-15 18:00:34 +00:00

601 lines
15 KiB
Plaintext
Raw Blame History

object dlgSelectPrinter: TdlgSelectPrinter
Left = 295
Height = 463
Top = 175
Width = 552
HorzScrollBar.Page = 551
VertScrollBar.Page = 462
ActiveControl = NbOpts
Caption = 'Printing'
ClientHeight = 463
ClientWidth = 552
OnCreate = dlgSelectPrinterCREATE
OnShow = dlgSelectPrinterSHOW
object labCUPS: TLabel
AnchorSideTop.Control = PrinterGroupbox
AnchorSideTop.Side = asrBottom
Left = 8
Height = 20
Top = 149
Width = 247
BorderSpacing.Top = 6
Caption = 'CUPS (Common Unix Printing System)'
ParentColor = False
end
object labCUPSServer: TLabel
AnchorSideLeft.Control = labCUPS
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = labCUPS
Left = 261
Height = 20
Top = 149
Width = 98
BorderSpacing.Left = 6
Caption = 'labCUPSServer'
ParentColor = False
end
object PrinterGroupbox: TGroupBox
Left = 6
Height = 137
Top = 6
Width = 540
Align = alTop
BorderSpacing.Around = 6
Caption = ' Printer '
ClientHeight = 118
ClientWidth = 536
ParentCtl3D = False
TabOrder = 0
object PrinterLabelsPanel: TPanel
Height = 118
Width = 85
Align = alLeft
AutoSize = True
BevelOuter = bvNone
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 4
ClientHeight = 118
ClientWidth = 85
TabOrder = 0
object PrinterNameLabel: TLabel
Left = 6
Height = 20
Top = 6
Width = 73
BorderSpacing.Around = 6
Caption = 'Name'
ParentColor = False
end
object PrinterStateLabel: TLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 32
Width = 73
BorderSpacing.Around = 6
Caption = 'State'
ParentColor = False
OnChangeBounds = PrinterStateLabelChangeBounds
end
object PrinterLocationLabel: TLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 58
Width = 73
BorderSpacing.Around = 6
Caption = 'Location'
ParentColor = False
end
object PrinterDescriptionLabel: TLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 84
Width = 73
BorderSpacing.Around = 6
Caption = 'Description'
ParentColor = False
end
end
object PrinterStatePanel: TPanel
Left = 85
Height = 118
Width = 451
Align = alClient
BevelOuter = bvNone
ClientHeight = 118
ClientWidth = 451
TabOrder = 1
object labState: TLabel
AnchorSideLeft.Control = PrinterStatePanel
AnchorSideTop.Control = PrinterStatePanel
Left = 6
Height = 20
Top = 31
Width = 55
BorderSpacing.Top = 25
BorderSpacing.Around = 6
Caption = 'labState'
ParentColor = False
end
object labLocation: TLabel
AnchorSideLeft.Control = PrinterStatePanel
AnchorSideTop.Control = labState
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 57
Width = 74
BorderSpacing.Around = 6
Caption = 'labLocation'
ParentColor = False
end
object labComment: TLabel
AnchorSideLeft.Control = PrinterStatePanel
AnchorSideTop.Control = labLocation
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 83
Width = 84
BorderSpacing.Around = 6
Caption = 'labComment'
ParentColor = False
end
object PrinterComboPanel: TPanel
AnchorSideLeft.Control = PrinterStatePanel
AnchorSideTop.Control = PrinterStatePanel
AnchorSideRight.Control = btnProp
Left = 6
Height = 20
Top = 6
Width = 328
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Right = 12
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 20
ClientWidth = 328
TabOrder = 0
object ImgPrn: TImage
Height = 20
Width = 17
Align = alLeft
Transparent = False
end
object cbPrinters: TComboBox
AnchorSideLeft.Side = asrBottom
Left = 17
Height = 20
Width = 311
Align = alClient
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
AutoSize = True
MaxLength = 0
OnChange = cbPrintersCHANGE
OnKeyPress = cbPrintersKEYPRESS
ParentCtl3D = False
Style = csDropDownList
TabOrder = 0
end
end
object btnProp: TButton
AnchorSideRight.Control = PrinterStatePanel
AnchorSideRight.Side = asrBottom
Left = 352
Height = 29
Top = 7
Width = 93
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Properties ...'
OnClick = btnPropCLICK
TabOrder = 1
end
object cbPrintToFile: TCheckBox
AnchorSideTop.Control = labLocation
AnchorSideRight.Control = PrinterStatePanel
AnchorSideRight.Side = asrBottom
Left = 347
Height = 22
Top = 57
Width = 92
Anchors = [akTop, akRight]
BorderSpacing.Right = 12
Caption = 'Print to file'
TabOrder = 2
end
end
end
object NbOpts: TNotebook
AnchorSideTop.Control = labCUPS
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 240
Top = 175
Width = 540
Align = alBottom
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
PageIndex = 1
TabOrder = 1
object pgCopies: TPage
Caption = 'Copies'
ClientWidth = 536
ClientHeight = 209
object gbPages: TGroupBox
AnchorSideBottom.Control = pgCopies
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 196
Top = 7
Width = 262
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
Caption = ' Select pages '
ClientHeight = 177
ClientWidth = 258
ParentCtl3D = False
TabOrder = 0
object Bevel1: TBevel
AnchorSideTop.Control = edRange
AnchorSideTop.Side = asrBottom
Left = 18
Height = 3
Top = 105
Width = 230
BorderSpacing.Top = 6
Shape = bsTopLine
Style = bsRaised
end
object labPage: TLabel
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 14
Height = 20
Top = 120
Width = 39
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 = 93
Height = 23
Top = 76
Width = 159
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 = 26
Top = 117
Width = 148
Anchors = [akTop, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
AutoSelect = True
BorderSpacing.Right = 6
ItemIndex = 0
Items.Strings = (
'All pages'
'Odd pages'
'Even pages'
)
MaxLength = 0
ParentCtl3D = False
Style = csDropDownList
TabOrder = 1
Text = 'All pages'
end
object rbCurrentPage: TRadioButton
AnchorSideTop.Control = rbAllPage
AnchorSideTop.Side = asrBottom
Left = 14
Height = 22
Top = 28
Width = 108
AllowGrayed = True
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 = 22
Top = 76
Width = 64
AllowGrayed = True
BorderSpacing.Around = 2
Caption = 'Range'
DragCursor = crDefault
TabOrder = 4
end
object rbAllPage: TRadioButton
Left = 14
Height = 22
Width = 43
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'All '
Checked = True
DragCursor = crDefault
State = cbChecked
TabOrder = 3
end
object rbSelection: TRadioButton
AnchorSideTop.Control = rbCurrentPage
AnchorSideTop.Side = asrBottom
Left = 14
Height = 22
Top = 52
Width = 83
AllowGrayed = True
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 = 196
Top = 7
Width = 254
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = ' Copies '
ClientHeight = 177
ClientWidth = 250
ParentCtl3D = False
TabOrder = 1
object imgCollate: TImage
AnchorSideTop.Control = lanNumCopies
AnchorSideTop.Side = asrBottom
Left = 6
Height = 37
Top = 32
Width = 93
AutoSize = True
BorderSpacing.Top = 6
Proportional = True
Transparent = False
end
object lanNumCopies: TLabel
Left = 6
Height = 20
Top = 6
Width = 114
Caption = 'Number of copies'
ParentColor = False
end
object edCopies: TSpinEdit
AnchorSideLeft.Control = lanNumCopies
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lanNumCopies
AnchorSideTop.Side = asrCenter
Left = 126
Height = 20
Top = 6
Width = 50
BorderSpacing.Left = 6
TabOrder = 0
end
object cbCollate: TCheckBox
AnchorSideTop.Control = edCopies
AnchorSideTop.Side = asrBottom
Left = 119
Height = 22
Top = 32
Width = 68
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 = 22
Top = 60
Width = 74
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'Reverse'
DragCursor = crDefault
OnClick = cbReverseCLICK
TabOrder = 1
end
end
end
object pgAdvance: TPage
Caption = 'Advanced'
ClientWidth = 536
ClientHeight = 209
object labTask: TLabel
Left = 7
Height = 20
Top = 10
Width = 84
Caption = 'Delayed task'
ParentColor = False
end
object PrioLabel: TLabel
AnchorSideTop.Control = labTask
AnchorSideTop.Side = asrBottom
Left = 7
Height = 20
Top = 56
Width = 45
BorderSpacing.Top = 20
BorderSpacing.Around = 6
Caption = 'Priority'
ParentColor = False
end
object cbTasktime: TComboBox
Left = 215
Height = 25
Top = 7
Width = 200
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
AutoSize = True
ItemIndex = 0
Items.Strings = (
'Immediate'
'Never (suspending)'
'during the day'
'evening'
'night'
'Weekend'
'After close of business'
'After midnight'
'At time'
)
MaxLength = 0
OnChange = cbTasktimeCHANGE
OnKeyPress = cbPrintersKEYPRESS
ParentCtl3D = False
Style = csDropDownList
TabOrder = 1
Text = 'Immediate'
end
object edTimeTask: TEdit
Left = 429
Height = 23
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 = 20
Top = 56
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 = 47
Width = 335
Frequency = 10
Max = 100
OnChange = tkbPriorityCHANGE
Position = 10
ScalePos = trTop
TabStop = False
TickMarks = tmBoth
BorderSpacing.Around = 6
DragCursor = crDefault
ParentCtl3D = False
TabOrder = 2
end
end
end
object BtnPanel: TPanel
Height = 42
Top = 421
Width = 552
Align = alBottom
Anchors = [akLeft, akBottom]
AutoSize = True
ClientHeight = 42
ClientWidth = 552
FullRepaint = False
TabOrder = 2
TabStop = True
object btnCancel: TButton
Left = 490
Height = 28
Top = 7
Width = 55
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 0
end
object btnPrint: TButton
Left = 443
Height = 28
Top = 7
Width = 41
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print'
Default = True
ModalResult = 1
OnClick = btnPrintCLICK
TabOrder = 1
end
object btnReduc: TButton
Left = 7
Height = 28
Top = 7
Width = 60
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'More ...'
OnClick = btnReducCLICK
TabOrder = 2
end
object btnPreview: TButton
Left = 377
Height = 28
Top = 7
Width = 60
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Preview'
ModalResult = 6
TabOrder = 3
end
end
end
Reference in New Issue View Git Blame Copy Permalink