颜色名称 | 颜色效果 | 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: empDelphi.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=" "> + s3 + '"></td><td>' + s2 + '</td><td>' + s3 + '</td></tr>'; end; List.SaveToFile('c: empHtml.txt'); List.Free; end; end.
第三步, 添加表头表尾.
引自:http://www.cnblogs.com/del/archive/2008/02/19/1073568.html