You've already forked lazarus-ccr
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
This commit is contained in:
@ -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 := '';
|
||||
|
||||
|
534
components/fpspreadsheet/tests/pagelayouttests.pas
Normal file
534
components/fpspreadsheet/tests/pagelayouttests.pas
Normal file
@ -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.
|
||||
|
@ -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>
|
||||
|
@ -13,7 +13,7 @@ uses
|
||||
optiontests, numformatparsertests, formulatests, rpnFormulaUnit,
|
||||
emptycelltests, errortests, virtualmodetests, insertdeletetests,
|
||||
celltypetests, sortingtests, copytests, enumeratortests, commenttests,
|
||||
hyperlinktests;
|
||||
hyperlinktests, pagelayouttests;
|
||||
|
||||
begin
|
||||
{$IFDEF HEAPTRC}
|
||||
|
Reference in New Issue
Block a user