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

Patch from wp for fixing multiple sheet support in XLSX

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2412 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2012-04-29 15:22:53 +00:00
parent 60f89d3bfa
commit 29823d09b4
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/xlsxooxml.pas
View File

@@ -213,13 +213,11 @@ begin
' <workbookView xWindow="480" yWindow="90" windowWidth="15195" windowHeight="12525" />' + LineEnding + ' <workbookView xWindow="480" yWindow="90" windowWidth="15195" windowHeight="12525" />' + LineEnding +
' </bookViews>' + LineEnding; ' </bookViews>' + LineEnding;
FWorkbook := FWorkbook + ' <sheets>' + LineEnding;
for i := 1 to AData.GetWorksheetCount do for i := 1 to AData.GetWorksheetCount do
begin
FWorkbook := FWorkbook + FWorkbook := FWorkbook +
' <sheets>' + LineEnding + Format(' <sheet name="Sheet%d" sheetId="%d" r:id="rId%d" />', [i, i, i+2]) + LineEnding;
Format(' <sheet name="Sheet%d" sheetId="%d" r:id="rId%d" />', [i, i, i+2]) + LineEnding + FWorkbook := FWorkbook + ' </sheets>' + LineEnding;
' </sheets>' + LineEnding;
end;
FWorkbook := FWorkbook + FWorkbook := FWorkbook +
' <calcPr calcId="114210" />' + LineEnding + ' <calcPr calcId="114210" />' + LineEnding +