Delphi 中的颜色常量及效果图

颜色名称  颜色效果  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="background-color:'

 + s3 +
      '"></td><td>'

 + s2 + '</td><td>'

 + s3 + '</td></tr>'

;
  end


;

  List.

SaveToFile('c:\temp\Html.txt'

);
  List.

Free;
end


;

end


.