c8e0dfe161
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5544 8e941d3f-bd1b-0410-a28a-d453659cc2b4
123 lines
2.8 KiB
Plaintext
123 lines
2.8 KiB
Plaintext
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 BtnPrevSheet: TSpeedButton
|
|
Left = 504
|
|
Height = 23
|
|
Top = 406
|
|
Width = 79
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Prev sheet'
|
|
OnClick = BtnPrevSheetClick
|
|
end
|
|
object BtnNextSheet: TSpeedButton
|
|
Left = 588
|
|
Height = 23
|
|
Top = 406
|
|
Width = 79
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Next sheet'
|
|
OnClick = BtnNextSheetClick
|
|
end
|
|
object OpenDialog: TOpenDialog
|
|
left = 280
|
|
top = 128
|
|
end
|
|
object SaveDialog: TSaveDialog
|
|
left = 280
|
|
top = 187
|
|
end
|
|
end
|