| 颜色名称 | 颜色效果 | Hex | HTML |
|---|---|---|---|
| clBlack | $000000 | #000000 | |
| clMaroon | $000080 | #800000 | |
| clGreen | $008000 | #008000 | |
| clOlive | $008080 | #808000 | |
| clNavy | $800000 | #000080 | |
| clPurple | $800080 | #800080 | |
| clTeal | $808000 | #008080 | |
| clGray | $808080 | #808080 | |
| clSilver | $C0C0C0 | #C0C0C0 | |
| clRed | $0000FF | #FF0000 | |
| clLime | $00FF00 | #00FF00 | |
| clYellow | $00FFFF | #FFFF00 | |
| clBlue | $FF0000 | #0000FF | |
| clFuchsia | $FF00FF | #FF00FF | |
| clAqua | $FFFF00 | #00FFFF | |
| clLtGray | $C0C0C0 | #C0C0C0 | |
| clDkGray | $808080 | #808080 | |
| clWhite | $FFFFFF | #FFFFFF | |
| clMoneyGreen | $C0DCC0 | #C0DCC0 | |
| clSkyBlue | $F0CAA6 | #A6CAF0 | |
| clCream | $F0FBFF | #FFFBF0 | |
| clMedGray | $A4A0A0 | #A0A0A4 | |
| clWebSnow | $FAFAFF | #FFFAFA | |
| clWebFloralWhite | $F0FAFF | #FFFAF0 | |
| clWebLavenderBlush | $F5F0FF | #FFF0F5 | |
| clWebOldLace | $E6F5FD | #FDF5E6 | |
| clWebIvory | $F0FFFF | #FFFFF0 | |
| clWebCornSilk | $DCF8FF | #FFF8DC | |
| clWebBeige | $DCF5F5 | #F5F5DC | |
| clWebAntiqueWhite | $D7EBFA | #FAEBD7 | |
| clWebWheat | $B3DEF5 | #F5DEB3 | |
| clWebAliceBlue | $FFF8F0 | #F0F8FF | |
| clWebGhostWhite | $FFF8F8 | #F8F8FF | |
| clWebLavender | $FAE6E6 | #E6E6FA | |
| clWebSeashell | $EEF5FF | #FFF5EE | |
| clWebLightYellow | $E0FFFF | #FFFFE0 | |
| clWebPapayaWhip | $D5EFFF | #FFEFD5 | |
| clWebNavajoWhite | $ADDEFF | #FFDEAD | |
| clWebMoccasin | $B5E4FF | #FFE4B5 | |
| clWebBurlywood | $87B8DE | #DEB887 | |
| clWebAzure | $FFFFF0 | #F0FFFF | |
| clWebMintcream | $FAFFF5 | #F5FFFA | |
| clWebHoneydew | $F0FFF0 | #F0FFF0 | |
| clWebLinen | $E6F0FA | #FAF0E6 | |
| clWebLemonChiffon | $CDFAFF | #FFFACD | |
| clWebBlanchedAlmond | $CDEBFF | #FFEBCD | |
| clWebBisque | $C4E4FF | #FFE4C4 | |
| clWebPeachPuff | $B9DAFF | #FFDAB9 | |
| clWebTan | $8CB4D2 | #D2B48C | |
| clWebYellow | $00FFFF | #FFFF00 | |
| clWebDarkOrange | $008CFF | #FF8C00 | |
| clWebRed | $0000FF | #FF0000 | |
| clWebDarkRed | $00008B | #8B0000 | |
| clWebMaroon | $000080 | #800000 | |
| clWebIndianRed | $5C5CCD | #CD5C5C | |
| clWebSalmon | $7280FA | #FA8072 | |
| clWebCoral | $507FFF | #FF7F50 | |
| clWebGold | $00D7FF | #FFD700 | |
| clWebTomato | $4763FF | #FF6347 | |
| clWebCrimson | $3C14DC | #DC143C | |
| clWebBrown | $2A2AA5 | #A52A2A | |
| clWebChocolate | $1E69D2 | #D2691E | |
| clWebSandyBrown | $60A4F4 | #F4A460 | |
| clWebLightSalmon | $7AA0FF | #FFA07A | |
| clWebLightCoral | $8080F0 | #F08080 | |
| clWebOrange | $00A5FF | #FFA500 | |
| clWebOrangeRed | $0045FF | #FF4500 | |
| clWebFirebrick | $2222B2 | #B22222 | |
| clWebSaddleBrown | $13458B | #8B4513 | |
| clWebSienna | $2D52A0 | #A0522D | |
| clWebPeru | $3F85CD | #CD853F | |
| clWebDarkSalmon | $7A96E9 | #E9967A | |
| clWebRosyBrown | $8F8FBC | #BC8F8F | |
| clWebPaleGoldenrod | $AAE8EE | #EEE8AA | |
| clWebLightGoldenrodYellow | $D2FAFA | #FAFAD2 | |
| clWebOlive | $008080 | #808000 | |
| clWebForestGreen | $228B22 | #228B22 | |
| clWebGreenYellow | $2FFFAD | #ADFF2F | |
| clWebChartreuse | $00FF7F | #7FFF00 | |
| clWebLightGreen | $90EE90 | #90EE90 | |
| clWebAquamarine | $D4FF7F | #7FFFD4 | |
| clWebSeaGreen | $578B2E | #2E8B57 | |
| clWebGoldenRod | $20A5DA | #DAA520 | |
| clWebKhaki | $8CE6F0 | #F0E68C | |
| clWebOliveDrab | $238E6B | #6B8E23 | |
| clWebGreen | $008000 | #008000 | |
| clWebYellowGreen | $32CD9A | #9ACD32 | |
| clWebLawnGreen | $00FC7C | #7CFC00 | |
| clWebPaleGreen | $98FB98 | #98FB98 | |
| clWebMediumAquamarine | $AACD66 | #66CDAA | |
| clWebMediumSeaGreen | $71B33C | #3CB371 | |
| clWebDarkGoldenRod | $0B86B8 | #B8860B | |
| clWebDarkKhaki | $6BB7BD | #BDB76B | |
| clWebDarkOliveGreen | $2F6B55 | #556B2F | |
| clWebDarkgreen | $006400 | #006400 | |
| clWebLimeGreen | $32CD32 | #32CD32 | |
| clWebLime | $00FF00 | #00FF00 | |
| clWebSpringGreen | $7FFF00 | #00FF7F | |
| clWebMediumSpringGreen | $9AFA00 | #00FA9A | |
| clWebDarkSeaGreen | $8FBC8F | #8FBC8F | |
| clWebLightSeaGreen | $AAB220 | #20B2AA | |
| clWebPaleTurquoise | $EEEEAF | #AFEEEE | |
| clWebLightCyan | $FFFFE0 | #E0FFFF | |
| clWebLightBlue | $E6D8AD | #ADD8E6 | |
| clWebLightSkyBlue | $FACE87 | #87CEFA | |
| clWebCornFlowerBlue | $ED9564 | #6495ED | |
| clWebDarkBlue | $8B0000 | #00008B | |
| clWebIndigo | $82004B | #4B0082 | |
| clWebMediumTurquoise | $CCD148 | #48D1CC | |
| clWebTurquoise | $D0E040 | #40E0D0 | |
| clWebCyan | $FFFF00 | #00FFFF | |
| clWebAqua | $FFFF00 | #00FFFF | |
| clWebPowderBlue | $E6E0B0 | #B0E0E6 | |
| clWebSkyBlue | $EBCE87 | #87CEEB | |
| clWebRoyalBlue | $E16941 | #4169E1 | |
| clWebMediumBlue | $CD0000 | #0000CD | |
| clWebMidnightBlue | $701919 | #191970 | |
| clWebDarkTurquoise | $D1CE00 | #00CED1 | |
| clWebCadetBlue | $A09E5F | #5F9EA0 | |
| clWebDarkCyan | $8B8B00 | #008B8B | |
| clWebTeal | $808000 | #008080 | |
| clWebDeepskyBlue | $FFBF00 | #00BFFF | |
| clWebDodgerBlue | $FF901E | #1E90FF | |
| clWebBlue | $FF0000 | #0000FF | |
| clWebNavy | $800000 | #000080 | |
| clWebDarkViolet | $D30094 | #9400D3 | |
| clWebDarkOrchid | $CC3299 | #9932CC | |
| clWebMagenta | $FF00FF | #FF00FF | |
| clWebFuchsia | $FF00FF | #FF00FF | |
| clWebDarkMagenta | $8B008B | #8B008B | |
| clWebMediumVioletRed | $8515C7 | #C71585 | |
| clWebPaleVioletRed | $9370DB | #DB7093 | |
| clWebBlueViolet | $E22B8A | #8A2BE2 | |
| clWebMediumOrchid | $D355BA | #BA55D3 | |
| clWebMediumPurple | $DB7093 | #9370DB | |
| clWebPurple | $800080 | #800080 | |
| clWebDeepPink | $9314FF | #FF1493 | |
| clWebLightPink | $C1B6FF | #FFB6C1 | |
| clWebViolet | $EE82EE | #EE82EE | |
| clWebOrchid | $D670DA | #DA70D6 | |
| clWebPlum | $DDA0DD | #DDA0DD | |
| clWebThistle | $D8BFD8 | #D8BFD8 | |
| clWebHotPink | $B469FF | #FF69B4 | |
| clWebPink | $CBC0FF | #FFC0CB | |
| clWebLightSteelBlue | $DEC4B0 | #B0C4DE | |
| clWebMediumSlateBlue | $EE687B | #7B68EE | |
| clWebLightSlateGray | $998877 | #778899 | |
| clWebWhite | $FFFFFF | #FFFFFF | |
| clWebLightgrey | $D3D3D3 | #D3D3D3 | |
| clWebGray | $808080 | #808080 | |
| clWebSteelBlue | $B48246 | #4682B4 | |
| clWebSlateBlue | $CD5A6A | #6A5ACD | |
| clWebSlateGray | $908070 | #708090 | |
| clWebWhiteSmoke | $F5F5F5 | #F5F5F5 | |
| clWebSilver | $C0C0C0 | #C0C0C0 | |
| clWebDimGray | $696969 | #696969 | |
| clWebMistyRose | $E1E4FF | #FFE4E1 | |
| clWebDarkSlateBlue | $8B3D48 | #483D8B | |
| clWebDarkSlategray | $4F4F2F | #2F4F4F | |
| clWebGainsboro | $DCDCDC | #DCDCDC | |
| clWebDarkGray | $A9A9A9 | #A9A9A9 | |
| clWebBlack | $000000 | #000000 |
这个表的制作过程:
第一步, 先从 Delphi 的源文件中提取并替换出下面的文本文件: clBlack=$000000 clMaroon=$000080 clGreen=$008000 clOlive=$008080 clNavy=$800000 clPurple=$800080 clTeal=$808000 clGray=$808080 clSilver=$C0C0C0 clRed=$0000FF clLime=$00FF00 clYellow=$00FFFF clBlue=$FF0000 clFuchsia=$FF00FF clAqua=$FFFF00 clLtGray=$C0C0C0 clDkGray=$808080 clWhite=$FFFFFF clMoneyGreen=$C0DCC0 clSkyBlue=$F0CAA6 clCream=$F0FBFF clMedGray=$A4A0A0 clWebSnow=$FAFAFF clWebFloralWhite=$F0FAFF clWebLavenderBlush=$F5F0FF clWebOldLace=$E6F5FD clWebIvory=$F0FFFF clWebCornSilk=$DCF8FF clWebBeige=$DCF5F5 clWebAntiqueWhite=$D7EBFA clWebWheat=$B3DEF5 clWebAliceBlue=$FFF8F0 clWebGhostWhite=$FFF8F8 clWebLavender=$FAE6E6 clWebSeashell=$EEF5FF clWebLightYellow=$E0FFFF clWebPapayaWhip=$D5EFFF clWebNavajoWhite=$ADDEFF clWebMoccasin=$B5E4FF clWebBurlywood=$87B8DE clWebAzure=$FFFFF0 clWebMintcream=$FAFFF5 clWebHoneydew=$F0FFF0 clWebLinen=$E6F0FA clWebLemonChiffon=$CDFAFF clWebBlanchedAlmond=$CDEBFF clWebBisque=$C4E4FF clWebPeachPuff=$B9DAFF clWebTan=$8CB4D2 clWebYellow=$00FFFF clWebDarkOrange=$008CFF clWebRed=$0000FF clWebDarkRed=$00008B clWebMaroon=$000080 clWebIndianRed=$5C5CCD clWebSalmon=$7280FA clWebCoral=$507FFF clWebGold=$00D7FF clWebTomato=$4763FF clWebCrimson=$3C14DC clWebBrown=$2A2AA5 clWebChocolate=$1E69D2 clWebSandyBrown=$60A4F4 clWebLightSalmon=$7AA0FF clWebLightCoral=$8080F0 clWebOrange=$00A5FF clWebOrangeRed=$0045FF clWebFirebrick=$2222B2 clWebSaddleBrown=$13458B clWebSienna=$2D52A0 clWebPeru=$3F85CD clWebDarkSalmon=$7A96E9 clWebRosyBrown=$8F8FBC clWebPaleGoldenrod=$AAE8EE clWebLightGoldenrodYellow=$D2FAFA clWebOlive=$008080 clWebForestGreen=$228B22 clWebGreenYellow=$2FFFAD clWebChartreuse=$00FF7F clWebLightGreen=$90EE90 clWebAquamarine=$D4FF7F clWebSeaGreen=$578B2E clWebGoldenRod=$20A5DA clWebKhaki=$8CE6F0 clWebOliveDrab=$238E6B clWebGreen=$008000 clWebYellowGreen=$32CD9A clWebLawnGreen=$00FC7C clWebPaleGreen=$98FB98 clWebMediumAquamarine=$AACD66 clWebMediumSeaGreen=$71B33C clWebDarkGoldenRod=$0B86B8 clWebDarkKhaki=$6BB7BD clWebDarkOliveGreen=$2F6B55 clWebDarkgreen=$006400 clWebLimeGreen=$32CD32 clWebLime=$00FF00 clWebSpringGreen=$7FFF00 clWebMediumSpringGreen=$9AFA00 clWebDarkSeaGreen=$8FBC8F clWebLightSeaGreen=$AAB220 clWebPaleTurquoise=$EEEEAF clWebLightCyan=$FFFFE0 clWebLightBlue=$E6D8AD clWebLightSkyBlue=$FACE87 clWebCornFlowerBlue=$ED9564 clWebDarkBlue=$8B0000 clWebIndigo=$82004B clWebMediumTurquoise=$CCD148 clWebTurquoise=$D0E040 clWebCyan=$FFFF00 clWebAqua=$FFFF00 clWebPowderBlue=$E6E0B0 clWebSkyBlue=$EBCE87 clWebRoyalBlue=$E16941 clWebMediumBlue=$CD0000 clWebMidnightBlue=$701919 clWebDarkTurquoise=$D1CE00 clWebCadetBlue=$A09E5F clWebDarkCyan=$8B8B00 clWebTeal=$808000 clWebDeepskyBlue=$FFBF00 clWebDodgerBlue=$FF901E clWebBlue=$FF0000 clWebNavy=$800000 clWebDarkViolet=$D30094 clWebDarkOrchid=$CC3299 clWebMagenta=$FF00FF clWebFuchsia=$FF00FF clWebDarkMagenta=$8B008B clWebMediumVioletRed=$8515C7 clWebPaleVioletRed=$9370DB clWebBlueViolet=$E22B8A clWebMediumOrchid=$D355BA clWebMediumPurple=$DB7093 clWebPurple=$800080 clWebDeepPink=$9314FF clWebLightPink=$C1B6FF clWebViolet=$EE82EE clWebOrchid=$D670DA clWebPlum=$DDA0DD clWebThistle=$D8BFD8 clWebHotPink=$B469FF clWebPink=$CBC0FF clWebLightSteelBlue=$DEC4B0 clWebMediumSlateBlue=$EE687B clWebLightSlateGray=$998877 clWebWhite=$FFFFFF clWebLightgrey=$D3D3D3 clWebGray=$808080 clWebSteelBlue=$B48246 clWebSlateBlue=$CD5A6A clWebSlateGray=$908070 clWebWhiteSmoke=$F5F5F5 clWebSilver=$C0C0C0 clWebDimGray=$696969 clWebMistyRose=$E1E4FF clWebDarkSlateBlue=$8B3D48 clWebDarkSlategray=$4F4F2F clWebGainsboro=$DCDCDC clWebDarkGray=$A9A9A9 clWebBlack=$000000
第二步, 写了个小程序:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{这是专为这个表写的一个转换函数}
function HexColorToHtmlColor(s: string): string;
var
i: Integer;
R,G,B: Byte;
begin
i := StrToInt(s);
R := i and $FF;
G := (i shr 8) and $FF;
B := (i shr 16) and $FF;
Result := #35 + Format('%.2x%.2x%.2x',[R,G,B]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
i: Integer;
s1,s2,s3: string;
begin
List := TStringList.Create;
List.LoadFromFile('c:\temp\Delphi.txt');
for i := 0 to List.Count - 1 do
begin
s1 := List.Names[i];
s2 := List.ValueFromIndex[i];
s3 := HexColorToHtmlColor(s2);
List[i] := '<tr><td>' + s1 +
'</td><td style="background-color:' + s3 +
'"></td><td>' + s2 + '</td><td>' + s3 + '</td></tr>';
end;
List.SaveToFile('c:\temp\Html.txt');
List.Free;
end;
end.
posted on 2008-02-19 14:45 万一 阅读(26124) 评论(8) 编辑 收藏
