fpspreadsheet: Add metadata writer for Excel XML. Fix usage of UTC in the Excel metadata.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7580 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-28 17:57:32 +00:00
parent ed025ddea4
commit ea91b7fca5
4 changed files with 106 additions and 47 deletions

View File

@ -5,7 +5,7 @@ uses
windows,
{$ENDIF}
SysUtils,
fpspreadsheet, fpstypes, xlsxooxml, fpsopendocument;
fpspreadsheet, fpstypes, xlsxooxml, fpsopendocument, xlsxml;
function GetUserName: String;
// http://forum.lazarus.freepascal.org/index.php/topic,23171.msg138057.html#msg138057
@ -76,7 +76,8 @@ begin
sheet.WriteText(2, 3, 'abc');
sheet.WriteBackgroundColor(2, 3, scYellow);
book.WriteToFile('test.xlsx', true);
book.WritetoFile('test.ods', true);
book.WriteToFile('test.ods', true);
book.WriteToFile('test.xml', true)
finally
book.Free;
end;