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

fpspreadsheet: Add format check to CF unit test.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7534 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-09 17:22:24 +00:00
parent 222e4fc640
commit 8db8946955
1 changed files with 339 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

469
components/fpspreadsheet/tests/conditionalformattests.pas
View File

@ -27,40 +27,42 @@ type
procedure TearDown; override; procedure TearDown; override;
// Test conditional cell format // Test conditional cell format
procedure TestWriteRead_CF_Number(AFormat: TsSpreadsheetFormat; procedure TestWriteRead_CF_CellFmt(AFileFormat: TsSpreadsheetFormat;
ACondition: TsCFCondition; AValue1, AValue2: Variant); ACondition: TsCFCondition; AValue1, AValue2: Variant; ACellFormat: TsCellFormat);
procedure TestWriteRead_CF_Number(AFormat: TsSpreadsheetFormat; procedure TestWriteRead_CF_CellFmt(AFileFormat: TsSpreadsheetFormat;
ACondition: TsCFCondition; AValue1: Variant); ACondition: TsCFCondition; AValue1: Variant; ACellFormat: TsCellFormat);
procedure TestWriteRead_CF_Number(AFormat: TsSpreadsheetFormat; procedure TestWriteRead_CF_CellFmt(AFileFormat: TsSpreadsheetFormat;
ACondition: TsCFCondition); ACondition: TsCFCondition; ACellFormat: TsCellFormat);
published published
procedure TestWriteRead_CF_Number_XLSX_Equal_Const; procedure TestWriteRead_CF_CellFmt_XLSX_Equal_Const;
procedure TestWriteRead_CF_Number_XLSX_NotEqual_Const; procedure TestWriteRead_CF_CellFmt_XLSX_NotEqual_Const;
procedure TestWriteRead_CF_Number_XLSX_GreaterThan_Const; procedure TestWriteRead_CF_CellFmt_XLSX_GreaterThan_Const;
procedure TestWriteRead_CF_Number_XLSX_LessThan_Const; procedure TestWriteRead_CF_CellFmt_XLSX_LessThan_Const;
procedure TestWriteRead_CF_Number_XLSX_GreaterEqual_Const; procedure TestWriteRead_CF_CellFmt_XLSX_GreaterEqual_Const;
procedure TestWriteRead_CF_Number_XLSX_LessEqual_Const; procedure TestWriteRead_CF_CellFmt_XLSX_LessEqual_Const;
procedure TestWriteRead_CF_Number_XLSX_Between_Const; procedure TestWriteRead_CF_CellFmt_XLSX_Between_Const;
procedure TestWriteRead_CF_Number_XLSX_NotBetween_Const; procedure TestWriteRead_CF_CellFmt_XLSX_NotBetween_Const;
procedure TestWriteRead_CF_Number_XLSX_AboveAverage; procedure TestWriteRead_CF_CellFmt_XLSX_AboveAverage;
procedure TestWriteRead_CF_Number_XLSX_BelowAverage; procedure TestWriteRead_CF_CellFmt_XLSX_BelowAverage;
procedure TestWriteRead_CF_Number_XLSX_AboveEqualAverage; procedure TestWriteRead_CF_CellFmt_XLSX_AboveEqualAverage;
procedure TestWriteRead_CF_Number_XLSX_BelowEqualAverage; procedure TestWriteRead_CF_CellFmt_XLSX_BelowEqualAverage;
procedure TestWriteRead_CF_Number_XLSX_AboveAverage_2StdDev; procedure TestWriteRead_CF_CellFmt_XLSX_AboveAverage_2StdDev;
procedure TestWriteRead_CF_Number_XLSX_BelowAverage_2StdDev; procedure TestWriteRead_CF_CellFmt_XLSX_BelowAverage_2StdDev;
procedure TestWriteRead_CF_NUMBER_XLSX_Top3; procedure TestWriteRead_CF_CellFmt_XLSX_Top3;
procedure TestWriteRead_CF_NUMBER_XLSX_Top10Percent; procedure TestWriteRead_CF_CellFmt_XLSX_Top10Percent;
procedure TestWriteRead_CF_NUMBER_XLSX_Bottom3; procedure TestWriteRead_CF_CellFmt_XLSX_Bottom3;
procedure TestWriteRead_CF_NUMBER_XLSX_Bottom10Percent; procedure TestWriteRead_CF_CellFmt_XLSX_Bottom10Percent;
procedure TestWriteRead_CF_NUMBER_XLSX_BeginsWith; procedure TestWriteRead_CF_CellFmt_XLSX_BeginsWith;
procedure TestWriteRead_CF_NUMBER_XLSX_EndsWith; procedure TestWriteRead_CF_CellFmt_XLSX_EndsWith;
procedure TestWriteRead_CF_NUMBER_XLSX_Contains; procedure TestWriteRead_CF_CellFmt_XLSX_Contains;
procedure TestWriteRead_CF_NUMBER_XLSX_NotContains; procedure TestWriteRead_CF_CellFmt_XLSX_NotContains;
procedure TestWriteRead_CF_NUMBER_XLSX_Unique; procedure TestWriteRead_CF_CellFmt_XLSX_Unique;
procedure TestWriteRead_CF_NUMBER_XLSX_Duplicate; procedure TestWriteRead_CF_CellFmt_XLSX_Duplicate;
procedure TestWriteRead_CF_Number_XLSX_ContainsErrors; procedure TestWriteRead_CF_CellFmt_XLSX_ContainsErrors;
procedure TestWriteRead_CF_Number_XLSX_NotContainsErrors; procedure TestWriteRead_CF_CellFmt_XLSX_NotContainsErrors;
procedure TestWriteRead_CF_CellFmt_XLSX_Background;
procedure TestWriteRead_CF_CellFmt_XLSX_Border;
end; end;
implementation implementation
@ -82,30 +84,30 @@ begin
end; end;
{ CFCellFormat tests. Detected cells get a red background. } { Conditional CellFormat tests. Detected cells get a red background. }
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number( procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt(
AFormat: TsSpreadsheetFormat; ACondition: TsCFCondition); AFileFormat: TsSpreadsheetFormat; ACondition: TsCFCondition; ACellFormat: TsCellFormat);
var var
dummy: variant; dummy: variant;
begin begin
VarClear(dummy); VarClear(dummy);
TestWriteRead_CF_NUMBER(AFormat, ACondition, dummy, dummy); TestWriteRead_CF_CellFmt(AFileFormat, ACondition, dummy, dummy, ACellFormat);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number( procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt(
AFormat: TsSpreadsheetFormat; ACondition: TsCFCondition; AFileFormat: TsSpreadsheetFormat; ACondition: TsCFCondition;
AValue1: Variant); AValue1: Variant; ACellFormat: TsCellFormat);
var var
dummy: Variant; dummy: Variant;
begin begin
VarClear(dummy); VarClear(dummy);
TestWriteRead_CF_NUMBER(AFormat, ACondition, AValue1, dummy); TestWriteRead_CF_CellFmt(AFileFormat, ACondition, AValue1, dummy, ACellFormat);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number( procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt(
AFormat: TsSpreadsheetFormat; ACondition: TsCFCondition; AFileFormat: TsSpreadsheetFormat; ACondition: TsCFCondition;
AValue1, AValue2: Variant); AValue1, AValue2: Variant; ACellFormat: TsCellFormat);
const const
SHEET_NAME = 'CF'; SHEET_NAME = 'CF';
TEXTS: array[0..6] of String = ('abc', 'def', 'ghi', 'abc', 'jkl', 'akl', 'ab'); TEXTS: array[0..6] of String = ('abc', 'def', 'ghi', 'abc', 'jkl', 'akl', 'ab');
@ -114,7 +116,6 @@ var
workbook: TsWorkbook; workbook: TsWorkbook;
row, col: Cardinal; row, col: Cardinal;
tempFile: string; tempFile: string;
sollFMT: TsCellFormat;
sollFmtIdx: Integer; sollFmtIdx: Integer;
sollRange: TsCellRange; sollRange: TsCellRange;
actFMT: TsCellFormat; actFMT: TsCellFormat;
@ -140,9 +141,7 @@ begin
worksheet.WriteFormula(row, col, '=1/0'); worksheet.WriteFormula(row, col, '=1/0');
// Write format used by the cells detected by conditional formatting // Write format used by the cells detected by conditional formatting
InitFormatRecord(sollFmt); sollFmtIdx := workbook.AddCellFormat(ACellFormat);
sollFmt.SetBackgroundColor(scRed);
sollFmtIdx := workbook.AddCellFormat(sollFmt);
// Write instruction for conditional formatting // Write instruction for conditional formatting
sollRange := Range(0, 0, 1, 10); sollRange := Range(0, 0, 1, 10);
@ -156,7 +155,7 @@ begin
// Save to file // Save to file
tempFile := NewTempFile; tempFile := NewTempFile;
workBook.WriteToFile(tempFile, AFormat, true); workBook.WriteToFile(tempFile, AFileFormat, true);
finally finally
workbook.Free; workbook.Free;
end; end;
@ -164,7 +163,7 @@ begin
// Open the spreadsheet // Open the spreadsheet
workbook := TsWorkbook.Create; workbook := TsWorkbook.Create;
try try
workbook.ReadFromFile(TempFile, AFormat); workbook.ReadFromFile(TempFile, AFileFormat);
worksheet := GetWorksheetByName(workBook, SHEET_NAME); worksheet := GetWorksheetByName(workBook, SHEET_NAME);
if worksheet=nil then if worksheet=nil then
@ -189,37 +188,125 @@ begin
// Check rules class // Check rules class
CheckEquals(TsCFCellRule, cf.Rules[0].ClassType, 'Conditional format rule class mismatch'); CheckEquals(TsCFCellRule, cf.Rules[0].ClassType, 'Conditional format rule class mismatch');
// Check condition if cf.Rules[0] is TsCFCellRule then
actCondition := TsCFCellRule(cf.Rules[0]).Condition;
CheckEquals(
GetEnumName(TypeInfo(TsCFCondition), integer(ACondition)),
GetEnumName(typeInfo(TsCFCondition), integer(actCondition)),
'Conditional format condition mismatch.'
);
// Check 1st parameter
actValue1 := TsCFCellRule(cf.Rules[0]).Operand1;
if not VarIsEmpty(AValue1) then
begin begin
if VarIsStr(AValue1) then // Check condition
CheckEquals(VarToStr(AValue1), VarToStr(actValue1), 'Conditional format parameter 1 mismatch') actCondition := TsCFCellRule(cf.Rules[0]).Condition;
else if VarIsNumeric(AValue1) then CheckEquals(
CheckEquals(Double(AValue1), Double(actValue1), 'Conditional format parameter 1 mismatch') GetEnumName(TypeInfo(TsCFCondition), integer(ACondition)),
else GetEnumName(typeInfo(TsCFCondition), integer(actCondition)),
raise Exception.Create('Unknown data type in variant'); 'Conditional format condition mismatch.'
end else );
CheckEquals(true, VarIsEmpty(actValue1), 'Omitted parameter 1 detected.');
// Check 2nd parameter // Check 1st parameter
actValue2 := TsCFCellRule(cf.Rules[0]).Operand2; actValue1 := TsCFCellRule(cf.Rules[0]).Operand1;
if not (VarIsEmpty(AValue2) or VarIsNull(AValue2)) then if not VarIsEmpty(AValue1) then
begin begin
if VarIsStr(AValue2) then if VarIsStr(AValue1) then
CheckEquals(VarToStr(AValue2), VarToStr(actValue2), 'Conditional format parameter 2 mismatch') CheckEquals(VarToStr(AValue1), VarToStr(actValue1), 'Conditional format parameter 1 mismatch')
else else if VarIsNumeric(AValue1) then
CheckEquals(Double(AValue2), Double(actValue2), 'Conditional format parameter 2 mismatch'); CheckEquals(Double(AValue1), Double(actValue1), 'Conditional format parameter 1 mismatch')
end else else
CheckEquals(true, VarIsEmpty(actValue2), 'Omitted parameter 2 detected.'); raise Exception.Create('Unknown data type in variant');
end else
CheckEquals(true, VarIsEmpty(actValue1), 'Omitted parameter 1 detected.');
// Check 2nd parameter
actValue2 := TsCFCellRule(cf.Rules[0]).Operand2;
if not (VarIsEmpty(AValue2) or VarIsNull(AValue2)) then
begin
if VarIsStr(AValue2) then
CheckEquals(VarToStr(AValue2), VarToStr(actValue2), 'Conditional format parameter 2 mismatch')
else
CheckEquals(Double(AValue2), Double(actValue2), 'Conditional format parameter 2 mismatch');
end else
CheckEquals(true, VarIsEmpty(actValue2), 'Omitted parameter 2 detected.');
// Check format
// - Index
actFmtIdx := TsCFCellRule(cf.Rules[0]).FormatIndex;
CheckEquals(sollFmtIdx, actFmtIdx, 'Conditional format index mismatch');
actFmt := workbook.GetCellFormat(actFmtIdx);
// - formatting fields
CheckEquals(integer(ACellFormat.UsedFormattingFields), integer(actFmt.UsedFormattingFields), 'Conditional formatting fields mismatch');
// - background
if (uffBackground in ACellFormat.UsedFormattingFields) then
begin
CheckEquals(ACellFormat.Background.BgColor, actFmt.Background.BgColor, 'Conditional format background color mismatch');
CheckEquals(ACellFormat.Background.FgColor, actFmt.Background.FgColor, 'Conditional format foreground color mismatch');
CheckEquals(
GetEnumName(TypeInfo(TsFillStyle), integer(ACellFormat.Background.Style)),
GetEnumName(TypeInfo(TsFillStyle), integer(actFmt.Background.Style)),
'Conditional format style mismatch'
);
end;
// - borders
if (uffBorder in ACellFormat.UsedFormattingFields) then
begin
CheckEquals(integer(ACellFormat.Border), integer(actFmt.Border), 'Conditional format border elements mismatch.');
CheckEquals(
GetEnumName(TypeInfo(TsLineStyle), integer(ACellFormat.BorderStyles[cbNorth].LineStyle)),
GetEnumName(TypeInfo(TsLineStyle), integer(actFmt.BorderStyles[cbNorth].LineStyle)),
'Conditional format northern border line style mismatch.'
);
CheckEquals(
GetEnumName(TypeInfo(TsLineStyle), integer(ACellFormat.BorderStyles[cbEast].LineStyle)),
GetEnumName(TypeInfo(TsLineStyle), integer(actFmt.BorderStyles[cbEast].LineStyle)),
'Conditional format eastern border line style mismatch.'
);
CheckEquals(
GetEnumName(TypeInfo(TsLineStyle), integer(ACellFormat.BorderStyles[cbSouth].LineStyle)),
GetEnumName(TypeInfo(TsLineStyle), integer(actFmt.BorderStyles[cbSouth].LineStyle)),
'Conditional format southern border line style mismatch.'
);
CheckEquals(
GetEnumName(TypeInfo(TsLineStyle), integer(ACellFormat.BorderStyles[cbWest].LineStyle)),
GetEnumName(TypeInfo(TsLineStyle), integer(actFmt.BorderStyles[cbWest].LineStyle)),
'Conditional format western border line style mismatch.'
);
CheckEquals(
integer(ACellFormat.BorderStyles[cbNorth].Color),
integer(actFmt.BorderStyles[cbNorth].Color),
'Conditional format northern border color mismatch.'
);
CheckEquals(
integer(ACellFormat.BorderStyles[cbEast].Color),
integer(actFmt.BorderStyles[cbEast].Color),
'Conditional format eastern border color mismatch.'
);
CheckEquals(
integer(ACellFormat.BorderStyles[cbSouth].Color),
integer(actFmt.BorderStyles[cbSouth].Color),
'Conditional format southern border color mismatch.'
);
CheckEquals(
integer(ACellFormat.BorderStyles[cbWest].Color),
integer(actFmt.BorderStyles[cbWest].Color),
'Conditional format western border color mismatch.'
);
end;
// - fonts // not working for xlsx
if (uffFont in ACellFormat.UsedFormattingFields) then
begin
if AFileFormat <> sfOOXML then
begin
end;
end;
// - Number format // not yet implemented for xlsx
if (uffNumberFormat in ACEllFormat.UsedFormattingFields) then
begin
if AFileFormat <> sfOOXML then
begin
end;
end;
end;
finally finally
workbook.Free; workbook.Free;
@ -227,134 +314,256 @@ begin
end; end;
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_Equal_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Equal_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcEqual, 5); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcEqual, 5, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_NotEqual_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_NotEqual_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcNotEqual, 5); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcNotEqual, 5, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_GreaterThan_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_GreaterThan_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcGreaterThan, 5); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcGreaterThan, 5, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_LessThan_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_LessThan_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcLessThan, 5); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcLessThan, 5, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_GreaterEqual_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_GreaterEqual_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcGreaterEqual, 5); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcGreaterEqual, 5, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_LessEqual_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_LessEqual_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcLessEqual, 5); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcLessEqual, 5, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_Between_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Between_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBetween, 3, 7); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBetween, 3, 7, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_NotBetween_Const; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_NotBetween_Const;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcNotBetween, 3, 7); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcNotBetween, 3, 7, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_AboveAverage; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_AboveAverage;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcAboveAverage); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcAboveAverage, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_BelowAverage; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_BelowAverage;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBelowAverage); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBelowAverage, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_AboveEqualAverage; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_AboveEqualAverage;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcAboveEqualAverage); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcAboveEqualAverage, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_BelowEqualAverage; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_BelowEqualAverage;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBelowEqualAverage); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBelowEqualAverage, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_AboveAverage_2StdDev; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_AboveAverage_2StdDev;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcAboveAverage, 2.0); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcAboveAverage, 2.0, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_BelowAverage_2StdDev; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_BelowAverage_2StdDev;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBelowAverage, 2.0); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBelowAverage, 2.0, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Top3; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Top3;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcTop, 3); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcTop, 3, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Top10Percent; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Top10Percent;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcTopPercent, 10); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcTopPercent, 10, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Bottom3; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Bottom3;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBottom, 3); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBottom, 3, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Bottom10Percent; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Bottom10Percent;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBottomPercent, 10); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBottomPercent, 10, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_BeginsWith; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_BeginsWith;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcBeginsWith, 'ab'); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcBeginsWith, 'ab', fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_EndsWith; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_EndsWith;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcEndsWith, 'kl'); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcEndsWith, 'kl', fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Contains; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Contains;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcEndsWith, 'b'); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcEndsWith, 'b', fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_NotContains; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_NotContains;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcEndsWith, 'b'); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcEndsWith, 'b', fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Unique; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Unique;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcUnique); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcUnique, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_NUMBER_XLSX_Duplicate; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Duplicate;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcDuplicate); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcDuplicate, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_ContainsErrors; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_ContainsErrors;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcContainsErrors); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcContainsErrors, fmt);
end; end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_Number_XLSX_NotContainsErrors; procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_NotContainsErrors;
var
fmt: TsCellFormat;
begin begin
TestWriteRead_CF_Number(sfOOXML, cfcNotContainsErrors); InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcNotContainsErrors, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Background;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackground(fsHatchDiag, scYellow, scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcEqual, 5, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Border;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBorders([cbNorth, cbEast, cbSouth, cbWest], scBlue, lsDotted);
TestWriteRead_CF_CellFmt(sfOOXML, cfcEqual, 5, fmt);
end; end;
initialization initialization