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

fpspreadsheet: Add support for hidden gridlines and table headers to ExcelXML writer.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4350 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-09-21 16:25:50 +00:00
parent 022eac32cf
commit 075b82257f
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpspreadsheet/xlsxml.pas
View File

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