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

fpspreadsheet: Fix drag and drop in worksheet grid to move cells and formulas correctly.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8264 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-04-22 22:10:06 +00:00
parent a64ed1654e
commit 8e8d070239
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/visual/fpspreadsheetgrid.pas
View File

@ -2295,9 +2295,10 @@ begin
srccell := Worksheet.FindMergeBase(srccell); srccell := Worksheet.FindMergeBase(srccell);
if srccell <> nil then begin if srccell <> nil then begin
destcell := Worksheet.GetCell(r + dr, c + dc); destcell := Worksheet.GetCell(r + dr, c + dc);
Worksheet.CopyCell(srccell, destcell);
if dragMove then if dragMove then
Worksheet.DeleteCell(srccell); Worksheet.MoveCell(srccell, destcell^.Row, destcell^.Col)
else
Worksheet.CopyCell(srccell, destcell);
end; end;
end; end;
end; end;