From 4260c5bd5ea9d6e6ee20e8838939075d6267e7e5 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 10 Sep 2018 09:00:48 +0000 Subject: [PATCH] fpspreadsheet: Fix file reader deleting row records of hidden rows. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6639 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/source/common/fpsreaderwriter.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/components/fpspreadsheet/source/common/fpsreaderwriter.pas b/components/fpspreadsheet/source/common/fpsreaderwriter.pas index fab2e0f92..0546537a1 100644 --- a/components/fpspreadsheet/source/common/fpsreaderwriter.pas +++ b/components/fpspreadsheet/source/common/fpsreaderwriter.pas @@ -454,11 +454,13 @@ begin // to the DefaultRowHeight ... sheet.WriteDefaultRowHeight(h, FWorkbook.Units); - // ... and delete all row records with default format. + // ... and delete all visible row records with default format. for r := sheet.Rows.Count-1 downto 0 do begin lRow := PRow(sheet.Rows[r]); - if (lRow^.FormatIndex = 0) and (not lRow^.Hidden) then sheet.RemoveRow(r); + if (lRow^.FormatIndex = 0) and (not lRow^.Hidden) then + sheet.RemoveRow(lRow^.Row); end; + end; {@@ ----------------------------------------------------------------------------