您的位置:首页 > 理论基础 > 计算机网络

delphi 颜色 引用http://www.cnblogs.com/del/archive/2008/02/19/1073568.html

2015-05-21 16:47 567 查看
颜色名称颜色效果 HexHTML
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.


第三步, 添加表头表尾.

引自:/article/4586535.html
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐