颜色名称   颜色效果   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-03-07 20:39  yxbsmx  阅读(359)  评论(0编辑  收藏  举报