Delphi 中的颜色常量及效果图
| 颜色名称 | 颜色效果 | 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=""> + s3 + '"></td><td>' + s2 + '</td><td>' + s3 + '</td></tr>'; end; List.SaveToFile('c:\temp\Html.txt'); List.Free; end; end.
第三步, 添加表头表尾.
浙公网安备 33010602011771号