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

fpspreadsheet: Undo prev fix of compilation error because it is fixed in grids.pas now. Update title style of TsWorksheetGrid for Win10.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4653 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-05-17 11:47:17 +00:00
parent 89caeb5de0
commit 2c01d20390
3 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -407,7 +407,7 @@ implementation
{$R *.lfm}
uses
LCLIntf, inifiles, uriparser,
LCLIntf, inifiles, uriparser, Grids,
fpsUtils, fpsCSV,
sCSVParamsForm, sCurrencyForm, sFormatSettingsForm, sSortParamsForm,
sHyperlinkForm, sNumFormatForm, sSearchForm;
@@ -732,6 +732,11 @@ begin
AcFileSaveAs.Dialog.Filter := GetFileFormatFilter('|', ';', faWrite, priorityFormats);
FSaveFormats := GetSpreadFormats(faWrite, priorityFormats);
{$IFDEF WINDOWS}
if Win32MajorVersion >= 10 then
WorksheetGrid.TitleStyle := tsLazarus;
{$ENDIF}
end;
{ Event handler for hyperlinks: it only has to provide the hyperlink data