lazarus-ccr/components/gridprinter/examples/fpspreadsheet/main.lfm

object MainForm: TMainForm
  Left = 331
  Height = 498
  Top = 129
  Width = 719
  Caption = 'Printing a TsWorksheetGrid'
  ClientHeight = 498
  ClientWidth = 719
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object ButtonPanel: TPanel
    Left = 6
    Height = 25
    Top = 467
    Width = 707
    Align = alBottom
    AutoSize = True
    BorderSpacing.Around = 6
    BevelOuter = bvNone
    ClientHeight = 25
    ClientWidth = 707
    TabOrder = 1
    object btnPrint: TButton
      AnchorSideLeft.Control = btnOpenFile
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ButtonPanel
      Left = 89
      Height = 25
      Top = 0
      Width = 75
      BorderSpacing.Left = 6
      Caption = 'Print...'
      OnClick = btnPrintClick
      TabOrder = 1
    end
    object btnPreview: TButton
      AnchorSideLeft.Control = btnPrint
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ButtonPanel
      Left = 170
      Height = 25
      Top = 0
      Width = 75
      BorderSpacing.Left = 6
      Caption = 'Preview...'
      OnClick = btnPreviewClick
      TabOrder = 2
    end
    object btnOpenFile: TButton
      AnchorSideLeft.Control = ButtonPanel
      AnchorSideTop.Control = ButtonPanel
      Left = 0
      Height = 25
      Top = 0
      Width = 83
      AutoSize = True
      Caption = 'Open file...'
      OnClick = btnOpenFileClick
      TabOrder = 0
    end
  end
  object sWorkbookTabControl1: TsWorkbookTabControl
    Left = 6
    Height = 446
    Top = 6
    Width = 707
    TabPosition = tpBottom
    TabIndex = 0
    Tabs.Strings = (
      'Sheet1'
    )
    Align = alClient
    BorderSpacing.Around = 6
    TabOrder = 0
    WorkbookSource = sWorkbookSource1
    object sWorksheetGrid1: TsWorksheetGrid
      Left = 2
      Height = 421
      Top = 2
      Width = 703
      FrozenCols = 0
      FrozenRows = 0
      PageBreakPen.Color = clBlue
      PageBreakPen.Style = psDash
      ReadFormulas = False
      WorkbookSource = sWorkbookSource1
      Align = alClient
      AutoAdvance = aaDown
      DefaultColWidth = 64
      DefaultRowHeight = 22
      TabOrder = 0
    end
  end
  object Bevel1: TBevel
    Left = 0
    Height = 3
    Top = 458
    Width = 719
    Align = alBottom
    Shape = bsBottomLine
  end
  object GridPrinter1: TGridPrinter
    Grid = sWorksheetGrid1
    Footer.Font.Height = -11
    Footer.FontSize = 8
    Header.Font.Height = -11
    Header.FontSize = 8
    ShowPrintDialog = gpdPrintDialog
    OnAfterPrint = GridPrinter1AfterPrint
    OnBeforePrint = GridPrinter1BeforePrint
    OnGetRowCount = GridPrinter1GetRowCount
    OnGetColCount = GridPrinter1GetColCount
    OnPrintCell = GridPrinter1PrintCell
    Left = 231
    Top = 142
  end
  object GridPrintPreviewDialog1: TGridPrintPreviewDialog
    FormParams.PixelsPerInch = 96
    GridPrinter = GridPrinter1
    Left = 448
    Top = 142
  end
  object sWorkbookSource1: TsWorkbookSource
    FileFormat = sfUser
    Options = []
    Left = 112
    Top = 142
  end
  object OpenDialog1: TOpenDialog
    Filter = 'All spreadsheet files|*.xls;*.xlsx;*.ods;*.csv|All Excel files (*.xls, *.xlsx)|*.xls;*.xlsx|Excel XML spreadsheet (*.xlsx)|*.xlsx|Excel XP/2003 XML spreadsheet (*.xml)|*.xml|Excel 97-2003 spreadsheets (*.xls)|*.xls|Excel 5 spreadsheet (*.xls)|*.xls|Excel 2.1 spreadsheets (*.xls)|*.xls|LibreOffice/OpenOffice spreadsheet (*.ods)|*.ods|HTML files (*.html; *.htm)|*.html;*.htm|Comma-separated text files (*.csv; *.txt)|*.csv;*.txt'
    Left = 230
    Top = 248
  end
end