Repository URL to install this package:
Version:
1.6 ▾
|
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