pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Update docs

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5245 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-10-06 21:42:16 +00:00
parent 47a09340ee
commit b75e220a8d
5 changed files with 32 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/examples/visual/fpsctrls/main.lfm
View File

@@ -42,13 +42,14 @@ object MainForm: TMainForm
Font.Height = -13
Font.Name = 'Arial'
MouseWheelOption = mwGrid
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goDblClickAutoSize, goHeaderHotTracking, goCellHints]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goDblClickAutoSize, goCellHints]
ParentFont = False
RowCount = 101
TabOrder = 1
TitleFont.Color = clBlack
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleStyle = tsNative
OnClickHyperlink = WorksheetGridClickHyperlink
OnMouseWheel = WorksheetGridMouseWheel
end

4
components/fpspreadsheet/examples/visual/fpsctrls/main.pas
View File

@@ -775,8 +775,10 @@ begin
FSaveFormats := GetSpreadFormats(faWrite, priorityFormats);
{$IFDEF WINDOWS}
if Win32MajorVersion >= 10 then
if Win32MajorVersion >= 10 then begin
WorksheetGrid.TitleStyle := tsLazarus;
Inspector.TitleStyle := tsLazarus;
end;
{$ENDIF}
end;