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

fpspreadsheet: Fix TsWorksheet ignoring the workbook's default font after loading a file.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3628 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-10-03 16:29:14 +00:00
parent 91e22cd724
commit 912f9979e5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -3154,6 +3154,7 @@ begin
end;
end else
if FWorksheet <> nil then begin
Convert_sFont_to_Font(FWorkbook.GetDefaultFont, Font);
ColCount := Max(FWorksheet.GetLastColIndex + 1 + FHeaderCount, FInitColCount);
RowCount := Max(FWorksheet.GetLastRowIndex + 1 + FHeaderCount, FInitRowCount);
FixedCols := FFrozenCols + FHeaderCount;