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

fpspreadsheet: Fix xlsx reader ignoring cell attributes for cells having font #1 in files not written by fps (confused by uffBold).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3419 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-08-03 21:43:08 +00:00
parent a7c1405be0
commit b6d9f2f0f0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/xlsxooxml.pas
View File

@ -340,10 +340,10 @@ begin
xf := TXFListData(FXfList.Items[XfIndex]); xf := TXFListData(FXfList.Items[XfIndex]);
// Font // Font
if xf.FontIndex = 1 then if FWrittenByFPS and (xf.FontIndex = 1) then
Include(ACell^.UsedFormattingFields, uffBold) Include(ACell^.UsedFormattingFields, uffBold)
else else
if xf.FontIndex > 1 then if xf.FontIndex > 0 then
Include(ACell^.UsedFormattingFields, uffFont); Include(ACell^.UsedFormattingFields, uffFont);
ACell^.FontIndex := xf.FontIndex; ACell^.FontIndex := xf.FontIndex;