随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

颜色名称   颜色效果   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="background-color:' + s3 +
      '"></td><td>' + s2 + '</td><td>' + s3 + '</td></tr>';
  end;

  List.SaveToFile('c:\temp\Html.txt');
  List.Free;
end;

end.

第三步, 添加表头表尾.

posted on 2008-02-19 14:45  万一  阅读(...)  评论(...编辑  收藏