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