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

fpspreadsheet: Add proper log error message when XLSX writer tries to write a conditional font format.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7565 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-26 10:09:04 +00:00
parent f53c6649f5
commit 4fc0ea6045
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/common/xlsxooxml.pas
View File

@ -6256,9 +6256,10 @@ begin
{ font } { font }
// TODO: Fix font handling: although correct in syntax something seems to be missing... // TODO: Fix font handling: although correct in syntax something seems to be missing...
{
if (uffFont in AFormat^.UsedFormattingFields) then if (uffFont in AFormat^.UsedFormattingFields) then
begin begin
FWorkbook.AddErrorMsg('Writing conditional font not supported by XLSX writer.');
{
font := TsWorkbook(FWorkbook).GetFont(AFormat^.FontIndex); font := TsWorkbook(FWorkbook).GetFont(AFormat^.FontIndex);
if font <> nil then if font <> nil then
begin begin
@ -6274,8 +6275,9 @@ begin
// Font name, font size, and style underline not supported // Font name, font size, and style underline not supported
AppendToStream(AStream, '</font>'); AppendToStream(AStream, '</font>');
end; end;
end;
} }
end;
{ background fill } { background fill }
if (uffBackground in AFormat^.UsedFormattingFields) then if (uffBackground in AFormat^.UsedFormattingFields) then
begin begin