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

fpspreadsheet: Fix insert row/col behaviour when insert happens at the anchor of a merged block. Issue #39051.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8819 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-05-04 11:33:18 +00:00
parent dc1d72c63d
commit a5cdbad1bb
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5712,7 +5712,7 @@ begin
for rng in FMergedCells do
begin
// The new row is ABOVE the merged block --> Shift entire range down by 1 row
if (AIndex < Integer(rng^.Row1)) then
if (AIndex <= Integer(rng^.Row1)) then
begin
// The formerly first row is no longer merged --> un-tag its cells
for cell in Cells.GetRowEnumerator(rng^.Row1, rng^.Col1, rng^.Col2) do
@ -5741,7 +5741,7 @@ begin
begin
// The new column is at the LEFT of the merged block
// --> Shift entire range to the right by 1 column
if (AIndex < Integer(rng^.Col1)) then
if (AIndex <= Integer(rng^.Col1)) then
begin
// The former first column is no longer merged --> un-tag its cells
for cell in Cells.GetColEnumerator(rng^.Col1, rng^.Row1, rng^.Row2) do