lazarus-ccr/components/gridprinter/examples/stringgrid_columns/unit1.lfm

object Form1: TForm1
  Left = 256
  Height = 324
  Top = 134
  Width = 303
  Caption = 'Form1'
  ClientHeight = 324
  ClientWidth = 303
  LCLVersion = '2.3.0.0'
  object StringGrid1: TStringGrid
    Left = 0
    Height = 287
    Top = 0
    Width = 303
    Align = alClient
    ColCount = 4
    Columns = <    
      item
        Title.Caption = 'Col 1'
        Width = 64
      end    
      item
        Alignment = taRightJustify
        Title.Alignment = taRightJustify
        Title.Caption = 'Col 2'
        Width = 64
      end    
      item
        ButtonStyle = cbsCheckboxColumn
        Color = clActiveBorder
        Title.Alignment = taCenter
        Title.Caption = 'Col 3'
        Width = 64
      end>
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll, goFixedRowNumbering]
    TabOrder = 0
    Cells = (
      11
      1
      1
      'abc'
      1
      2
      'def'
      1
      3
      'ghi'
      1
      4
      'jkl'
      2
      1
      'test 1'
      2
      2
      'test 2'
      2
      3
      'test 3'
      2
      4
      'test 5'
      3
      1
      '1'
      3
      2
      '0'
      3
      4
      '1'
    )
  end
  object Panel1: TPanel
    Left = 0
    Height = 37
    Top = 287
    Width = 303
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 37
    ClientWidth = 303
    TabOrder = 1
    object Button1: TButton
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 6
      Height = 25
      Top = 6
      Width = 75
      BorderSpacing.Around = 6
      Caption = 'Preview...'
      OnClick = Button1Click
      TabOrder = 0
    end
  end
  object GridPrinter1: TGridPrinter
    Grid = StringGrid1
    Footer.Font.Height = -11
    Footer.FontSize = 8
    Header.Font.Height = -11
    Header.FontSize = 8
    ShowPrintDialog = gpdPrintDialog
    Left = 63
    Top = 143
  end
  object GridPrintPreviewDialog1: TGridPrintPreviewDialog
    FormParams.PixelsPerInch = 96
    GridPrinter = GridPrinter1
    Left = 192
    Top = 143
  end
end