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

fpspreadsheet: Minor wikitable fixes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2749 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2013-06-11 14:34:28 +00:00
parent f7711025d7
commit be328215cd
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/fpspreadsheet/wikitable.pas
View File

@ -256,7 +256,10 @@ begin
Inc(i); Inc(i);
lFormatStr := LowerCase(Trim(lFormatStr)); lFormatStr := LowerCase(Trim(lFormatStr));
if lFormatStr = 'color:red' then lCurBackgroundColor := scRED if lFormatStr = 'color:red' then lCurBackgroundColor := scRED
else if lFormatStr = 'color:green' then lCurBackgroundColor := scGREEN; else if lFormatStr = 'color:green' then lCurBackgroundColor := scGREEN
else if lFormatStr = 'color:orange' then lCurBackgroundColor := scYELLOW
else lCurBackgroundColor := scWHITE;
lUseBackgroundColor := True;
lFormatStr := ''; lFormatStr := '';
end end
else else
@ -366,13 +369,13 @@ begin
begin begin
lCurColor := FWorksheet.ReadBackgroundColor(i, j); lCurColor := FWorksheet.ReadBackgroundColor(i, j);
case lCurColor of case lCurColor of
{scBlack, // 000000H scBlack: lColorStr := 'black';
scWhite, // FFFFFFH} scWhite: lColorStr := 'white';
scRed: lColorStr := 'red'; scRed: lColorStr := 'red';
scGREEN: lColorStr := 'green'; scGREEN: lColorStr := 'green';
{scBLUE, // 0000FFH scBLUE: lColorStr := 'blue';
scYELLOW, // FFFF00H scYELLOW: lColorStr := 'yellow';
scMAGENTA, // FF00FFH {scMAGENTA, // FF00FFH
scCYAN, // 00FFFFH scCYAN, // 00FFFFH
scDarkRed, // 800000H scDarkRed, // 800000H
scDarkGreen,// 008000H scDarkGreen,// 008000H