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


    颜色名称  颜色效果  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:	empDelphi.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:	empHtml.txt');
      List.Free;
    end;
    
    end.

    第三步, 添加表头表尾.

    引自:http://www.cnblogs.com/del/archive/2008/02/19/1073568.html

  • 相关阅读:
    linux tcp/ip 调优
    ulimit 管理系统资源
    linux grep 设置高亮显示
    linux 调整内核优化
    微信公众平台自定义菜单及高级接口PHP SDK
    微信公众平台开发(102) 模版消息
    微信WeixinJSBridge API
    微信支付开发(2) 静态链接Native支付
    微信分享JS接口失效说明及解决方案
    微信JS接口
  • 原文地址:https://www.cnblogs.com/FuYan/p/4520143.html
Copyright © 2020-2023  润新知