From 29823d09b4560da55d97900e0ad006aef13174bc Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 29 Apr 2012 15:22:53 +0000
Subject: [PATCH] Patch from wp for fixing multiple sheet support in XLSX

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2412 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/xlsxooxml.pas | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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