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

fpspreadsheet: Remove/deprecate all color constants and color names exceot for the basic EGA colors.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4608 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-04-06 10:43:24 +00:00
parent 7b9a56cd3e
commit 233a4b43b4
9 changed files with 135 additions and 828 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
components/fpspreadsheet/fpsutils.pas
View File

@ -1765,61 +1765,24 @@ var
rgba: TRGBA absolute AColor;
begin
case AColor of
scAqua : Result := rsAqua;
scBeige : Result := rsBeige;
scBlack : Result := rsBlack;
scBlue : Result := rsBlue;
scBlueGray : Result := rsBlueGray;
scBrown : Result := rsBrown;
scCoral : Result := rsCoral;
scCyan : Result := rsCyan;
scDarkBlue : Result := rsDarkBlue;
scDarkGreen : Result := rsDarkGreen;
scDarkPurple : Result := rsDarkPurple;
scDarkRed : Result := rsDarkRed;
scDarkTeal : Result := rsDarkTeal;
scGold : Result := rsGold;
scGray : Result := rsGray;
scGray10pct : Result := rsGray10pct;
scGray20pct : Result := rsGray20pct;
scGray40pct : Result := rsGray40pct;
scGray80pct : Result := rsGray80pct;
scGreen : Result := rsGreen;
scIceBlue : Result := rsIceBlue;
scIndigo : Result := rsIndigo;
scIvory : Result := rsIvory;
scLavander : Result := rsLavander;
scLightBlue : Result := rsLightBlue;
scLightGreen : Result := rsLightGreen;
scLightOrange: Result := rsLightOrange;
scLightTurquoise: Result := rsLightTurquoise;
scLightYellow: Result := rsLightYellow;
scLime : Result := rsLime;
scMagenta : Result := rsMagenta;
scNavy : Result := rsNavy;
scOceanBlue : Result := rsOceanBlue;
scOlive : Result := rsOlive;
scOliveGreen : Result := rsOliveGreen;
scOrange : Result := rsOrange;
scPaleBlue : Result := rsPaleBlue;
scPeriwinkle : Result := rsPeriwinkle;
scPink : Result := rsPink;
scPlum : Result := rsPlum;
scPurple : Result := rsPurple;
scRed : Result := rsRed;
scRose : Result := rsRose;
scSeaGreen : Result := rsSeaGreen;
scSilver : Result := rsSilver;
scSkyBlue : Result := rsSkyBlue;
scTan : Result := rsTan;
scTeal : Result := rsTeal;
scVeryDarkGreen: Result := rsVeryDarkGreen;
// scViolet : Result := rsViolet;
scWheat : Result := rsWheat;
scWhite : Result := rsWhite;
scYellow : Result := rsYellow;
scTransparent: Result := rsTransparent;
scNotDefined : Result := rsNotDefined;
scBlack : Result := rsBlack;
scGreen : Result := rsGreen;
scOlive : Result := rsOlive;
scPurple : Result := rsPurple;
scTeal : Result := rsTeal;
scGray : Result := rsGray;
scSilver : Result := rsSilver;
scRed : Result := rsRed;
scYellow : Result := rsYellow;
scBlue : Result := rsBlue;
scWhite : Result := rsWhite;
scMagenta : Result := rsMagenta;
scCyan : Result := rsCyan;
scDarkRed : Result := rsDarkRed;
scDarkGreen : Result := rsDarkGreen;
scDarkBlue : result := rsDarkBlue;
scTransparent : Result := rsTransparent;
scNotDefined : Result := rsNotDefined;
else
case rgba.a of
$00: