From 075b82257f4fa6b67670b0e6398cf62227d65fa0 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 21 Sep 2015 16:25:50 +0000
Subject: [PATCH] fpspreadsheet: Add support for hidden gridlines and table
 headers to ExcelXML writer.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4350 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/xlsxml.pas | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/xlsxml.pas b/components/fpspreadsheet/xlsxml.pas
index 730296e72..2c41b6bc8 100644
--- a/components/fpspreadsheet/xlsxml.pas
+++ b/components/fpspreadsheet/xlsxml.pas
@@ -722,6 +722,8 @@ var
   footerStr, headerStr: String;
   hcenterStr, vcenterStr: String;
   startpageStr: String;
+  hideGridStr: String;
+  hideHeadersStr: String;
 begin
   if (AWorksheet.PageLayout.Headers[HEADER_FOOTER_INDEX_ALL] <> '') then
     headerStr := ' x:Data="' + UTF8TextToXMLText(AWorksheet.PageLayout.Headers[HEADER_FOOTER_INDEX_ALL]) + '"' else
@@ -743,6 +745,13 @@ begin
     startpageStr := ' x:StartPageNumber="' + IntToStr(AWorksheet.PageLayout.StartPageNumber) + '"' else
     startpageStr := '';
 
+  if not (soShowGridLines in AWorksheet.Options) then
+    hideGridStr := INDENT3 + '<DoNotDisplayGridlines/>' + LF else
+    hideGridStr := '';
+
+  if not (soShowHeaders in AWorksheet.Options) then
+    hideHeadersStr := INDENT3 + '<DoNotDisplayHeadings/>' + LF else
+    hideHeadersStr := '';
 
   AppendToStream(AStream, INDENT2 + Format(
     '<WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">' + LF + INDENT3 +
@@ -752,7 +761,9 @@ begin
         '<Footer x:Margin="%g"%s/>' + LF + INDENT4 +
         '<PageMargins x:Bottom="%g" x:Left="%g" ' +
           'x:Right="%g" x:Top="%g"/>' + LF + INDENT3 +
-      '</PageSetup>' + LF + INDENT2 +
+      '</PageSetup>' + LF +
+      hideGridStr +
+      hideHeadersStr + INDENT2 +
     '</WorksheetOptions>', [
     ORIENTATION_NAME[AWorksheet.PageLayout.Orientation], hcenterStr, vcenterStr, startpageStr,      // >Layout ..
     mmToIn(AWorksheet.PageLayout.HeaderMargin), headerStr,                                          // <Header ..