Files
lazarus-ccr/components/fpspreadsheet/examples/visual/fpsgrid/mainform.lfm
wp_xxyyzz 5b946b751f fpspreadsheet: Add units (mm, cm, in, pts, lines/chars) for column width and row heights. Update all demos (some issues left).
NOTE: This revision breaks existing code if the worksheet's DefaultRowHeight/DefaultColWidth is changed - value must be in millimeters now. Methods for accessing individual row heiths and column widths are fine, but are marked as deprecated, they use the old units. Optionally a unit parameter can be specified.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4568 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-03-18 19:50:40 +00:00

151 lines
3.7 KiB
Plaintext

object Form1: TForm1
Left = 375
Height = 649
Top = 185
Width = 894
Caption = 'fpsGrid'
ClientHeight = 649
ClientWidth = 894
OnCreate = FormCreate
ShowHint = True
LCLVersion = '1.7'
object Panel1: TPanel
Left = 776
Height = 649
Top = 0
Width = 118
Align = alRight
BevelOuter = bvNone
ClientHeight = 649
ClientWidth = 118
TabOrder = 0
object BtnOpen: TButton
Left = 8
Height = 25
Top = 31
Width = 99
Caption = 'Open...'
OnClick = BtnOpenClick
TabOrder = 0
end
object BtnSave: TButton
Left = 8
Height = 25
Top = 58
Width = 99
Caption = 'Save...'
OnClick = BtnSaveClick
TabOrder = 1
end
object BtnNew: TButton
Left = 8
Height = 25
Top = 4
Width = 99
Caption = 'New...'
OnClick = BtnNewClick
TabOrder = 2
end
object CbReadFormulas: TCheckBox
Left = 8
Height = 19
Top = 96
Width = 96
Caption = 'Read formulas'
OnChange = CbReadFormulasChange
TabOrder = 3
end
object CbAutoCalc: TCheckBox
Left = 8
Height = 19
Top = 120
Width = 70
Caption = 'Auto calc'
OnChange = CbAutoCalcChange
TabOrder = 4
end
end
object Panel3: TPanel
Left = 0
Height = 649
Top = 0
Width = 776
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
ClientHeight = 649
ClientWidth = 776
TabOrder = 1
object Panel2: TPanel
Left = 0
Height = 32
Top = 0
Width = 776
Align = alTop
BevelOuter = bvNone
ClientHeight = 32
ClientWidth = 776
TabOrder = 0
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 37
Caption = 'Sheets:'
ParentColor = False
end
object SheetsCombo: TComboBox
Left = 72
Height = 23
Top = 4
Width = 700
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Sheet 1'
)
OnSelect = SheetsComboSelect
Style = csDropDownList
TabOrder = 0
Text = 'Sheet 1'
end
end
object WorksheetGrid: TsWorksheetGrid
Left = 0
Height = 617
Top = 32
Width = 776
AutoCalc = True
FrozenCols = 0
FrozenRows = 0
ReadFormulas = True
WorkbookSource = WorksheetGrid.internal
Align = alClient
AutoAdvance = aaDown
ColCount = 10
DefaultColWidth = 64
DefaultRowHeight = 22
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goDblClickAutoSize, goSmoothScroll, goHeaderHotTracking, goHeaderPushedLook, goFixedColSizing, goCellHints]
RowCount = 10
TabOrder = 1
TitleStyle = tsNative
end
end
object OpenDialog: TOpenDialog
DefaultExt = '.xls'
Filter = 'Excel spreadsheet (*.xls)|*.xls|Excel XML spreadsheet (*.xlsx)|*.xlsx|LibreOffice/OpenOffice spreadsheet (*.ods)|*.ods|Wikitable (pipes) (.wikitable_pipes)|.wikitable_pipes|All files (*.*)|*.*'
Options = [ofExtensionDifferent, ofEnableSizing, ofViewDetail]
left = 184
top = 200
end
object SaveDialog: TSaveDialog
DefaultExt = '.xls'
Filter = 'Excel spreadsheet (*.xls)|*.xls|Excel XML spreadsheet (*.xlsx)|*.xlsx|LibreOffice/OpenOffice spreadsheet (*.ods)|*.ods|Wikitable (wikimedia) (.wikitable_wikimedia)|*.wikitable_wikimedia'
Options = [ofOverwritePrompt, ofExtensionDifferent, ofEnableSizing, ofViewDetail]
left = 184
top = 264
end
end