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

fpspreadsheet: Fix TsWorksheet.WriteBlank erasing formula (see: http://forum.lazarus.freepascal.org/index.php/topic,35906.msg238389/topicseen.html)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5751 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-02-17 23:38:47 +00:00
parent 694b61fac2
commit cf167af00d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -4830,7 +4830,7 @@ end;
procedure TsWorksheet.WriteBlank(ACell: PCell); procedure TsWorksheet.WriteBlank(ACell: PCell);
begin begin
if ACell <> nil then begin if ACell <> nil then begin
ACell^.FormulaValue := ''; //ACell^.FormulaValue := '';
if HasHyperlink(ACell) then if HasHyperlink(ACell) then
WriteText(ACell, '') // '' will be replaced by the hyperlink target. WriteText(ACell, '') // '' will be replaced by the hyperlink target.
else else