paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-18 03:08:19 +02:00
Code Issues Packages Projects Releases Wiki Activity
225616d66a
lazarus/components/printers/unix/udlgselectprinter.lfm
paul b86e6de121 position own made print form on screen center 
git-svn-id: trunk@19423 -
2009-04-14 06:55:59 +00:00

549 lines
13 KiB
Plaintext
Raw Blame History

object dlgSelectPrinter: TdlgSelectPrinter
Left = 330
Height = 217
Top = 111
Width = 530
ActiveControl = btnProp
Caption = 'Printing'
ClientHeight = 217
ClientWidth = 530
OnCreate = dlgSelectPrinterCREATE
OnShow = dlgSelectPrinterSHOW
Position = poScreenCenter
LCLVersion = '0.9.27'
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 = 18
Top = 49
Width = 55
Caption = 'labState'
ParentColor = False
end
object labLocation: TLabel
Left = 96
Height = 18
Top = 73
Width = 74
Caption = 'labLocation'
ParentColor = False
end
object labComment: TLabel
Left = 96
Height = 18
Top = 97
Width = 84
Caption = 'labComment'
ParentColor = False
end
object ImgPrn: TImage
Left = 96
Height = 17
Top = 12
Width = 17
end
object PrinterNameLabel: TLabel
Left = 234
Height = 18
Top = 7
Width = 40
Anchors = []
Caption = 'Name'
ParentColor = False
end
object PrinterStateLabel: TLabel
Left = 10
Height = 18
Top = 49
Width = 36
Caption = 'State'
ParentColor = False
OnChangeBounds = PrinterStateLabelChangeBounds
end
object PrinterLocationLabel: TLabel
Left = 10
Height = 18
Top = 73
Width = 55
Caption = 'Location'
ParentColor = False
end
object PrinterDescriptionLabel: TLabel
Left = 10
Height = 18
Top = 97
Width = 73
Caption = 'Description'
ParentColor = False
end
object labPrinterName: TLabel
Left = 10
Height = 18
Top = 12
Width = 40
Caption = 'Name'
ParentColor = False
OnChangeBounds = PrinterStateLabelChangeBounds
end
object btnProp: TButton
Left = 416
Height = 29
Top = 6
Width = 93
Anchors = []
AutoSize = True
Caption = 'Properties ...'
OnClick = btnPropCLICK
TabOrder = 0
end
object cbPrintToFile: TCheckBox
Left = 414
Height = 22
Top = 41
Width = 92
Anchors = [akRight, akBottom]
Caption = 'Print to file'
TabOrder = 1
end
object cbPrinters: TComboBox
Left = 120
Height = 31
Top = 7
Width = 287
Anchors = [akTop, akLeft, akRight]
AutoComplete = False
ItemHeight = 0
ItemWidth = 0
OnChange = cbPrintersCHANGE
OnKeyPress = cbPrintersKEYPRESS
Style = csDropDownList
TabOrder = 2
end
end
object NbOpts: TNotebook
Left = 6
Height = 1
Top = 174
Width = 518
Align = alClient
Anchors = [akLeft]
BorderSpacing.Around = 6
PageIndex = 0
TabOrder = 1
object pgCopies: TPage
Caption = 'Copies'
ClientWidth = 516
ClientHeight = 1
object gbPages: TGroupBox
AnchorSideBottom.Control = pgCopies
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 1
Top = 7
Width = 262
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6
Caption = ' Select pages '
ClientHeight = 1
ClientWidth = 258
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 = 18
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 = 31
Top = 114
Width = 148
Anchors = [akTop, akRight]
AutoComplete = False
AutoSelect = True
BorderSpacing.Right = 6
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'All pages'
'Odd pages'
'Even pages'
)
ItemWidth = 0
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
TabStop = False
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
TabStop = False
end
object rbAllPage: TRadioButton
Left = 14
Height = 22
Top = 0
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
TabStop = False
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 = 1
Top = 7
Width = 234
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = ' Copies '
ClientHeight = 1
ClientWidth = 230
TabOrder = 1
object imgCollate: TImage
AnchorSideTop.Control = lanNumCopies
AnchorSideTop.Side = asrBottom
Left = 6
Height = 37
Top = 30
Width = 93
AutoSize = True
BorderSpacing.Top = 6
Proportional = True
end
object lanNumCopies: TLabel
Left = 6
Height = 18
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 = 5
Width = 50
BorderSpacing.Left = 6
TabOrder = 0
end
object cbCollate: TCheckBox
AnchorSideTop.Control = edCopies
AnchorSideTop.Side = asrBottom
Left = 119
Height = 22
Top = 31
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 = 59
Width = 74
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'Reverse'
DragCursor = crDefault
OnClick = cbReverseCLICK
TabOrder = 1
end
end
end
object pgAdvance: TPage
Caption = 'Advanced'
ClientWidth = 516
ClientHeight = 1
object labTask: TLabel
Left = 7
Height = 16
Top = 10
Width = 82
Caption = 'Delayed task'
ParentColor = False
end
object PrioLabel: TLabel
AnchorSideTop.Control = labTask
AnchorSideTop.Side = asrBottom
Left = 7
Height = 16
Top = 52
Width = 44
BorderSpacing.Top = 20
BorderSpacing.Around = 6
Caption = 'Priority'
ParentColor = False
end
object cbTasktime: TComboBox
Left = 215
Height = 29
Top = 7
Width = 200
AutoComplete = False
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'Immediate'
'Never (suspending)'
'during the day'
'evening'
'night'
'Weekend'
'After close of business'
'After midnight'
'At time'
)
ItemWidth = 0
OnChange = cbTasktimeCHANGE
OnKeyPress = cbPrintersKEYPRESS
Style = csDropDownList
TabOrder = 1
Text = 'Immediate'
end
object edTimeTask: TEdit
Left = 423
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 = 50
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 = 41
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 = 41
Top = 170
Width = 518
Align = alBottom
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 41
ClientWidth = 518
FullRepaint = False
TabOrder = 2
TabStop = True
object btnCancel: TButton
Left = 457
Height = 29
Top = 6
Width = 55
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 0
end
object btnPrint: TButton
Left = 410
Height = 29
Top = 6
Width = 41
Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print'
Default = True
ModalResult = 1
OnClick = btnPrintCLICK
TabOrder = 1
end
object btnReduc: TButton
Left = 6
Height = 29
Top = 6
Width = 60
Align = alLeft
AutoSize = True
BorderSpacing.Around = 6
Caption = 'More ...'
OnClick = btnReducCLICK
TabOrder = 2
end
object btnPreview: TButton
Left = 344
Height = 29
Top = 6
Width = 60
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 = 16
Top = 3
Width = 233
Caption = 'CUPS (Common Unix Printing System)'
ParentColor = False
end
object labCUPSServer: TLabel
AnchorSideLeft.Side = asrBottom
Left = 248
Height = 16
Top = 3
Width = 93
Caption = 'labCUPSServer'
ParentColor = False
end
end
end
Reference in New Issue View Git Blame Copy Permalink