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

fpspreadsheet: Fix Worksheet.EraseCell not removing formulas and comments.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6546 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-07-05 13:11:44 +00:00
parent b9979977f6
commit 0097e6c586
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2220,8 +2220,13 @@ begin
UnmergeCells(r, c);
// Remove the comment if the cell has one
if HasComment(ACell) then
WriteComment(r, c, '');
RemoveComment(ACell);
// Removes a hyperlink it the cell has one
RemoveHyperlink(ACell);
// Removes the formula if the cell has one
DeleteFormula(ACell);
// Erase all cell content
InitCell(nil, r, c, ACell^);