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

fpspreadsheet: Activate missing conditional formatting conditions in ODS writer (a few issues left)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-01 13:59:21 +00:00
parent 54fc098d03
commit 474ce859da
2 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -183,7 +183,7 @@ begin
fmt.SetBackgroundColor($FFC0C0); fmt.SetBackgroundColor($FFC0C0);
fmtIdx := wb.AddCellFormat(fmt); fmtIdx := wb.AddCellFormat(fmt);
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcBottomPercent, 10, fmtIdx); sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcBottomPercent, 10, fmtIdx);
(*
// conditional format #6: duplicates // conditional format #6: duplicates
inc(row); inc(row);
sh.WriteText(row, 0, 'duplicate values'); sh.WriteText(row, 0, 'duplicate values');
@ -199,7 +199,7 @@ begin
fmt.SetBackgroundColor($D0D0FF); fmt.SetBackgroundColor($D0D0FF);
fmtIdx := wb.AddCellFormat(fmt); fmtIdx := wb.AddCellFormat(fmt);
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcUnique, fmtIdx); sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcUnique, fmtIdx);
*)
// conditional format #6: contains any text // conditional format #6: contains any text
inc(row); inc(row);
sh.WriteText(row, 0, 'contains any text'); sh.WriteText(row, 0, 'contains any text');
@ -247,7 +247,7 @@ begin
fmt.SetBackgroundColor(scRed); fmt.SetBackgroundColor(scRed);
fmtIdx := wb.AddCellFormat(fmt); fmtIdx := wb.AddCellFormat(fmt);
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNotContainsText, 'ef', fmtIdx); sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNotContainsText, 'ef', fmtIdx);
(*
// conditional format #6: contains error // conditional format #6: contains error
inc(row); inc(row);
sh.WriteText(row, 0, 'contains error'); sh.WriteText(row, 0, 'contains error');
@ -263,7 +263,6 @@ begin
fmt.SetBackgroundColor(scRed); fmt.SetBackgroundColor(scRed);
fmtIdx := wb.AddCellFormat(fmt); fmtIdx := wb.AddCellFormat(fmt);
sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNotContainsErrors, fmtIdx); sh.WriteConditionalCellFormat(Range(row, 2, row, lastCol), cfcNotContainsErrors, fmtIdx);
*)
WriteLn('row = ', row); WriteLn('row = ', row);
WriteLn('wb.GetNumcellFormats = ', wb.GetNumCellFormats); WriteLn('wb.GetNumcellFormats = ', wb.GetNumCellFormats);

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

@ -404,10 +404,10 @@ const
'above-equal-average', 'below-equal-average', // cfcAboveEqualAverage, cfcBelowEqualAverage 'above-equal-average', 'below-equal-average', // cfcAboveEqualAverage, cfcBelowEqualAverage
'top-elements(%s)', 'bottom-elements(%s)', // cfcTop, cfcBottom, 'top-elements(%s)', 'bottom-elements(%s)', // cfcTop, cfcBottom,
'top-percent(%s)', 'bottom-percent(%s)', // cfcTopPercent, cfcBottomPercent, 'top-percent(%s)', 'bottom-percent(%s)', // cfcTopPercent, cfcBottomPercent,
'', '', // cfcDuplicate, cfcUnique, 'duplicate', 'unique', // cfcDuplicate, cfcUnique,
'begins-with(%s)', 'ends-with(%s)', // cfcBeginsWith, cfcEndsWith, 'begins-with(%s)', 'ends-with(%s)', // cfcBeginsWith, cfcEndsWith,
'contains-text(%s)', 'not-contains-text(%s)', // cfcContainsText, cfcNotContainsText, 'contains-text(%s)', 'not-contains-text(%s)', // cfcContainsText, cfcNotContainsText,
'', '' // cfcContainsErrors, cfcNotContainsErrors 'is-error', 'is-no-error' // cfcContainsErrors, cfcNotContainsErrors
); );