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

fpspreadsheet: Put conditional font handling in place for XLSX writer. Commented out, however, because Excel refuses to load such files (although syntactially correct).

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

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

@ -6249,10 +6249,33 @@ procedure TsSpreadOOXMLWriter.WriteDifferentialFormat(AStream: TStream;
var
pt, bc, fc, diag: string;
font: TsFont;
begin
AppendToStream(AStream,
'<dxf>');
{ font }
// TODO: Fix font handling: although correct in syntax something seems to be missing...
{
if (uffFont in AFormat^.UsedFormattingFields) then
begin
font := TsWorkbook(FWorkbook).GetFont(AFormat^.FontIndex);
if font <> nil then
begin
AppendToStream(AStream, '<font>');
if font.Color <> scNotDefined then
AppendToStream(AStream, Format('<color rgb="%s" />', [fc] ));
if fssBold in font.Style then
AppendToStream(AStream, '<b />');
if fssItalic in font.Style then
AppendToStream(AStream, '<i />');
if fssStrikeout in font.Style then
AppendToStream(AStream, '<strike />');
// Font name, font size, and style underline not supported
AppendToStream(AStream, '</font>');
end;
end;
}
{ background fill }
if (uffBackground in AFormat^.UsedFormattingFields) then
begin
@ -6291,26 +6314,6 @@ begin
WriteBorderStyle(AStream, AFormat, cbDiagUp, 'diagonal');
AppendToStream(AStream,
'</border>');
// TODO: Fix font handling: although correct in syntax something seems to be missing...
{ font }
{
font := TsWorkbook(FWorkbook).GetFont(AFormat^.FontIndex);
if font <> nil then
begin
fc := ColorToHTMLColorStr(font.Color, true);
AppendToStream(AStream, '<font>');
AppendToStream(AStream, Format('<color rgb="%s" />', [fc] ));
if fssBold in font.Style then
AppendToStream(AStream, '<b />');
if fssItalic in font.Style then
AppendToStream(AStream, '<i />');
if fssStrikeout in font.Style then
AppendToStream(AStream, '<strike />');
// Font name, font size, and style underline not supported
AppendToStream(AStream, '</font>');
end;
}
end;
AppendToStream(AStream,