fpspreadsheet: Add pagelayout testcases for page margins.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4111 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2015-05-03 21:41:27 +00:00
parent f2f610ffbd
commit 48eaf9d6a0
4 changed files with 560 additions and 31 deletions
--- a/components/fpspreadsheet/fpsopendocument.pas
+++ b/components/fpspreadsheet/fpsopendocument.pas
@ -992,7 +992,7 @@ begin

          FPageLayoutList.Add(data);
        end else
-        if (nodeName = 'style:header-style') or (nodeName = 'style:footer.style')
+        if (nodeName = 'style:header-style') or (nodeName = 'style:footer-style')
        then
        begin
          isHeader := nodeName = 'style:header-style';
@ -1003,17 +1003,16 @@ begin
            if nodeName = 'style:header-footer-properties' then
            begin
              s := GetAttrValue(child, 'fo:min-height');
-              if s <> '' then begin
-                h := PtsToMM(HTMLLengthStrToPts(s));
-                if isHeader then
-                begin
-                  data.PageLayout.HeaderMargin := data.PageLayout.TopMargin;
-                  data.PageLayout.TopMargin := data.PageLayout.HeaderMargin + h;
-                end else
-                begin
-                  data.PageLayout.FooterMargin := data.PageLayout.BottomMargin;
-                  data.PageLayout.BottomMargin := data.PageLayout.FooterMargin + h;
-                end;
+              if s <> '' then
+                h := PtsToMM(HTMLLengthStrToPts(s)) else h := 0;
+              if isHeader then
+              begin
+                data.PageLayout.HeaderMargin := data.PageLayout.TopMargin;
+                data.PageLayout.TopMargin := data.PageLayout.HeaderMargin + h;
+              end else
+              begin
+                data.PageLayout.FooterMargin := data.PageLayout.BottomMargin;
+                data.PageLayout.BottomMargin := data.PageLayout.FooterMargin + h;
              end;
            end;
            child := child.NextSibling;
@ -3116,6 +3115,7 @@ procedure TsSpreadOpenDocWriter.WriteAutomaticStyles(AStream: TStream);
    i: Integer;
    hasHeader, hasFooter: Boolean;
    topmargin, bottommargin: Double;
+    h: Double;
  begin
    hasHeader := false;
    hasFooter := false;
@ -3181,15 +3181,18 @@ procedure TsSpreadOpenDocWriter.WriteAutomaticStyles(AStream: TStream);

    pageLayoutStr := pageLayoutStr + 'style:print="' + options + '" ';

+    h := PtsToMM(FWorkbook.GetDefaultFontSize);
+
    if hasHeader then
      headerStyleStr := Format(
        '<style:header-style>'+
          '<style:header-footer-properties ' +
            'fo:margin-left="0mm" fo:margin-right="0mm" '+
-            'fo:min-height="%.2fmm" '+
+            'fo:min-height="%.2fmm" fo:margin-bottom="%.2fmm" '+
          '/>'+
        '</style:header-style>', [
-        APageLayout.TopMargin - APageLayout.HeaderMargin], FPointSeparatorSettings)
+        APageLayout.TopMargin - APageLayout.HeaderMargin,
+        APageLayout.TopMargin - APageLayout.HeaderMargin - h], FPointSeparatorSettings)
    else
      headerStyleStr := '';

@ -3198,10 +3201,11 @@ procedure TsSpreadOpenDocWriter.WriteAutomaticStyles(AStream: TStream);
        '<style:footer-style>'+
          '<style:header-footer-properties ' +
            'fo:margin-left="0mm" fo:margin-right="0mm" '+
-            'fo:min-height="%.2fmm" '+
+            'fo:min-height="%.2fmm" fo:margin-top="%.2fmm" '+
          '/>'+
        '</style:footer-style>', [
-        APageLayout.BottomMargin - APageLayout.FooterMargin], FPointSeparatorSettings)
+        APageLayout.BottomMargin - APageLayout.FooterMargin,
+        APageLayout.BottomMargin - APageLayout.FooterMargin - h], FPointSeparatorSettings)
    else
      footerStyleStr := '';

--- a/components/fpspreadsheet/tests/pagelayouttests.pas
+++ b/components/fpspreadsheet/tests/pagelayouttests.pas
@ -0,0 +1,534 @@
+{ PageLayout tests
+  These unit tests are writing out to and reading back from file.
+}
+
+unit pagelayouttests;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  // Not using Lazarus package as the user may be working with multiple versions
+  // Instead, add .. to unit search path
+  Classes, SysUtils, fpcunit, testregistry,
+  fpstypes, fpspreadsheet, xlsbiff8 {and a project requirement for lclbase for utf8 handling},
+  testsutility;
+
+type
+  { TSpreadWriteReadHyperlinkTests }
+  //Write to xls/xml file and read back
+  TSpreadWriteReadPageLayoutTests = class(TTestCase)
+  private
+  protected
+    // Set up expected values:
+    procedure SetUp; override;
+    procedure TearDown; override;
+    procedure TestWriteRead_PageMargins(AFormat: TsSpreadsheetFormat; ANumSheets, AHeaderFooterMode: Integer);
+      
+  published
+    { BIFF2 page layout tests }
+    procedure TestWriteRead_PageMargins_BIFF2_1sheet_0;
+    procedure TestWriteRead_PageMargins_BIFF2_1sheet_1;
+    procedure TestWriteRead_PageMargins_BIFF2_1sheet_2;
+    procedure TestWriteRead_PageMargins_BIFF2_1sheet_3;
+    procedure TestWriteRead_PageMargins_BIFF2_2sheets_0;
+    procedure TestWriteRead_PageMargins_BIFF2_2sheets_1;
+    procedure TestWriteRead_PageMargins_BIFF2_2sheets_2;
+    procedure TestWriteRead_PageMargins_BIFF2_2sheets_3;
+    procedure TestWriteRead_PageMargins_BIFF2_3sheets_0;
+    procedure TestWriteRead_PageMargins_BIFF2_3sheets_1;
+    procedure TestWriteRead_PageMargins_BIFF2_3sheets_2;
+    procedure TestWriteRead_PageMargins_BIFF2_3sheets_3;
+
+    { BIFF5 page layout tests }
+    procedure TestWriteRead_PageMargins_BIFF5_1sheet_0;
+    procedure TestWriteRead_PageMargins_BIFF5_1sheet_1;
+    procedure TestWriteRead_PageMargins_BIFF5_1sheet_2;
+    procedure TestWriteRead_PageMargins_BIFF5_1sheet_3;
+    procedure TestWriteRead_PageMargins_BIFF5_2sheets_0;
+    procedure TestWriteRead_PageMargins_BIFF5_2sheets_1;
+    procedure TestWriteRead_PageMargins_BIFF5_2sheets_2;
+    procedure TestWriteRead_PageMargins_BIFF5_2sheets_3;
+    procedure TestWriteRead_PageMargins_BIFF5_3sheets_0;
+    procedure TestWriteRead_PageMargins_BIFF5_3sheets_1;
+    procedure TestWriteRead_PageMargins_BIFF5_3sheets_2;
+    procedure TestWriteRead_PageMargins_BIFF5_3sheets_3;
+
+    { BIFF8 page layout tests }
+    procedure TestWriteRead_PageMargins_BIFF8_1sheet_0;
+    procedure TestWriteRead_PageMargins_BIFF8_1sheet_1;
+    procedure TestWriteRead_PageMargins_BIFF8_1sheet_2;
+    procedure TestWriteRead_PageMargins_BIFF8_1sheet_3;
+    procedure TestWriteRead_PageMargins_BIFF8_2sheets_0;
+    procedure TestWriteRead_PageMargins_BIFF8_2sheets_1;
+    procedure TestWriteRead_PageMargins_BIFF8_2sheets_2;
+    procedure TestWriteRead_PageMargins_BIFF8_2sheets_3;
+    procedure TestWriteRead_PageMargins_BIFF8_3sheets_0;
+    procedure TestWriteRead_PageMargins_BIFF8_3sheets_1;
+    procedure TestWriteRead_PageMargins_BIFF8_3sheets_2;
+    procedure TestWriteRead_PageMargins_BIFF8_3sheets_3;
+
+    { OOXML page layout tests }
+    procedure TestWriteRead_PageMargins_OOXML_1sheet_0;
+    procedure TestWriteRead_PageMargins_OOXML_1sheet_1;
+    procedure TestWriteRead_PageMargins_OOXML_1sheet_2;
+    procedure TestWriteRead_PageMargins_OOXML_1sheet_3;
+    procedure TestWriteRead_PageMargins_OOXML_2sheets_0;
+    procedure TestWriteRead_PageMargins_OOXML_2sheets_1;
+    procedure TestWriteRead_PageMargins_OOXML_2sheets_2;
+    procedure TestWriteRead_PageMargins_OOXML_2sheets_3;
+    procedure TestWriteRead_PageMargins_OOXML_3sheets_0;
+    procedure TestWriteRead_PageMargins_OOXML_3sheets_1;
+    procedure TestWriteRead_PageMargins_OOXML_3sheets_2;
+    procedure TestWriteRead_PageMargins_OOXML_3sheets_3;
+
+    { OpenDocument page layout tests }
+    procedure TestWriteRead_PageMargins_ODS_1sheet_0;
+    procedure TestWriteRead_PageMargins_ODS_1sheet_1;
+    procedure TestWriteRead_PageMargins_ODS_1sheet_2;
+    procedure TestWriteRead_PageMargins_ODS_1sheet_3;
+    procedure TestWriteRead_PageMargins_ODS_2sheets_0;
+    procedure TestWriteRead_PageMargins_ODS_2sheets_1;
+    procedure TestWriteRead_PageMargins_ODS_2sheets_2;
+    procedure TestWriteRead_PageMargins_ODS_2sheets_3;
+    procedure TestWriteRead_PageMargins_ODS_3sheets_0;
+    procedure TestWriteRead_PageMargins_ODS_3sheets_1;
+    procedure TestWriteRead_PageMargins_ODS_3sheets_2;
+    procedure TestWriteRead_PageMargins_ODS_3sheets_3;
+
+  end;
+
+implementation
+
+uses
+  uriparser, lazfileutils, fpsutils;
+
+const
+  PageLayoutSheet = 'PageLayout';
+
+
+{ TSpreadWriteReadPageLayoutTests }
+
+procedure TSpreadWriteReadPageLayoutTests.SetUp;
+begin
+  inherited SetUp;
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TearDown;
+begin
+  inherited TearDown;
+end;
+
+{ AHeaderFooterMode = 0 ... no header, no footer
+                      1 ... header, no footer
+	              2 ... no header, footer
+	              3 ... header, footer }
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins(
+  AFormat: TsSpreadsheetFormat; ANumSheets, AHeaderFooterMode: Integer);
+var
+  MyWorksheet: TsWorksheet;
+  MyWorkbook: TsWorkbook;
+  row, col, p: Integer;
+  sollPageLayout, actualPageLayout: TsPageLayout;
+  expected, actual: String;
+  cell: PCell;
+  TempFile: string; //write xls/xml to this file and read back from it
+begin
+  TempFile := GetTempFileName;
+
+  InitPageLayout(sollPageLayout);
+  with SollPageLayout do
+  begin
+    TopMargin := 20;
+    BottomMargin := 30;
+    LeftMargin := 21;
+    RightMargin := 22;
+    HeaderMargin := 10;
+    FooterMargin := 11;
+    case AHeaderFooterMode of
+      0: ;  // header and footer already are empty strings
+      1: Headers[HEADER_FOOTER_INDEX_ALL] := 'Test header';
+      2: Footers[HEADER_FOOTER_INDEX_ALL] := 'Test footer';
+      3: begin 
+           Headers[HEADER_FOOTER_INDEX_ALL] := 'Test header';
+	       Footers[HEADER_FOOTER_INDEX_ALL] := 'Test footer';
+         end;
+    end;
+  end;
+  
+  MyWorkbook := TsWorkbook.Create;
+  try
+    col := 0;
+    for p := 1 to ANumSheets do
+    begin
+      MyWorkSheet:= MyWorkBook.AddWorksheet(PageLayoutSheet+IntToStr(p));
+      for row := 0 to 9 do
+        Myworksheet.WriteNumber(row, 0, row+col*100+p*10000 );      
+      MyWorksheet.PageLayout := SollPageLayout;
+    end;
+    MyWorkBook.WriteToFile(TempFile, AFormat, true);
+  finally
+    MyWorkbook.Free;
+  end;
+
+  // Open the spreadsheet
+  MyWorkbook := TsWorkbook.Create;
+  try
+    MyWorkbook.ReadFromFile(TempFile, AFormat);
+    for p := 0 to MyWorkbook.GetWorksheetCount-1 do
+    begin
+      MyWorksheet := MyWorkBook.GetWorksheetByIndex(p);
+      if MyWorksheet=nil then
+        fail('Error in test code. Failed to get worksheet by index');
+	
+      actualPageLayout := MyWorksheet.PageLayout;
+      CheckEquals(sollPageLayout.TopMargin, actualPageLayout.TopMargin, 'Top margin mismatch, sheet "'+MyWorksheet.Name+'"');
+      CheckEquals(sollPageLayout.BottomMargin, actualPageLayout.Bottommargin, 'Bottom margin mismatch, sheet "'+MyWorksheet.Name+'"');
+      CheckEquals(sollPageLayout.LeftMargin, actualPageLayout.LeftMargin, 'Left margin mismatch, sheet "'+MyWorksheet.Name+'"');
+      CheckEquals(sollPageLayout.RightMargin, actualPageLayout.RightMargin, 'Right margin mismatch, sheet "'+MyWorksheet.Name+'"');
+      if (AFormat <> sfExcel2) then  // No header/footer margin in BIFF2
+      begin
+        if AHeaderFooterMode in [1, 3] then
+          CheckEquals(sollPageLayout.HeaderMargin, actualPageLayout.HeaderMargin, 'Header margin mismatch, sheet "'+MyWorksheet.Name+'"');
+        if AHeaderFooterMode in [2, 3] then
+          CheckEquals(sollPageLayout.FooterMargin, actualPageLayout.FooterMargin, 'Footer margin mismatch, sheet "'+MyWorksheet.Name+'"');
+      end;
+    end;
+
+  finally
+    MyWorkbook.Free;
+    DeleteFile(TempFile);
+  end;
+end;
+
+
+{ Tests for BIFF8 file format }
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_1sheet_0;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 1, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_1sheet_1;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 1, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_1sheet_2;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 1, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_1sheet_3;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 1, 3);
+end;
+
+
+procedure TSpreadWriteReadPagelayoutTests.TestWriteRead_PageMargins_BIFF2_2sheets_0;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 2, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_2sheets_1;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 2, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_2sheets_2;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 2, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_2sheets_3;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 2, 3);
+end;
+
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_3sheets_0;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 3, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_3sheets_1;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 3, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_3sheets_2;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 3, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF2_3sheets_3;
+begin
+  TestWriteRead_PageMargins(sfExcel2, 3, 3);
+end;
+
+{ Tests for BIFF8 file format }
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_1sheet_0;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 1, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_1sheet_1;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 1, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_1sheet_2;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 1, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_1sheet_3;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 1, 3);
+end;
+
+
+procedure TSpreadWriteReadPagelayoutTests.TestWriteRead_PageMargins_BIFF5_2sheets_0;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 2, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_2sheets_1;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 2, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_2sheets_2;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 2, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_2sheets_3;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 2, 3);
+end;
+
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_3sheets_0;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 3, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_3sheets_1;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 3, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_3sheets_2;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 3, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF5_3sheets_3;
+begin
+  TestWriteRead_PageMargins(sfExcel5, 3, 3);
+end;
+
+
+{ Tests for BIFF8 file format }
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_1sheet_0;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 1, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_1sheet_1;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 1, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_1sheet_2;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 1, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_1sheet_3;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 1, 3);
+end;
+
+
+procedure TSpreadWriteReadPagelayoutTests.TestWriteRead_PageMargins_BIFF8_2sheets_0;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 2, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_2sheets_1;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 2, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_2sheets_2;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 2, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_2sheets_3;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 2, 3);
+end;
+
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_3sheets_0;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 3, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_3sheets_1;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 3, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_3sheets_2;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 3, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_BIFF8_3sheets_3;
+begin
+  TestWriteRead_PageMargins(sfExcel8, 3, 3);
+end;
+
+
+{ Tests for OOXML file format }
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_1sheet_0;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 1, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_1sheet_1;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 1, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_1sheet_2;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 1, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_1sheet_3;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 1, 3);
+end;
+
+
+procedure TSpreadWriteReadPagelayoutTests.TestWriteRead_PageMargins_OOXML_2sheets_0;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 2, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_2sheets_1;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 2, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_2sheets_2;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 2, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_2sheets_3;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 2, 3);
+end;
+
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_3sheets_0;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 3, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_3sheets_1;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 3, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_3sheets_2;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 3, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_OOXML_3sheets_3;
+begin
+  TestWriteRead_PageMargins(sfOOXML, 3, 3);
+end;
+
+
+{ Tests for Open Document file format }
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_1sheet_0;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 1, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_1sheet_1;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 1, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_1sheet_2;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 1, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_1sheet_3;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 1, 3);
+end;
+
+
+procedure TSpreadWriteReadPagelayoutTests.TestWriteRead_PageMargins_ODS_2sheets_0;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 2, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_2sheets_1;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 2, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_2sheets_2;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 2, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_2sheets_3;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 2, 3);
+end;
+
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_3sheets_0;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 3, 0);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_3sheets_1;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 3, 1);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_3sheets_2;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 3, 2);
+end;
+
+procedure TSpreadWriteReadPageLayoutTests.TestWriteRead_PageMargins_ODS_3sheets_3;
+begin
+  TestWriteRead_PageMargins(sfOpenDocument, 3, 3);
+end;
+
+
+initialization
+  RegisterTest(TSpreadWriteReadPageLayoutTests);
+
+end.
+
--- a/components/fpspreadsheet/tests/spreadtestgui.lpi
+++ b/components/fpspreadsheet/tests/spreadtestgui.lpi
@ -40,7 +40,7 @@
        <PackageName Value="FCL"/>
      </Item4>
    </RequiredPackages>
-    <Units Count="24">
+    <Units Count="25">
      <Unit0>
        <Filename Value="spreadtestgui.lpr"/>
        <IsPartOfProject Value="True"/>
@ -48,17 +48,14 @@
      <Unit1>
        <Filename Value="datetests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="datetests"/>
      </Unit1>
      <Unit2>
        <Filename Value="stringtests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="stringtests"/>
      </Unit2>
      <Unit3>
        <Filename Value="numberstests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="numberstests"/>
      </Unit3>
      <Unit4>
        <Filename Value="manualtests.pas"/>
@ -71,12 +68,10 @@
      <Unit6>
        <Filename Value="internaltests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="internaltests"/>
      </Unit6>
      <Unit7>
        <Filename Value="formattests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="formattests"/>
      </Unit7>
      <Unit8>
        <Filename Value="colortests.pas"/>
@ -85,7 +80,6 @@
      <Unit9>
        <Filename Value="fonttests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="fonttests"/>
      </Unit9>
      <Unit10>
        <Filename Value="optiontests.pas"/>
@ -94,7 +88,6 @@
      <Unit11>
        <Filename Value="numformatparsertests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="numformatparsertests"/>
      </Unit11>
      <Unit12>
        <Filename Value="rpnformulaunit.pas"/>
@ -104,7 +97,6 @@
      <Unit13>
        <Filename Value="formulatests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="formulatests"/>
      </Unit13>
      <Unit14>
        <Filename Value="emptycelltests.pas"/>
@ -121,7 +113,6 @@
      <Unit17>
        <Filename Value="insertdeletetests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="insertdeletetests"/>
      </Unit17>
      <Unit18>
        <Filename Value="celltypetests.pas"/>
@ -130,7 +121,6 @@
      <Unit19>
        <Filename Value="sortingtests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="sortingtests"/>
      </Unit19>
      <Unit20>
        <Filename Value="copytests.pas"/>
@ -139,18 +129,19 @@
      <Unit21>
        <Filename Value="commenttests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="commenttests"/>
      </Unit21>
      <Unit22>
        <Filename Value="enumeratortests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="enumeratortests"/>
      </Unit22>
      <Unit23>
        <Filename Value="hyperlinktests.pas"/>
        <IsPartOfProject Value="True"/>
-        <UnitName Value="hyperlinktests"/>
      </Unit23>
+      <Unit24>
+        <Filename Value="pagelayouttests.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit24>
    </Units>
  </ProjectOptions>
  <CompilerOptions>
--- a/components/fpspreadsheet/tests/spreadtestgui.lpr
+++ b/components/fpspreadsheet/tests/spreadtestgui.lpr
@ -13,7 +13,7 @@ uses
  optiontests, numformatparsertests, formulatests, rpnFormulaUnit,
  emptycelltests, errortests, virtualmodetests, insertdeletetests,
  celltypetests, sortingtests, copytests, enumeratortests, commenttests,
-  hyperlinktests;
+  hyperlinktests, pagelayouttests;

 begin
 {$IFDEF HEAPTRC}