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

fpspreadsheet: Fix stupid error in writing row and column page breaks to xlsx file.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7075 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-07-26 15:37:02 +00:00
parent 781fc2f5cd
commit 1968f22a50
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/source/common/xlsxooxml.pas
View File

@ -3092,8 +3092,9 @@ begin
AppendToStream(AStream, Format(
'<colBreaks count="%d" manualBreakCount="%d">', [n, n]));
for i := 0 to sheet.Cols.Count - 1 do
AppendToStream(AStream, Format(
'<brk id="%d" max="1048575" man="1" />', [PCol(sheet.Cols[i])^.Col]));
if (croPageBreak in PCol(sheet.Cols[i])^.Options) then
AppendToStream(AStream, Format(
'<brk id="%d" max="1048575" man="1" />', [PCol(sheet.Cols[i])^.Col]));
AppendToStream(AStream,
'</colBreaks>');
end;
@ -3559,8 +3560,9 @@ begin
AppendToStream(AStream, Format(
'<rowBreaks count="%d" manualBreakCount="%d">', [n, n]));
for i := 0 to sheet.Rows.Count - 1 do
AppendToStream(AStream, Format(
'<brk id="%d" max="16383" man="1" />', [PRow(sheet.Rows[i])^.Row]));
if (croPageBreak in PRow(sheet.Rows[i])^.Options) then
AppendToStream(AStream, Format(
'<brk id="%d" max="16383" man="1" />', [PRow(sheet.Rows[i])^.Row]));
AppendToStream(AStream,
'</rowBreaks>');
end;