lazarus-ccr/components/gridprinter/examples/multi-language/main.lfm

object MainForm: TMainForm
  Left = 331
  Height = 491
  Top = 127
  Width = 656
  Caption = 'Multi-Language Demonstration of TGridPrinter'
  ClientHeight = 491
  ClientWidth = 656
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object StringGrid1: TStringGrid
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Panel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = btnPrint
    Left = 6
    Height = 419
    Top = 35
    Width = 644
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Around = 6
    ColCount = 6
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goCellEllipsis]
    RowCount = 6
    TabOrder = 0
  end
  object btnPrint: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 6
    Height = 25
    Top = 460
    Width = 75
    Anchors = [akLeft, akBottom]
    BorderSpacing.Around = 6
    Caption = 'Print...'
    OnClick = btnPrintClick
    TabOrder = 1
  end
  object btnPreview: TButton
    AnchorSideLeft.Control = cmbDialogs
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = btnPrint
    Left = 275
    Height = 25
    Top = 460
    Width = 76
    AutoSize = True
    BorderSpacing.Left = 24
    Caption = 'Preview...'
    OnClick = btnPreviewClick
    TabOrder = 2
  end
  object cmbDialogs: TComboBox
    AnchorSideLeft.Control = btnPrint
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = btnPrint
    AnchorSideTop.Side = asrCenter
    Left = 87
    Height = 23
    Top = 461
    Width = 164
    BorderSpacing.Left = 6
    ItemHeight = 15
    Items.Strings = (
      'RSNoPrinterDialog'
      'RSPageSetupDialog'
      'RSPrinterDialog'
      'RSPrinterSetupDialog'
    )
    Style = csDropDownList
    TabOrder = 3
  end
  object ccbPreviewOptions: TCheckComboBox
    AnchorSideLeft.Control = btnPreview
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = btnPreview
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 357
    Height = 22
    Top = 461
    Width = 293
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    ItemHeight = 16
    Items.Strings = (
      'ppoNavigationBtns'
      'ppoNavigationEdit'
      'ppoZoomBtns'
      'ppoPageOrientationBtns'
      'ppoMarginsBtn'
      'ppoHeaderFooterBtn'
      'ppoPrintOrderBtns '
    )
    OnItemChange = ccbPreviewOptionsItemChange
    TabOrder = 4
  end
  object Panel1: TPanel
    Left = 0
    Height = 29
    Top = 0
    Width = 656
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 29
    ClientWidth = 656
    TabOrder = 5
    object Label1: TLabel
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = cmbLanguages
      AnchorSideTop.Side = asrCenter
      Left = 6
      Height = 15
      Top = 10
      Width = 55
      BorderSpacing.Left = 6
      Caption = 'Language:'
    end
    object cmbLanguages: TComboBox
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      AnchorSideRight.Control = Panel1
      AnchorSideRight.Side = asrBottom
      Left = 67
      Height = 23
      Top = 6
      Width = 581
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 6
      BorderSpacing.Top = 6
      BorderSpacing.Right = 8
      ItemHeight = 15
      OnChange = cmbLanguagesChange
      Style = csDropDownList
      TabOrder = 0
    end
  end
  object GridPrinter1: TGridPrinter
    Grid = StringGrid1
    Footer.Font.Height = -11
    Header.Font.Height = -11
    Header.Text = 'test||'
    Left = 168
    Top = 96
  end
  object GridPrintPreviewDialog1: TGridPrintPreviewDialog
    GridPrinter = GridPrinter1
    Left = 288
    Top = 96
  end
end