颜色名称 | 颜色效果 | 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.第三步, 添加表头表尾.