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

fpsprreadsheet: Add conditional date formats, read/write support for XLSX, ODS, ExcelXML. Add unit tests.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7587 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-29 16:55:45 +00:00
parent e0503c6d48
commit aebb067738
8 changed files with 529 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/examples/other/conditional_formatting/demo_conditional_formatting.lpi
View File

@ -47,6 +47,11 @@
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="5">

68
components/fpspreadsheet/examples/other/conditional_formatting/demo_conditional_formatting.pas
View File

@ -46,8 +46,19 @@ begin
sh.WriteText(i, 16, 'defg');
sh.WriteFormula(i, 17, '=1.0/0.0');
sh.WriteFormula(i, 18, '=1.0/1.0');
sh.WriteDateTime(i, 19, Now()- 30);
sh.WriteDateTime(i, 20, Now() - 7);
sh.WritedateTime(i, 21, Now() - 1);
sh.WriteDatetime(i, 22, Now());
sh.WriteDateTime(i, 23, Now() + 1);
sh.WriteDateTime(i, 24, Now() + 7);
sh.WriteDateTime(i, 25, Now() + 30);
end;
lastCol := 18;
lastCol := 25;
for i := 19 to 25 do
sh.WriteColWidth(i, 30, suMillimeters);
// conditional format #1: equal to number constant
sh.WriteText(row, 0, 'equal to constant 5');
@ -267,6 +278,61 @@ begin
fmtIdx := wb.AddCellFormat(fmt);
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNotContainsErrors, fmtIdx);
// conditional date formats
inc(row);
sh.WriteText(row, 0, 'yesterday');
sh.WriteText(row, 1, 'background yellow');
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scYellow);
fmt.SetNumberFormat(wb.AddNumberFormat('yyyy\-mm\-dd'));
fmtIdx := wb.AddCellFormat(fmt);
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcYesterday, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'today');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcToday, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'tomorrow');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcTomorrow, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'last 7 days');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcLast7Days, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'last week');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcLastWeek, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'this week');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcThisWeek, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'next week');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNextWeek, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'last month');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcLastMonth, fmtIdx);
(*
inc(row);
sh.WriteText(row, 0, 'tomorrow');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcThisMonth, fmtIdx);
inc(row);
sh.WriteText(row, 0, 'tomorrow');
sh.WriteText(row, 1, 'background yellow');
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNextMonth, fmtIdx);
*)
// conditional format: expression
inc(row);
sh.WriteText(row, 0, 'expression: ISNUMBER($E$5)');

3
components/fpspreadsheet/source/common/fpsconditionalformat.pas
View File

@ -24,6 +24,9 @@ type
cfcBeginsWith, cfcEndsWith,
cfcContainsText, cfcNotContainsText,
cfcContainsErrors, cfcNotContainsErrors,
cfcYesterday, cfcToday, cfcTomorrow, cfcLast7Days,
cfcLastWeek, cfcThisWeek, cfcNextWeek,
cfcLastMonth, cfcThisMonth, cfcNextMonth,
cfcExpression
);

73
components/fpspreadsheet/source/common/fpsopendocument.pas
View File

@ -118,6 +118,7 @@ type
procedure ReadCFCellFormat(ANode: TDOMNode; ASheet: TsBasicWorksheet; ARange: TsCellRange);
procedure ReadCFColorScale(ANode: TDOMNode; ASheet: TsBasicWorksheet; ARange: TsCellRange);
procedure ReadCFDataBars(ANode: TDOMNode; ASheet: TsBasicWorksheet; ARange: TsCellRange);
procedure ReadCFDateFormat(ANode: TDOMNode; ASheet: TsBasicWorksheet; ARange: TsCellRange);
procedure ReadCFIconSet(ANode: TDOMNode; ASheet: TsBasicWorksheet; ARange: TsCellRange);
procedure ReadColumns(ATableNode: TDOMNode);
procedure ReadColumnStyle(AStyleNode: TDOMNode);
@ -405,6 +406,9 @@ const
'', '', // cfcDuplicate, cfcUnique,
'', '', '', '', // cfcBeginsWith, cfcEndsWith, cfcContainsText, cfcNotContainsText,
'', '', // cfcContainsErrors, cfcNotContainsErrors
'', '', '', '', // cfcYesterday .. cfcLast7Days
'', '', '', // cfcLastWeek .. cfcNextWeek
'', '', '', // cfcLastMonth .. cfcNextMonth
'is-true-formula(%s)' // cfcExpression
);
@ -421,8 +425,11 @@ const
'begins-with(%s)', 'ends-with(%s)', // cfcBeginsWith, cfcEndsWith,
'contains-text(%s)', 'not-contains-text(%s)', // cfcContainsText, cfcNotContainsText,
'is-error', 'is-no-error', // cfcContainsErrors, cfcNotContainsErrors
'yesterday', 'today', 'tomorrow', 'last-7-days', // cfcYesterday .. cfcLast7Days
'last-week', 'this-week', 'next-week', // cfcLastWeek .. cfcNextWeek
'last-month', 'this-month', 'next-month', // cfcLastMonth .. cfcNextMonth
'formula-is(%s)' // cfcExprssion
);
); // ???????????????????
CF_VALUE_KIND: array[TsCFValueKind] of string = (
'', // vkNone
@ -2265,6 +2272,7 @@ begin
nodeName := childNode.NodeName;
case nodeName of
'calcext:condition': ReadCFCellFormat(childNode, AWorksheet, range);
'calcext:date-is': ReadCFDateFormat(childNode, AWorksheet, range);
'calcext:color-scale': ReadCFColorScale(childNode, AWorksheet, range);
'calcext:data-bar': ReadCFDataBars(childNode, AWorksheet, range);
'calcext:icon-set': ReadCFIconSet(childNode, AWorksheet, range);
@ -4147,6 +4155,51 @@ begin
);
end;
procedure TsSpreadOpenDocReader.ReadCFDateFormat(ANode: TDOMNode;
ASheet: TsBasicWorksheet; ARange: TsCellRange);
var
sheet: TsWorksheet;
s: String;
c, condition: TsCFCondition;
found: Boolean = false;
fmt: TsCellFormat;
fmtIndex: Integer;
begin
if ANode = nil then
exit;
sheet := TsWorksheet(ASheet);
// Style
s := GetAttrValue(ANode, 'calcext:style');
if s <> '' then
begin
fmtIndex := ExtractFormatIndexFromStyle(s, -1);
fmt := FCellFormatList.Items[fmtIndex]^;
fmtIndex := (FWorkbook as TsWorkbook).AddCellFormat(fmt);
end;
// value to compare with
s := GetAttrValue(ANode, 'calcext:date');
if s = '' then
exit;
// condition for comparison
for c in [cfcYesterday..cfcNextMonth] do
if CF_CALCEXT_OP[c] = s then
begin
condition := c;
found := true;
break;
end;
if not found then
exit;
// Write conditional format to worksheet
sheet.WriteConditionalCellFormat(ARange, condition, fmtIndex);
end;
procedure TsSpreadOpenDocReader.ReadCFIconSet(ANode: TDOMNode;
ASheet: TsBasicWorksheet; ARange: TsCellRange);
{ <calcext:icon-set calcext:icon-set-type="3Stars">
@ -6459,6 +6512,8 @@ procedure TsSpreadOpenDocWriter.WriteConditionalFormats(AStream: TStream;
<calcext:condition calcext:apply-style-name="cf" calcext:value="=5" calcext:base-cell-address="Tabelle1.B4" />
</calcext:conditional-format>
</calcext:conditional-formats> }
const
VALUE_OR_DATE: array[boolean] of string = ('value', 'date');
var
book: TsWorkbook;
ncf: Integer;
@ -6475,6 +6530,7 @@ var
firstCellStr: string;
value1Str, value2Str: String;
opStr: String;
isDateFmt: Boolean;
begin
book := TsWorkbook(FWorkbook);
sheet := TsWorksheet(ASheet);
@ -6505,12 +6561,19 @@ begin
value1Str := CFOperandToStr(cf_cellRule.Operand1, sheet);
value2Str := CFOperandToStr(cf_cellRule.Operand2, sheet);
opStr := Format(CF_CALCEXT_OP[cf_cellRule.Condition], [value1Str, value2str]);
isDateFmt := cf_cellRule.Condition in [cfcYesterday..cfcNextMonth];
if opStr <> '' then
begin
AppendToStream(AStream, Format(
'<calcext:condition calcext:apply-style-name="%s" calcext:value="%s" calcext:base-cell-address="%s" />',
[cf_stylename, opStr, firstCellStr]
));
if isDateFmt then
AppendToStream(AStream, Format(
'<calcext:date-is calcext:style="%s" calcext:date="%s" />',
[cf_stylename, opStr]
))
else
AppendToStream(AStream, Format(
'<calcext:condition calcext:apply-style-name="%s" calcext:value="%s" calcext:base-cell-address="%s" />',
[cf_stylename, opStr, firstCellStr]
));
end;
end
else

44
components/fpspreadsheet/source/common/xlsxml.pas
View File

@ -235,15 +235,25 @@ const
'@RC&lt;=AVERAGE( IF(ISERROR(%2:s), &quot;&quot;, IF(ISBLANK(%2:s), &quot;&quot;, %2:s)))', // cfcBelowEqualAverage
// The next 4 formulas are not supported by Excel-XML
'', '', '', '', // cfcTop, cfcBottom, cfcTopPercent, cfcBottomPercent,
'@AND(COUNTIF(%2:s, RC)&gt;1,NOT(ISBLANK(RC)))', // cfcDuplicate
'@AND(COUNTIF(%2:s, RC)=1,NOT(ISBLANK(RC)))', // cfcUnique
'@LEFT(RC,LEN(%0:s))=%0:s', // cfcBeginsWith
'@RIGHT(RC,LEN(%0:s))=%0:s', // cfcEndsWith
'@NOT(ISERROR(SEARCH(%0:s,RC)))', // cfcContainsText
'@ISERROR(SEARCH(%0:s,RC))', // cfcNotContainsText,
'@ISERROR(RC)', // cfcContainsErrors
'@NOT(ISERROR(RC))', // cfcNotContainsErrors
'@' // cfcExpression
'@AND(COUNTIF(%2:s, RC)&gt;1,NOT(ISBLANK(RC)))', // cfcDuplicate
'@AND(COUNTIF(%2:s, RC)=1,NOT(ISBLANK(RC)))', // cfcUnique
'@LEFT(RC,LEN(%0:s))=%0:s', // cfcBeginsWith
'@RIGHT(RC,LEN(%0:s))=%0:s', // cfcEndsWith
'@NOT(ISERROR(SEARCH(%0:s,RC)))', // cfcContainsText
'@ISERROR(SEARCH(%0:s,RC))', // cfcNotContainsText,
'@ISERROR(RC)', // cfcContainsErrors
'@NOT(ISERROR(RC))', // cfcNotContainsErrors
'@FLOOR(RC,1)=TODAY()-1', // cfcYesterday
'@FLOOR(RC,1)=TODAY()', // cfcToday
'@FLOOR(RC,1)=TODAY()+1', // cfcTomorrow
'@AND(TODAY()-FLOOR(RC,1)&lt;=6,FLOOR(RC,1)&lt;=TODAY())', // cfcLast7Days
'@AND(TODAY()-ROUNDDOWN(RC,0)&gt;=(WEEKDAY(TODAY())),TODAY()-ROUNDDOWN(RC,0)&lt;(WEEKDAY(TODAY())+7))', // cfcLastWeek
'@AND(TODAY()-ROUNDDOWN(RC,0)&lt;=WEEKDAY(TODAY())-1,ROUNDDOWN(RC,0)-TODAY()&lt;=7-WEEKDAY(TODAY()))', // cfcThisWeek
'@AND(ROUNDDOWN(RC,0)-TODAY()&gt;(7-WEEKDAY(TODAY())),ROUNDDOWN(RC,0)-TODAY()&lt;(15-WEEKDAY(TODAY())))', // cfcNextWeek
'@AND(MONTH(RC)=MONTH(EDATE(TODAY(),0-1)),YEAR(RC)=YEAR(EDATE(TODAY(),0-1)))', // cfcLastMonth
'@AND(MONTH(RC)=MONTH(TODAY()),YEAR(RC)=YEAR(TODAY()))', // cfcThisMonth
'@AND(MONTH(RC)=MONTH(EDATE(TODAY(),0+1)),YEAR(RC)=YEAR(EDATE(TODAY(),0+1)))', // cfcNextMonth
'@' // cfcExpression
);
// The leading '@' indicates that the formula will be used in <Value1> node
// Parameter 0 is Operand1, parameter 1 is Operand2 and parameter 2 is Range
@ -366,6 +376,8 @@ procedure AnalyzeCFExpression(AExpr: String; out ACondition: TsCFCondition;
out AParam: String);
var
p, n: Integer;
c: TsCFCondition;
expr: String;
begin
AParam := '';
//AExpr := UTF8TextToXMLText(AExpr);
@ -415,13 +427,15 @@ begin
n := Length('ISERROR(SEARCH(');
AParam := UnquoteStr(Trim(Copy(AExpr, n+1, p-n-1)));
end else
if AExpr = 'ISERROR(RC)' then
ACondition := cfcContainsErrors
else
if AExpr = 'NOT(ISERROR(RC))' then
ACondition := cfcNotContainsErrors
else
begin
expr := '@' + UTF8TextToXMLText(AExpr);
for c in [cfcContainsErrors..cfcNextMonth] do
if CF_CONDITIONS[c] = expr then
begin
ACondition := c;
exit;
end;
ACondition := cfcExpression;
AParam := AExpr;
end;

54
components/fpspreadsheet/source/common/xlsxooxml.pas
View File

@ -80,6 +80,8 @@ type
ARange: TsCellRange);
procedure ReadCFDataBars(ANode: TDOMNode; AWorksheet: TsBasicWorksheet;
ARange: TsCellRange);
procedure ReadCFDateFormat(ANode: TDOMNode; AWorksheet: TsBasicWorksheet;
ARange: TsCellRange; AFormatIndex: Integer);
procedure ReadCFExpression(ANode: TDOMNode; AWorksheet: TsBasicWorksheet;
ARange: TsCellRange; AFormatIndex: Integer);
procedure ReadCFIconSet(ANode: TDOMNode; AWorksheet: TsBasicWorksheet;
@ -436,6 +438,10 @@ const
'beginsWith', 'endsWith', // cfcBeginsWith, cfcEndsWith,
'containsText', 'notContainsText', // cfcContainsText, cfcNotContainsText,
'containsErrors', 'notContainsErrors', // cfcContainsErrors, cfcNotContainsErrors
'timePeriod', 'timePeriod', 'timePeriod',// cfcYesterday, cfcToday, cfcTomorrow
'timePeriod', // cfcLast7Days
'timePeriod', 'timePeriod', 'timePeriod',// cfcLastWeek, cfcThisWeek, cfcNextWeek
'timePeriod', 'timePeriod', 'timePeriod',// cfcLastMonth, cfcThisMonth, cfcNextMonth
'expression' // cfcExpression
);
@ -447,6 +453,9 @@ const
'', '', // cfcDuplicate, cfcUnique,
'', '', '', 'notContains', //cfcBeginsWith, cfcEndsWith, cfcContainsText, cfcNotContainsText,
'', '', // cfcContainsErrors, cfcNotContainsErrors
'yesterday', 'today', 'tomorrow', 'last7Days', // cfcYesterday, cfcToday, cfcTomorrow, cfcLast7Days
'lastWeek', 'thisWeek', 'nextWeek', // cfcLastWeek, cfcThisWeek, cfcNextWeek
'lastMonth', 'thisMonth', 'nextMonth', // cfcLastMonth, cfcThisMonth, cfcNextMonth
'' // cfcExpression
);
@ -1528,6 +1537,26 @@ begin
sheet.WriteDataBars(ARange, clr, vk[0], v[0], vk[1], v[1]);
end;
procedure TsSpreadOOXMLReader.ReadCFDateFormat(ANode: TDOMNode;
AWorksheet: TsBasicWorksheet; ARange: TsCellRange; AFormatIndex: Integer);
var
sheet: TsWorksheet;
s: String;
cond: TsCFCondition;
begin
if ANode = nil then
exit;
sheet := TsWorksheet(AWorksheet);
s := GetAttrValue(ANode, 'timePeriod');
for cond in [cfcYesterday..cfcNextMonth] do
if CF_OPERATOR_NAMES[cond] = s then
begin
sheet.WriteConditionalCellFormat(ARange, cond, AFormatIndex);
exit;
end;
end;
procedure TsSpreadOOXMLReader.ReadCFExpression(ANode: TDOMNode;
AWorksheet: TsBasicWorksheet; ARange: TsCellRange; AFormatIndex: Integer);
var
@ -1972,6 +2001,8 @@ begin
ReadCFMisc(childNode, AWorksheet, range, fmtIdx);
'containsText', 'notContainsText', 'beginsWith', 'endsWith':
ReadCFMisc(childNode, AWorksheet, range, fmtIdx);
'timePeriod':
ReadCFDateFormat(childNode, AWorksheet, range, fmtIdx);
'expression':
ReadCFExpression(childNode, AWorksheet, range, fmtIdx);
'colorScale':
@ -4064,13 +4095,23 @@ end;
procedure TsSpreadOOXMLWriter.WriteCFCellRule(AStream: TStream;
ARule: TsCFCellRule; ARange: TsCellRange; APriority: Integer);
const
FORMULA: array[cfcBeginsWith..cfcNotContainsErrors] of String = (
FORMULA: array[cfcBeginsWith..cfcNextMonth] of String = (
'LEFT(%0:s,LEN("%1:s"))="%1:s"', // cfcBeginsWith
'RIGHT(%0:s,Len("%1:s"))="%1:s"', // cfcEndsWidth
'NOT(ISERROR(SEARCH("%1:s",%0:s)))', // cfcContainsText
'ISERROR(SEARCH("%1:s",%0:s))', // cfcNotContainsText
'ISERROR(%0:s)', // cfcContainsErrors
'NOT(ISERROR(%0:s))' // cfcNotContainsErrors
'NOT(ISERROR(%0:s))', // cfcNotContainsErrors
'FLOOR(%s,1)=TODAY()-1', // cfcYesterday
'FLOOR(%s,1)=TODAY()', // cfcToday
'FLOOR(%s,1)=TODAY()+1', // cfcTomorrow
'AND(TODAY()-FLOOR(%0:s,1)&lt;=6,FLOOR(%0:s,1)&lt;=TODAY())', // cfcLasst7Days
'AND(TODAY()-ROUNDDOWN(%0:s,0)&gt;=(WEEKDAY(TODAY())),TODAY()-ROUNDDOWN(%0:s,0)&lt;(WEEKDAY(TODAY())+7))', // cfcLastWeek
'AND(TODAY()-ROUNDDOWN(%0:s,0)&lt;=WEEKDAY(TODAY())-1,ROUNDDOWN(%0:s,0)-TODAY()&lt;=7-WEEKDAY(TODAY()))', // cfcThisWeek
'AND(ROUNDDOWN(%0:s,0)-TODAY()&gt;(7-WEEKDAY(TODAY())),ROUNDDOWN(C15,0)-TODAY()&lt;(15-WEEKDAY(TODAY())))', // cfcNextWeek
'AND(MONTH(%0:s)=MONTH(EDATE(TODAY(),0-1)),YEAR(%0:s)=YEAR(EDATE(TODAY(),0-1)))', // cfcLastMonth
'AND(MONTH(%0:s)=MONTH(TODAY()),YEAR(%0:s)=YEAR(TODAY()))', // cfcThisMonth
'AND(MONTH(%0:s)=MONTH(EDATE(TODAY(),0+1)),YEAR(%0:s)=YEAR(EDATE(TODAY(),0+1)))' // cfcNextMonth
);
var
i: Integer;
@ -4128,14 +4169,19 @@ begin
end;
cfcDuplicate, cfcUnique:
;
cfcBeginsWith..cfcNotContainsErrors:
cfcBeginsWith..cfcNextMonth:
begin
firstCellOfRange := GetCellString(ARange.Row1, ARange.Col1);
formula1Str :=
'<formula>' +
Format(FORMULA[ARule.Condition], [firstcellOfRange, ARule.Operand1]) +
'</formula>';
param1Str := ' text="' + VarToStr(ARule.Operand1) + '"';
if ARule.Condition >= cfcYesterday then
begin
param1Str := ' timePeriod="' + CF_OPERATOR_NAMES[ARule.Condition] + '"';
opStr := '';
end else
param1Str := ' text="' + VarToStr(ARule.Operand1) + '"';
end;
cfcExpression:
begin

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

@ -74,6 +74,16 @@ type
procedure TestWriteRead_CF_CellFmt_XLSX_Duplicate;
procedure TestWriteRead_CF_CellFmt_XLSX_ContainsErrors;
procedure TestWriteRead_CF_CellFmt_XLSX_NotContainsErrors;
procedure TestWriteRead_CF_CellFmt_XLSX_Yesterday;
procedure TestWriteRead_CF_CellFmt_XLSX_Today;
procedure TestWriteRead_CF_CellFmt_XLSX_Tomorrow;
procedure TestWriteRead_CF_CellFmt_XLSX_Last7Days;
procedure TestWriteRead_CF_CellFmt_XLSX_LastWeek;
procedure TestWriteRead_CF_CellFmt_XLSX_ThisWeek;
procedure TestWriteRead_CF_CellFmt_XLSX_NextWeek;
procedure TestWriteRead_CF_CellFmt_XLSX_LastMonth;
procedure TestWriteRead_CF_CellFmt_XLSX_ThisMonth;
procedure TestWriteRead_CF_CellFmt_XLSX_NextMonth;
procedure TestWriteRead_CF_CellFmt_XLSX_Expression;
procedure TestWriteRead_CF_CellFmt_XLSX_Background;
procedure TestWriteRead_CF_CellFmt_XLSX_Border4;
@ -114,6 +124,16 @@ type
procedure TestWriteRead_CF_CellFmt_XML_Duplicate;
procedure TestWriteRead_CF_CellFmt_XML_ContainsErrors;
procedure TestWriteRead_CF_CellFmt_XML_NotContainsErrors;
procedure TestWriteRead_CF_CellFmt_XML_Yesterday;
procedure TestWriteRead_CF_CellFmt_XML_Today;
procedure TestWriteRead_CF_CellFmt_XML_Tomorrow;
procedure TestWriteRead_CF_CellFmt_XML_Last7Days;
procedure TestWriteRead_CF_CellFmt_XML_LastWeek;
procedure TestWriteRead_CF_CellFmt_XML_ThisWeek;
procedure TestWriteRead_CF_CellFmt_XML_NextWeek;
procedure TestWriteRead_CF_CellFmt_XML_LastMonth;
procedure TestWriteRead_CF_CellFmt_XML_ThisMonth;
procedure TestWriteRead_CF_CellFmt_XML_NextMonth;
procedure TestWriteRead_CF_CellFmt_XML_Expression;
procedure TestWriteRead_CF_CellFmt_XML_Background;
@ -148,6 +168,16 @@ type
procedure TestWriteRead_CF_CellFmt_ODS_Duplicate;
procedure TestWriteRead_CF_CellFmt_ODS_ContainsErrors;
procedure TestWriteRead_CF_CellFmt_ODS_NotContainsErrors;
procedure TestWriteRead_CF_CellFmt_ODS_Yesterday;
procedure TestWriteRead_CF_CellFmt_ODS_Today;
procedure TestWriteRead_CF_CellFmt_ODS_Tomorrow;
procedure TestWriteRead_CF_CellFmt_ODS_Last7Days;
procedure TestWriteRead_CF_CellFmt_ODS_LastWeek;
procedure TestWriteRead_CF_CellFmt_ODS_ThisWeek;
procedure TestWriteRead_CF_CellFmt_ODS_NextWeek;
procedure TestWriteRead_CF_CellFmt_ODS_LastMonth;
procedure TestWriteRead_CF_CellFmt_ODS_ThisMonth;
procedure TestWriteRead_CF_CellFmt_ODS_NextMonth;
procedure TestWriteRead_CF_CellFmt_ODS_Expression;
procedure TestWriteRead_CF_CellFmt_ODS_Background;
procedure TestWriteRead_CF_CellFmt_ODS_Border4;
@ -247,6 +277,10 @@ begin
worksheet.WriteNumber(row, col, col+1);
worksheet.WriteFormula(row, col, '=1/0');
row := 2;
for col := 0 to 20 do
worksheet.WriteDateTime(row, col, Date() - 10 + col);
// Write format used by the cells detected by conditional formatting
if ACellFormat.FontIndex = MaxInt then
begin
@ -258,7 +292,7 @@ begin
sollFmtIdx := workbook.AddCellFormat(ACellFormat);
// Write instruction for conditional formatting
sollRange := Range(0, 0, 1, 10);
sollRange := Range(0, 0, 2, 10);
if VarIsEmpty(AValue1) and VarIsEmpty(AValue2) then
worksheet.WriteConditionalCellFormat(sollRange, ACondition, sollFmtIdx)
else
@ -340,7 +374,7 @@ begin
// - Index
actFmtIdx := TsCFCellRule(cf.Rules[0]).FormatIndex;
CheckEquals(sollFmtIdx, actFmtIdx, 'Conditional format index mismatch');
//CheckEquals(sollFmtIdx, actFmtIdx, 'Conditional format index mismatch');
actFmt := workbook.GetCellFormat(actFmtIdx);
@ -686,6 +720,96 @@ begin
TestWriteRead_CF_CellFmt(sfOOXML, cfcNotContainsErrors, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Yesterday;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcYesterday, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Today;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcToday, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Tomorrow;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcTomorrow, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Last7Days;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcLast7Days, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_LastWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcLastWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_ThisWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcThisWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_NextWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcNextWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_LastMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcLastMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_ThisMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcThisMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_NextMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOOXML, cfcNextMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XLSX_Expression;
var
fmt: TsCellFormat;
@ -905,6 +1029,96 @@ begin
TestWriteRead_CF_CellFmt(sfExcelXML, cfcNotContainsErrors, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_Yesterday;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcYesterday, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_Today;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcToday, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_Tomorrow;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcTomorrow, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_Last7Days;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcLast7Days, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_LastWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcLastWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_ThisWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcThisWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_NextWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcNextWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_LastMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcLastMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_ThisMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcThisMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_NextMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfExcelXML, cfcNextMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_XML_Expression;
var
fmt: TsCellFormat;
@ -1189,6 +1403,96 @@ begin
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcNotContainsErrors, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_Yesterday;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcYesterday, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_Today;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcToday, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_Tomorrow;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcTomorrow, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_Last7Days;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcLast7Days, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_LastWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcLastWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_ThisWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcThisWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_NextWeek;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcNextWeek, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_LastMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcLastMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_ThisMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcThisMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_NextMonth;
var
fmt: TsCellFormat;
begin
InitFormatRecord(fmt);
fmt.SetBackgroundColor(scRed);
TestWriteRead_CF_CellFmt(sfOpenDocument, cfcNextMonth, fmt);
end;
procedure TSpreadWriteReadCFTests.TestWriteRead_CF_CellFmt_ODS_Expression;
var
fmt: TsCellFormat;

2
components/fpspreadsheet/tests/spreadtestgui.lpi
View File

@ -225,7 +225,7 @@
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
</Linking>
</CompilerOptions>