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

fpspreadsheet: Adds support for RGB colours

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2750 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2013-06-12 11:02:02 +00:00
parent be328215cd
commit 238e173677
3 changed files with 31 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/fpspreadsheet/wikitable.pas
View File

@@ -257,7 +257,9 @@ begin
lFormatStr := LowerCase(Trim(lFormatStr));
if lFormatStr = 'color:red' then lCurBackgroundColor := scRED
else if lFormatStr = 'color:green' then lCurBackgroundColor := scGREEN
else if lFormatStr = 'color:orange' then lCurBackgroundColor := scYELLOW
else if lFormatStr = 'color:yellow' then lCurBackgroundColor := scYELLOW
//
else if lFormatStr = 'color:orange' then lCurBackgroundColor := scOrange
else lCurBackgroundColor := scWHITE;
lUseBackgroundColor := True;
lFormatStr := '';
@@ -369,12 +371,12 @@ begin
begin
lCurColor := FWorksheet.ReadBackgroundColor(i, j);
case lCurColor of
scBlack: lColorStr := 'black';
scWhite: lColorStr := 'white';
scRed: lColorStr := 'red';
scGREEN: lColorStr := 'green';
scBLUE: lColorStr := 'blue';
scYELLOW: lColorStr := 'yellow';
scBlack: lColorStr := 'style="background-color:black;color:white;"';
scWhite: lColorStr := 'style="background-color:white;color:black;"';
scRed: lColorStr := 'style="background-color:red;color:white;"';
scGREEN: lColorStr := 'style="background-color:green;color:white;"';
scBLUE: lColorStr := 'style="background-color:blue;color:white;"';
scYELLOW: lColorStr := 'style="background-color:yellow;color:black;"';
{scMAGENTA, // FF00FFH
scCYAN, // 00FFFFH
scDarkRed, // 800000H
@@ -388,8 +390,9 @@ begin
//
scGrey10pct,// E6E6E6H
scGrey20pct // CCCCCCH }
scOrange: lColorStr := 'style="background-color:orange;color:white;"';
end;
lCurStr := 'style="background-color:'+lColorStr+';color:white;" |' + lCurStr
lCurStr := lColorStr + ' |' + lCurStr;
end;
if uffBold in lCurUsedFormatting then lCurStr := '!' + lCurStr