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

fpspreadsheet: Fix virtual mode ignoring style cell when writing ods. Issue #39045, patch by Bartek Dajewski,

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8574 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-19 20:39:25 +00:00
parent 8ca568fad2
commit 8a005864a4
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/source/common/fpsopendocument.pas
View File

@ -8968,8 +8968,9 @@ begin
InitCell(ASheet, r, c, lCell); InitCell(ASheet, r, c, lCell);
value := varNull; value := varNull;
styleCell := nil; styleCell := nil;
sheet.OnWriteCellData(sheet, r, c, value, styleCell); sheet.OnWriteCellData(sheet, r, c, value, styleCell);
if styleCell <> nil then
lCell.FormatIndex := styleCell^.FormatIndex;
if VarIsNull(value) then if VarIsNull(value) then
begin begin
@ -8999,7 +9000,7 @@ begin
if VarType(value) = varDate then if VarType(value) = varDate then
begin begin
lCell.ContentType := cctDateTime; lCell.ContentType := cctDateTime;
lCell.DateTimeValue := StrToDateTime(VarToStr(value), Workbook.FormatSettings); // was: StrToDate lCell.DateTimeValue := VarToDateTime(value);
end else end else
if VarIsStr(value) then if VarIsStr(value) then
begin begin