paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 23:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity
b79f430898
lazarus/components/printers/unix/udlgselectprinter.lfm
mattias d6128fafcf printers4lazarus: unitx: select dialog nicer buttons, patch #28798 from Alexey 
git-svn-id: trunk@50242 -
2015-11-06 23:11:39 +00:00

549 lines
13 KiB
Plaintext
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink