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);
lFormatStr := LowerCase(Trim(lFormatStr));
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 := '';
end
else
@ -366,13 +369,13 @@ begin
begin
lCurColor := FWorksheet.ReadBackgroundColor(i, j);
case lCurColor of
{scBlack, // 000000H
scWhite, // FFFFFFH}
scBlack: lColorStr := 'black';
scWhite: lColorStr := 'white';
scRed: lColorStr := 'red';
scGREEN: lColorStr := 'green';
{scBLUE, // 0000FFH
scYELLOW, // FFFF00H
scMAGENTA, // FF00FFH
scBLUE: lColorStr := 'blue';
scYELLOW: lColorStr := 'yellow';
{scMAGENTA, // FF00FFH
scCYAN, // 00FFFFH
scDarkRed, // 800000H
scDarkGreen,// 008000H