lazarus-ccr/components/fpspreadsheet/examples/visual/zoom/zdmain.lfm

object MainForm: TMainForm
  Left = 280
  Height = 476
  Top = 130
  Width = 678
  Caption = 'Zoom demo'
  ClientHeight = 476
  ClientWidth = 678
  OnCreate = FormCreate
  LCLVersion = '1.7'
  object Grid: TsWorksheetGrid
    Left = 5
    Height = 386
    Top = 8
    Width = 665
    FrozenCols = 0
    FrozenRows = 0
    ReadFormulas = False
    TextOverflow = True
    WorkbookSource = Grid.internal
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoAdvance = aaDown
    ColCount = 27
    DefaultColWidth = 64
    DefaultRowHeight = 22
    MouseWheelOption = mwGrid
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goSmoothScroll]
    RowCount = 101
    TabOrder = 0
    OnMouseWheel = GridMouseWheel
  end
  object BtnOpen: TButton
    Left = 8
    Height = 25
    Top = 405
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Open...'
    OnClick = BtnOpenClick
    TabOrder = 1
  end
  object edZoom: TSpinEdit
    AnchorSideLeft.Control = CbOverrideZoomFactor
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = BtnOpen
    AnchorSideTop.Side = asrCenter
    Left = 282
    Height = 23
    Top = 406
    Width = 66
    Alignment = taRightJustify
    BorderSpacing.Left = 24
    MaxValue = 900
    MinValue = 10
    OnEditingDone = edZoomEditingDone
    TabOrder = 2
    Value = 100
  end
  object CbOverrideZoomFactor: TCheckBox
    AnchorSideLeft.Control = BtnOpen
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = BtnOpen
    AnchorSideTop.Side = asrCenter
    Left = 107
    Height = 19
    Top = 408
    Width = 151
    BorderSpacing.Left = 24
    Caption = 'Override file zoom factor'
    TabOrder = 3
  end
  object BtnSave: TButton
    AnchorSideLeft.Control = BtnOpen
    AnchorSideTop.Control = BtnOpen
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 25
    Top = 438
    Width = 75
    BorderSpacing.Top = 8
    Caption = 'Save...'
    OnClick = BtnSaveClick
    TabOrder = 4
  end
  object CbWriteZoomFactor: TCheckBox
    AnchorSideLeft.Control = CbOverrideZoomFactor
    AnchorSideTop.Control = BtnSave
    AnchorSideTop.Side = asrCenter
    Left = 107
    Height = 19
    Top = 441
    Width = 115
    Caption = 'Write zoom factor'
    TabOrder = 5
  end
  object OpenDialog: TOpenDialog
    left = 280
    top = 128
  end
  object SaveDialog: TSaveDialog
    left = 280
    top = 187
  end
end