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

fpspreadsheet: Remove comment about to do item regarding writing of conditional fonts in xlsx.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8037 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-05-18 10:43:34 +00:00
parent 7959f69879
commit b18474f986
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -6591,15 +6591,8 @@ begin
'<dxf>'); '<dxf>');
{ font } { font }
// 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
(*
AFormat^.UsedFormattingFields := AFormat^.UsedFormattingfields - [uffFont]; // trying to make the file readable...
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