From 9436da6a2cce836a91438644af0054bc6cfc303b Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Mon, 29 Jul 2019 22:45:00 +0000 Subject: [PATCH] fpspreadsheet: Fix ods reader's ApplyColData erasing page breaks written by LibreOffice Calc (issue #1 in https://forum.lazarus.freepascal.org/index.php/topic,46175.msg328961.html#msg328961). git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7087 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/source/common/fpsreaderwriter.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/fpspreadsheet/source/common/fpsreaderwriter.pas b/components/fpspreadsheet/source/common/fpsreaderwriter.pas index 98a5eb9e5..2ab37fd50 100644 --- a/components/fpspreadsheet/source/common/fpsreaderwriter.pas +++ b/components/fpspreadsheet/source/common/fpsreaderwriter.pas @@ -434,7 +434,7 @@ begin // ...and delete all visible column records with default format for c := sheet.Cols.Count-1 downto 0 do begin lCol := PCol(sheet.Cols[c]); - if (lCol^.FormatIndex = 0) and not (croHidden in lCol^.Options) then + if (lCol^.FormatIndex = 0) and ([croHidden, croPageBreak] * lCol^.Options = []) then sheet.RemoveCol(lCol^.Col); end; end;