paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7087 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2019-07-29 22:45:00 +00:00
parent 407a68cf26
commit 9436da6a2c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/source/common/fpsreaderwriter.pas
View File

@ -434,7 +434,7 @@ begin
// ...and delete all visible column records with default format // ...and delete all visible column records with default format
for c := sheet.Cols.Count-1 downto 0 do begin for c := sheet.Cols.Count-1 downto 0 do begin
lCol := PCol(sheet.Cols[c]); 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); sheet.RemoveCol(lCol^.Col);
end; end;
end; end;