• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中的颜色常量及效果图

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
颜色名称   颜色效果   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 的源文件中提取并替换出下面的文本文件:
<br>clBlack=$000000<br>clMaroon=$000080<br>clGreen=$008000<br>clOlive=$008080<br>clNavy=$800000<br>clPurple=$800080<br>clTeal=$808000<br>clGray=$808080<br>clSilver=$C0C0C0<br>clRed=$0000FF<br>clLime=$00FF00<br>clYellow=$00FFFF<br>clBlue=$FF0000<br>clFuchsia=$FF00FF<br>clAqua=$FFFF00<br>clLtGray=$C0C0C0<br>clDkGray=$808080<br>clWhite=$FFFFFF<br>clMoneyGreen=$C0DCC0<br>clSkyBlue=$F0CAA6<br>clCream=$F0FBFF<br>clMedGray=$A4A0A0<br>clWebSnow=$FAFAFF<br>clWebFloralWhite=$F0FAFF<br>clWebLavenderBlush=$F5F0FF<br>clWebOldLace=$E6F5FD<br>clWebIvory=$F0FFFF<br>clWebCornSilk=$DCF8FF<br>clWebBeige=$DCF5F5<br>clWebAntiqueWhite=$D7EBFA<br>clWebWheat=$B3DEF5<br>clWebAliceBlue=$FFF8F0<br>clWebGhostWhite=$FFF8F8<br>clWebLavender=$FAE6E6<br>clWebSeashell=$EEF5FF<br>clWebLightYellow=$E0FFFF<br>clWebPapayaWhip=$D5EFFF<br>clWebNavajoWhite=$ADDEFF<br>clWebMoccasin=$B5E4FF<br>clWebBurlywood=$87B8DE<br>clWebAzure=$FFFFF0<br>clWebMintcream=$FAFFF5<br>clWebHoneydew=$F0FFF0<br>clWebLinen=$E6F0FA<br>clWebLemonChiffon=$CDFAFF<br>clWebBlanchedAlmond=$CDEBFF<br>clWebBisque=$C4E4FF<br>clWebPeachPuff=$B9DAFF<br>clWebTan=$8CB4D2<br>clWebYellow=$00FFFF<br>clWebDarkOrange=$008CFF<br>clWebRed=$0000FF<br>clWebDarkRed=$00008B<br>clWebMaroon=$000080<br>clWebIndianRed=$5C5CCD<br>clWebSalmon=$7280FA<br>clWebCoral=$507FFF<br>clWebGold=$00D7FF<br>clWebTomato=$4763FF<br>clWebCrimson=$3C14DC<br>clWebBrown=$2A2AA5<br>clWebChocolate=$1E69D2<br>clWebSandyBrown=$60A4F4<br>clWebLightSalmon=$7AA0FF<br>clWebLightCoral=$8080F0<br>clWebOrange=$00A5FF<br>clWebOrangeRed=$0045FF<br>clWebFirebrick=$2222B2<br>clWebSaddleBrown=$13458B<br>clWebSienna=$2D52A0<br>clWebPeru=$3F85CD<br>clWebDarkSalmon=$7A96E9<br>clWebRosyBrown=$8F8FBC<br>clWebPaleGoldenrod=$AAE8EE<br>clWebLightGoldenrodYellow=$D2FAFA<br>clWebOlive=$008080<br>clWebForestGreen=$228B22<br>clWebGreenYellow=$2FFFAD<br>clWebChartreuse=$00FF7F<br>clWebLightGreen=$90EE90<br>clWebAquamarine=$D4FF7F<br>clWebSeaGreen=$578B2E<br>clWebGoldenRod=$20A5DA<br>clWebKhaki=$8CE6F0<br>clWebOliveDrab=$238E6B<br>clWebGreen=$008000<br>clWebYellowGreen=$32CD9A<br>clWebLawnGreen=$00FC7C<br>clWebPaleGreen=$98FB98<br>clWebMediumAquamarine=$AACD66<br>clWebMediumSeaGreen=$71B33C<br>clWebDarkGoldenRod=$0B86B8<br>clWebDarkKhaki=$6BB7BD<br>clWebDarkOliveGreen=$2F6B55<br>clWebDarkgreen=$006400<br>clWebLimeGreen=$32CD32<br>clWebLime=$00FF00<br>clWebSpringGreen=$7FFF00<br>clWebMediumSpringGreen=$9AFA00<br>clWebDarkSeaGreen=$8FBC8F<br>clWebLightSeaGreen=$AAB220<br>clWebPaleTurquoise=$EEEEAF<br>clWebLightCyan=$FFFFE0<br>clWebLightBlue=$E6D8AD<br>clWebLightSkyBlue=$FACE87<br>clWebCornFlowerBlue=$ED9564<br>clWebDarkBlue=$8B0000<br>clWebIndigo=$82004B<br>clWebMediumTurquoise=$CCD148<br>clWebTurquoise=$D0E040<br>clWebCyan=$FFFF00<br>clWebAqua=$FFFF00<br>clWebPowderBlue=$E6E0B0<br>clWebSkyBlue=$EBCE87<br>clWebRoyalBlue=$E16941<br>clWebMediumBlue=$CD0000<br>clWebMidnightBlue=$701919<br>clWebDarkTurquoise=$D1CE00<br>clWebCadetBlue=$A09E5F<br>clWebDarkCyan=$8B8B00<br>clWebTeal=$808000<br>clWebDeepskyBlue=$FFBF00<br>clWebDodgerBlue=$FF901E<br>clWebBlue=$FF0000<br>clWebNavy=$800000<br>clWebDarkViolet=$D30094<br>clWebDarkOrchid=$CC3299<br>clWebMagenta=$FF00FF<br>clWebFuchsia=$FF00FF<br>clWebDarkMagenta=$8B008B<br>clWebMediumVioletRed=$8515C7<br>clWebPaleVioletRed=$9370DB<br>clWebBlueViolet=$E22B8A<br>clWebMediumOrchid=$D355BA<br>clWebMediumPurple=$DB7093<br>clWebPurple=$800080<br>clWebDeepPink=$9314FF<br>clWebLightPink=$C1B6FF<br>clWebViolet=$EE82EE<br>clWebOrchid=$D670DA<br>clWebPlum=$DDA0DD<br>clWebThistle=$D8BFD8<br>clWebHotPink=$B469FF<br>clWebPink=$CBC0FF<br>clWebLightSteelBlue=$DEC4B0<br>clWebMediumSlateBlue=$EE687B<br>clWebLightSlateGray=$998877<br>clWebWhite=$FFFFFF<br>clWebLightgrey=$D3D3D3<br>clWebGray=$808080<br>clWebSteelBlue=$B48246<br>clWebSlateBlue=$CD5A6A<br>clWebSlateGray=$908070<br>clWebWhiteSmoke=$F5F5F5<br>clWebSilver=$C0C0C0<br>clWebDimGray=$696969<br>clWebMistyRose=$E1E4FF<br>clWebDarkSlateBlue=$8B3D48<br>clWebDarkSlategray=$4F4F2F<br>clWebGainsboro=$DCDCDC<br>clWebDarkGray=$A9A9A9<br>clWebBlack=$000000<br>

第二步, 写了个小程序:
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.






第三步, 添加表头表尾.

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphixe10下载(包含破解补丁和破解视频)发布时间:2022-07-18
下一篇:
利用Delphi编程控制摄像头(图)发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap