lazarus/components/printers/samples/dialogs/frmselprinter.lfm

object Form1: TForm1
  Left = 106
  Height = 787
  Top = 50
  Width = 489
  ActiveControl = Button7
  Caption = 'Form1'
  ClientHeight = 787
  ClientWidth = 489
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  object Label1: TLabel
    Left = 12
    Height = 16
    Top = 4
    Width = 292
    Caption = 'This sample show how to use the printer dialogs'
    ParentColor = False
  end
  object Button2: TButton
    Left = 8
    Height = 27
    Top = 51
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute TPrinterSetupDialog'
    OnClick = Button2Click
    TabOrder = 0
  end
  object btnTPrintDialog: TButton
    Left = 8
    Height = 27
    Top = 78
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute TPrintDialog'
    OnClick = btnTPrintDialogClick
    TabOrder = 1
  end
  object SGrid: TStringGrid
    Left = 8
    Height = 459
    Top = 320
    Width = 469
    AlternateColor = clCream
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    ColCount = 2
    Columns = <    
      item
        Color = clBtnFace
        SizePriority = 0
        Title.Caption = 'Property'
        Width = 120
      end    
      item
        MinSize = 60
        MaxSize = 350
        ReadOnly = True
        Title.Caption = 'Value'
        Width = 347
      end>
    DefaultColWidth = 120
    FixedCols = 0
    FixedRows = 0
    Options = [goVertLine, goRangeSelect, goSmoothScroll]
    RowCount = 15
    TabOrder = 7
    TitleStyle = tsNative
    OnSelectCell = SGridSelectCell
    ColWidths = (
      120
      347
    )
  end
  object Button3: TButton
    Left = 8
    Height = 27
    Top = 105
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Get default printer info'
    OnClick = Button3Click
    TabOrder = 2
  end
  object btnDirectPrint: TButton
    Left = 202
    Height = 27
    Top = 152
    Width = 126
    BorderSpacing.InnerBorder = 4
    Caption = 'Direct Print'
    OnClick = btnDirectPrintClick
    TabOrder = 3
  end
  object Button5: TButton
    Left = 8
    Height = 25
    Top = 132
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Update printer state info'
    OnClick = Button5Click
    TabOrder = 4
  end
  object Button6: TButton
    Left = 8
    Height = 25
    Top = 157
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Show printer properties'
    OnClick = Button6Click
    TabOrder = 5
  end
  object Button7: TButton
    Left = 8
    Height = 27
    Top = 24
    Width = 176
    BorderSpacing.InnerBorder = 4
    Caption = 'Execute TPageSetupDialog'
    OnClick = Button7Click
    TabOrder = 6
  end
  object chkTestImgs: TCheckBox
    Left = 392
    Height = 18
    Top = 100
    Width = 77
    Caption = 'Test Imgs'
    TabOrder = 8
  end
  object chkOutputFile: TCheckBox
    Left = 195
    Height = 18
    Top = 27
    Width = 85
    Caption = 'Output File'
    TabOrder = 9
  end
  object txtOutputFile: TFileNameEdit
    Left = 195
    Height = 22
    Top = 48
    Width = 261
    DialogKind = dkSave
    DialogOptions = []
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    Anchors = [akTop, akLeft, akRight]
    MaxLength = 0
    TabOrder = 10
  end
  object Label2: TLabel
    Left = 61
    Height = 16
    Top = 192
    Width = 120
    Alignment = taRightJustify
    Caption = 'PageSetupDlg Title:'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 49
    Height = 16
    Top = 212
    Width = 130
    Alignment = taRightJustify
    Caption = 'PrinterSetupDlg Title:'
    ParentColor = False
  end
  object txtPageSetupDlgTitle: TEdit
    Left = 202
    Height = 22
    Top = 188
    Width = 275
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 11
    Text = 'Printer Dialogs Tests: PageSetupDialog'
  end
  object txtPrinterSetupDlgTitle: TEdit
    Left = 202
    Height = 22
    Top = 212
    Width = 275
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 12
    Text = 'Printer Dialogs Tests: PrinterSetupDialog'
  end
  object Label4: TLabel
    Left = 78
    Height = 16
    Top = 236
    Width = 100
    Alignment = taRightJustify
    Caption = 'PrintDialog Title:'
    ParentColor = False
  end
  object txtPrintDialogTitle: TEdit
    Left = 202
    Height = 22
    Top = 236
    Width = 275
    Anchors = [akTop, akLeft, akRight]
    TabOrder = 13
    Text = 'Printer Dialogs Tests: PrinterDialog'
  end
  object btnRotateBin: TButton
    Left = 195
    Height = 25
    Top = 72
    Width = 127
    Anchors = [akTop, akRight]
    Caption = 'Rotate Bin'
    OnClick = btnRotateBinClick
    TabOrder = 14
  end
  object btnRestoreDefaultBin: TButton
    Left = 332
    Height = 25
    Top = 72
    Width = 123
    Anchors = [akTop, akRight]
    Caption = 'Restore Default Bin'
    OnClick = btnRestoreDefaultBinClick
    TabOrder = 15
  end
  object btnPrintWithDlg: TButton
    Left = 334
    Height = 27
    Top = 152
    Width = 142
    Caption = 'Print with Dialog'
    OnClick = btnPrintWithDlgClick
    TabOrder = 16
  end
  object comboTests: TComboBox
    Left = 200
    Height = 20
    Top = 120
    Width = 272
    ItemHeight = 26
    ItemIndex = 0
    Items.Strings = (
      'Single Page'
      'Single Page with Images'
      'Multi-Page'
      'Multipage with paper changes'
      'Rulers'
    )
    OnSelect = comboTestsSelect
    Style = csDropDownList
    TabOrder = 17
    Text = 'Single Page'
  end
  object Label5: TLabel
    Left = 202
    Height = 16
    Top = 104
    Width = 36
    Caption = 'Tests:'
    ParentColor = False
  end
  object chkAsSheet: TCheckBox
    Left = 360
    Height = 18
    Hint = 'Cocoa Only:'#10'Attach the dialogs to the main form:'#10'use the dialogs AttachTo property'#10'to select the target formulary.'
    Top = 4
    Width = 73
    Caption = 'As Sheet'
    Enabled = False
    TabOrder = 18
  end
  object cbPrinters: TComboBox
    Left = 202
    Height = 20
    Top = 264
    Width = 275
    ItemHeight = 19
    OnSelect = cbPrintersSelect
    TabOrder = 19
    Text = 'cbPrinters'
  end
  object cbPapers: TComboBox
    Left = 202
    Height = 20
    Top = 288
    Width = 275
    ItemHeight = 19
    OnSelect = cbPapersSelect
    TabOrder = 20
    Text = 'cbPapers'
  end
  object Label6: TLabel
    Left = 1
    Height = 16
    Top = 264
    Width = 175
    Alignment = taRightJustify
    Caption = 'Programmatically set printer:'
    ParentColor = False
  end
  object Label7: TLabel
    Left = 8
    Height = 16
    Top = 288
    Width = 170
    Alignment = taRightJustify
    Caption = 'Programmatically set paper:'
    ParentColor = False
  end
  object chkNativeDlg: TCheckBox
    Left = 360
    Height = 18
    Hint = 'Cocoa Only: '#10'Checked State: (default) Use the native cocoa look with print preview.'#10'Uncheck State: Use a dialog without print preview.'#10#10'By default the sistem uses the native look, to force the old look'#10'turn the print dialog option poBeforeBeginDoc on'
    Top = 22
    Width = 98
    Caption = 'Native Dialog'
    Checked = True
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    State = cbChecked
    TabOrder = 21
  end
  object PSD: TPrinterSetupDialog
    Title = 'Testing dialog title'
    left = 172
    top = 452
  end
  object PD: TPrintDialog
    Title = 'Testing title'
    Collate = True
    FromPage = 1
    MinPage = 1
    MaxPage = 1
    Options = [poPrintToFile, poPageNums, poSelection, poWarning, poHelp]
    PrintToFile = True
    ToPage = 1
    left = 172
    top = 484
  end
  object PopupMenu1: TPopupMenu
    left = 212
    top = 452
  end
  object PAGED: TPageSetupDialog
    Title = 'Ustawienie strony raportu'
    left = 172
    top = 516
  end
end