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

fpspreadsheet: some cosmetics to better show the file format tested in a test case

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-06-06 12:17:45 +00:00
parent 0e675ba97d
commit 20567b639c
4 changed files with 114 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
components/fpspreadsheet/tests/colortests.pas
View File

@ -29,38 +29,38 @@ type
// Writes out colors & reads back.
{ BIFF2 file format tests }
procedure TestWriteReadBIFF2_Font_InternalPal; // internal palette for BIFF2 file format
procedure TestWriteRead_BIFF2_Font_InternalPal; // internal palette for BIFF2 file format
{ BIFF5 file format tests }
// Background colors...
procedure TestWriteReadBIFF5_Background_InternalPal; // internal palette
procedure TestWriteReadBIFF5_Background_Biff5Pal; // official biff5 palette
procedure TestWriteReadBIFF5_Background_Biff8Pal; // official biff8 palette
procedure TestWriteReadBIFF5_Background_RandomPal; // palette 64, top 56 entries random
procedure TestWriteRead_BIFF5_Background_InternalPal; // internal palette
procedure TestWriteRead_BIFF5_Background_Biff5Pal; // official biff5 palette
procedure TestWriteRead_BIFF5_Background_Biff8Pal; // official biff8 palette
procedure TestWriteRead_BIFF5_Background_RandomPal; // palette 64, top 56 entries random
// Font colors...
procedure TestWriteReadBIFF5_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteReadBIFF5_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
procedure TestWriteReadBIFF5_Font_Biff8Pal; // official biff8 palette in BIFF8 file format
procedure TestWriteReadBIFF5_Font_RandomPal; // palette 64, top 56 entries random
procedure TestWriteRead_BIFF5_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteRead_BIFF5_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
procedure TestWriteRead_BIFF5_Font_Biff8Pal; // official biff8 palette in BIFF8 file format
procedure TestWriteRead_BIFF5_Font_RandomPal; // palette 64, top 56 entries random
{ BIFF8 file format tests }
// Background colors...
procedure TestWriteReadBIFF8_Background_InternalPal; // internal palette
procedure TestWriteReadBIFF8_Background_Biff5Pal; // official biff5 palette
procedure TestWriteReadBIFF8_Background_Biff8Pal; // official biff8 palette
procedure TestWriteReadBIFF8_Background_RandomPal; // palette 64, top 56 entries random
procedure TestWriteRead_BIFF8_Background_InternalPal; // internal palette
procedure TestWriteRead_BIFF8_Background_Biff5Pal; // official biff5 palette
procedure TestWriteRead_BIFF8_Background_Biff8Pal; // official biff8 palette
procedure TestWriteRead_BIFF8_Background_RandomPal; // palette 64, top 56 entries random
// Font colors...
procedure TestWriteReadBIFF8_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteReadBIFF8_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
procedure TestWriteReadBIFF8_Font_Biff8Pal; // official biff8 palette in BIFF8 file format
procedure TestWriteReadBIFF8_Font_RandomPal; // palette 64, top 56 entries random
procedure TestWriteRead_BIFF8_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteRead_BIFF8_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
procedure TestWriteRead_BIFF8_Font_Biff8Pal; // official biff8 palette in BIFF8 file format
procedure TestWriteRead_BIFF8_Font_RandomPal; // palette 64, top 56 entries random
{ OpenDocument file format tests }
// Background colors...
procedure TestWriteReadODS_Background_InternalPal; // internal palette
procedure TestWriteReadODS_Background_Biff5Pal; // official biff5 palette
procedure TestWriteReadODS_Background_Biff8Pal; // official biff8 palette
procedure TestWriteReadODS_Background_RandomPal; // palette 64, top 56 entries random
procedure TestWriteRead_ODS_Background_InternalPal; // internal palette
procedure TestWriteRead_ODS_Background_Biff5Pal; // official biff5 palette
procedure TestWriteRead_ODS_Background_Biff8Pal; // official biff8 palette
procedure TestWriteRead_ODS_Background_RandomPal; // palette 64, top 56 entries random
// Font colors...
procedure TestWriteRead_ODS_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteRead_ODS_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
@ -107,10 +107,7 @@ var
i: Integer;
begin
TempFile:=GetTempFileName;
{// Not needed: use workbook.writetofile with overwrite=true
if fileexists(TempFile) then
DeleteFile(TempFile);
}
MyWorkbook := TsWorkbook.Create;
MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet);
@ -194,10 +191,7 @@ var
i: Integer;
begin
TempFile:=GetTempFileName;
{// Not needed: use workbook.writetofile with overwrite=true
if fileexists(TempFile) then
DeleteFile(TempFile);
}
MyWorkbook := TsWorkbook.Create;
MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet);
@ -266,110 +260,110 @@ end;
{ Tests for BIFF2 file format }
{ BIFF2 supports only a fixed palette, and no background color --> test only
internal palette for font color }
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF2_Font_InternalPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF2_Font_InternalPal;
begin
TestWriteReadFontColors(sfExcel2, 0);
end;
{ Tests for BIFF5 file format }
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_InternalPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_InternalPal;
begin
TestWriteReadBackgroundColors(sfExcel5, 0);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_Biff5Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_Biff5Pal;
begin
TestWriteReadBackgroundColors(sfExcel5, 5);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_Biff8Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_Biff8Pal;
begin
TestWriteReadBackgroundColors(sfExcel5, 8);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_RandomPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_RandomPal;
begin
TestWriteReadBackgroundColors(sfExcel5, 999);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_InternalPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_InternalPal;
begin
TestWriteReadFontColors(sfExcel5, 0);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_Biff5Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_Biff5Pal;
begin
TestWriteReadFontColors(sfExcel5, 5);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_Biff8Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_Biff8Pal;
begin
TestWriteReadFontColors(sfExcel5, 8);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_RandomPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_RandomPal;
begin
TestWriteReadFontColors(sfExcel5, 999);
end;
{ Tests for BIFF8 file format }
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_InternalPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_InternalPal;
begin
TestWriteReadBackgroundColors(sfExcel8, 0);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_Biff5Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_Biff5Pal;
begin
TestWriteReadBackgroundColors(sfExcel8, 5);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_Biff8Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_Biff8Pal;
begin
TestWriteReadBackgroundColors(sfExcel8, 8);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_RandomPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_RandomPal;
begin
TestWriteReadBackgroundColors(sfExcel8, 999);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_InternalPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_InternalPal;
begin
TestWriteReadFontColors(sfExcel8, 0);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_Biff5Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_Biff5Pal;
begin
TestWriteReadFontColors(sfExcel8, 5);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_Biff8Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_Biff8Pal;
begin
TestWriteReadFontColors(sfExcel8, 8);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_RandomPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_RandomPal;
begin
TestWriteReadFontColors(sfExcel8, 999);
end;
{ Tests for Open Document file format }
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_InternalPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_InternalPal;
begin
TestWriteReadBackgroundColors(sfOpenDocument, 0);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_Biff5Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_Biff5Pal;
begin
TestWriteReadBackgroundColors(sfOpenDocument, 5);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_Biff8Pal;
procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_Biff8Pal;
begin
TestWriteReadBackgroundColors(sfOpenDocument, 8);
end;
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_RandomPal;
procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_RandomPal;
begin
TestWriteReadBackgroundColors(sfOpenDocument, 999);
end;

48
components/fpspreadsheet/tests/fonttests.pas
View File

@ -38,22 +38,22 @@ type
published
// BIFF2 test cases
procedure TestWriteReadBoldBIFF2;
procedure TestWriteReadFontBIFF2_Arial;
procedure TestWriteReadFontBIFF2_TimesNewRoman;
procedure TestWriteReadFontBIFF2_CourierNew;
procedure TestWriteReadBold_BIFF2;
procedure TestWriteReadFont_BIFF2_Arial;
procedure TestWriteReadFont_BIFF2_TimesNewRoman;
procedure TestWriteReadFont_BIFF2_CourierNew;
// BIFF5 test cases
procedure TestWriteReadBoldBIFF5;
procedure TestWriteReadFontBIFF5_Arial;
procedure TestWriteReadFontBIFF5_TimesNewRoman;
procedure TestWriteReadFontBIFF5_CourierNew;
procedure TestWriteReadBold_BIFF5;
procedure TestWriteReadFont_BIFF5_Arial;
procedure TestWriteReadFont_BIFF5_TimesNewRoman;
procedure TestWriteReadFont_BIFF5_CourierNew;
// BIFF8 test cases
procedure TestWriteReadBoldBIFF8;
procedure TestWriteReadFontBIFF8_Arial;
procedure TestWriteReadFontBIFF8_TimesNewRoman;
procedure TestWriteReadFontBIFF8_CourierNew;
procedure TestWriteReadBold_BIFF8;
procedure TestWriteReadFont_BIFF8_Arial;
procedure TestWriteReadFont_BIFF8_TimesNewRoman;
procedure TestWriteReadFont_BIFF8_CourierNew;
end;
implementation
@ -190,17 +190,17 @@ begin
DeleteFile(TempFile);
end;
procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF2;
procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF2;
begin
TestWriteReadBold(sfExcel2);
end;
procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF5;
procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF5;
begin
TestWriteReadBold(sfExcel5);
end;
procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF8;
procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF8;
begin
TestWriteReadBold(sfExcel8);
end;
@ -282,49 +282,49 @@ begin
end;
{ BIFF2 }
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_Arial;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_Arial;
begin
TestWriteReadFont(sfExcel2, 'Arial');
end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_TimesNewRoman;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_TimesNewRoman;
begin
TestWriteReadFont(sfExcel2, 'TimesNewRoman');
end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_CourierNew;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_CourierNew;
begin
TestWriteReadFont(sfExcel2, 'CourierNew');
end;
{ BIFF5 }
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_Arial;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_Arial;
begin
TestWriteReadFont(sfExcel5, 'Arial');
end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_TimesNewRoman;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_TimesNewRoman;
begin
TestWriteReadFont(sfExcel5, 'TimesNewRoman');
end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_CourierNew;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_CourierNew;
begin
TestWriteReadFont(sfExcel5, 'CourierNew');
end;
{ BIFF8 }
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_Arial;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_Arial;
begin
TestWriteReadFont(sfExcel8, 'Arial');
end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_TimesNewRoman;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_TimesNewRoman;
begin
TestWriteReadFont(sfExcel8, 'TimesNewRoman');
end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_CourierNew;
procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_CourierNew;
begin
TestWriteReadFont(sfExcel8, 'CourierNew');
end;

12
components/fpspreadsheet/tests/formulatests.pas
View File

@ -27,11 +27,11 @@ type
// Writes out numbers & reads back.
// If previous read tests are ok, this effectively tests writing.
{ BIFF2 Tests }
procedure TestWriteReadBIFF2_FormulaStrings;
procedure TestWriteRead_BIFF2_FormulaStrings;
{ BIFF5 Tests }
procedure TestWriteReadBIFF5_FormulaStrings;
procedure TestWriteRead_BIFF5_FormulaStrings;
{ BIFF8 Tests }
procedure TestWriteReadBIFF8_FormulaStrings;
procedure TestWriteRead_BIFF8_FormulaStrings;
end;
implementation
@ -104,17 +104,17 @@ begin
DeleteFile(TempFile);
end;
procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF2_FormulaStrings;
procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF2_FormulaStrings;
begin
TestWriteReadFormulaStrings(sfExcel2);
end;
procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF5_FormulaStrings;
procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF5_FormulaStrings;
begin
TestWriteReadFormulaStrings(sfExcel5);
end;
procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF8_FormulaStrings;
procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF8_FormulaStrings;
begin
TestWriteReadFormulaStrings(sfExcel8);
end;

80
components/fpspreadsheet/tests/optiontests.pas
View File

@ -32,32 +32,32 @@ type
// Writes out sheet options & reads back.
{ BIFF2 tests }
procedure TestWriteReadBIFF2_ShowGridLines_ShowHeaders;
procedure TestWriteReadBIFF2_ShowGridLines_HideHeaders;
procedure TestWriteReadBIFF2_HideGridLines_ShowHeaders;
procedure TestWriteReadBIFF2_HideGridLines_HideHeaders;
procedure TestWriteRead_BIFF2_ShowGridLines_ShowHeaders;
procedure TestWriteRead_BIFF2_ShowGridLines_HideHeaders;
procedure TestWriteRead_BIFF2_HideGridLines_ShowHeaders;
procedure TestWriteRead_BIFF2_HideGridLines_HideHeaders;
{ BIFF5 tests }
procedure TestWriteReadBIFF5_ShowGridLines_ShowHeaders;
procedure TestWriteReadBIFF5_ShowGridLines_HideHeaders;
procedure TestWriteReadBIFF5_HideGridLines_ShowHeaders;
procedure TestWriteReadBIFF5_HideGridLines_HideHeaders;
procedure TestWriteRead_BIFF5_ShowGridLines_ShowHeaders;
procedure TestWriteRead_BIFF5_ShowGridLines_HideHeaders;
procedure TestWriteRead_BIFF5_HideGridLines_ShowHeaders;
procedure TestWriteRead_BIFF5_HideGridLines_HideHeaders;
procedure TestWriteReadBIFF5_Panes_HorVert;
procedure TestWriteReadBIFF5_Panes_Hor;
procedure TestWriteReadBIFF5_Panes_Vert;
procedure TestWriteReadBIFF5_Panes_None;
procedure TestWriteRead_BIFF5_Panes_HorVert;
procedure TestWriteRead_BIFF5_Panes_Hor;
procedure TestWriteRead_BIFF5_Panes_Vert;
procedure TestWriteRead_BIFF5_Panes_None;
{ BIFF8 tests }
procedure TestWriteReadBIFF8_ShowGridLines_ShowHeaders;
procedure TestWriteReadBIFF8_ShowGridLines_HideHeaders;
procedure TestWriteReadBIFF8_HideGridLines_ShowHeaders;
procedure TestWriteReadBIFF8_HideGridLines_HideHeaders;
procedure TestWriteRead_BIFF8_ShowGridLines_ShowHeaders;
procedure TestWriteRead_BIFF8_ShowGridLines_HideHeaders;
procedure TestWriteRead_BIFF8_HideGridLines_ShowHeaders;
procedure TestWriteRead_BIFF8_HideGridLines_HideHeaders;
procedure TestWriteReadBIFF8_Panes_HorVert;
procedure TestWriteReadBIFF8_Panes_Hor;
procedure TestWriteReadBIFF8_Panes_Vert;
procedure TestWriteReadBIFF8_Panes_None;
procedure TestWriteRead_BIFF8_Panes_HorVert;
procedure TestWriteRead_BIFF8_Panes_Hor;
procedure TestWriteRead_BIFF8_Panes_Vert;
procedure TestWriteRead_BIFF8_Panes_None;
end;
implementation
@ -126,64 +126,64 @@ begin
end;
{ Tests for BIFF2 grid lines and/or headers }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_ShowGridLines_ShowHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_ShowGridLines_ShowHeaders;
begin
TestWriteReadGridHeaders(sfExcel2, true, true);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_ShowGridLines_HideHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_ShowGridLines_HideHeaders;
begin
TestWriteReadGridHeaders(sfExcel2, true, false);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_HideGridLines_ShowHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_HideGridLines_ShowHeaders;
begin
TestWriteReadGridHeaders(sfExcel2, false, true);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_HideGridLines_HideHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_HideGridLines_HideHeaders;
begin
TestWriteReadGridHeaders(sfExcel2, false, false);
end;
{ Tests for BIFF5 grid lines and/or headers }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_ShowGridLines_ShowHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_ShowGridLines_ShowHeaders;
begin
TestWriteReadGridHeaders(sfExcel5, true, true);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_ShowGridLines_HideHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_ShowGridLines_HideHeaders;
begin
TestWriteReadGridHeaders(sfExcel5, true, false);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_HideGridLines_ShowHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_HideGridLines_ShowHeaders;
begin
TestWriteReadGridHeaders(sfExcel5, false, true);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_HideGridLines_HideHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_HideGridLines_HideHeaders;
begin
TestWriteReadGridHeaders(sfExcel5, false, false);
end;
{ Tests for BIFF8 grid lines and/or headers }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_ShowGridLines_ShowHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_ShowGridLines_ShowHeaders;
begin
TestWriteReadGridHeaders(sfExcel8, true, true);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_ShowGridLines_HideHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_ShowGridLines_HideHeaders;
begin
TestWriteReadGridHeaders(sfExcel8, true, false);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_HideGridLines_ShowHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_HideGridLines_ShowHeaders;
begin
TestWriteReadGridHeaders(sfExcel8, false, true);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_HideGridLines_HideHeaders;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_HideGridLines_HideHeaders;
begin
TestWriteReadGridHeaders(sfExcel8, false, false);
end;
@ -233,43 +233,43 @@ begin
end;
{ Tests for BIFF5 frozen panes }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_HorVert;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_HorVert;
begin
TestWriteReadPanes(sfExcel5, 1, 2);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_Hor;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_Hor;
begin
TestWriteReadPanes(sfExcel5, 1, 0);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_Vert;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_Vert;
begin
TestWriteReadPanes(sfExcel5, 0, 2);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_None;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_None;
begin
TestWriteReadPanes(sfExcel5, 0, 0);
end;
{ Tests for BIFF8 frozen panes }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_HorVert;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_HorVert;
begin
TestWriteReadPanes(sfExcel8, 1, 2);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_Hor;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_Hor;
begin
TestWriteReadPanes(sfExcel8, 1, 0);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_Vert;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_Vert;
begin
TestWriteReadPanes(sfExcel8, 0, 2);
end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_None;
procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_None;
begin
TestWriteReadPanes(sfExcel8, 0, 0);
end;