標題: Delphi colorcode [打印本頁]

---

作者: admin    時間: 2012-10-23 21:29     標題: Delphi colorcode

把以下放在程式的 const 內, 方便快速調用不同顏色


const

clBlack = TColor($000000);
clMaroon = TColor($000080);
clGreen = TColor($008000);
clOlive = TColor($008080);
clNavy = TColor($800000);
clPurple = TColor($800080);
clTeal = TColor($808000);
clGray = TColor($808080);
clSilver = TColor($C0C0C0);
clRed = TColor($0000FF);
clLime = TColor($00FF00);
clYellow = TColor($00FFFF);
clBlue = TColor($FF0000);
clAqua = TColor($FFFF00);
clLtGray = TColor($C0C0C0);
clDkGray = TColor($808080);
clWhite = TColor($FFFFFF);

  clNicePaleGreen = TColor($CCFFCC);
  clPaleRed = TColor($CCCCFF);
  clNicePurple = TColor($00E1E100);
  clKhaki = TColor($ADAE80);
  clMonkeyGreen = TColor($00C0DCC0);
  clSkyBlue = TColor($00F1CAA6);
  clMedGray = TColor($00A4A0A0);
  clCream = TColor($00EFFBFF);

  clChocolate = TColor($17335C);
  clDarkBrown = TColor($5C3340);
  clDarkSlateGrey = TColor($4F4F2F);
  clDarkTan = TColor($4F6997);
  clDarkWood = TColor($425E85);
  clLightWood = TColor($A6C2E9);
  clMediumWood = TColor($6480A6);
  clNewTan = TColor($9EC7EB);
  clSemiSweetChocolate = TColor($26426B);
  clSienna = TColor($236B8E);
  clWheat = TColor($BFD8D8);
  clBrass = TColor($42A6B5);
  clBronze = TColor($53788C);
  clBronzeII = TColor($3D7DA6);
  clCoolCopper = TColor($1987D9);
  clCopper = TColor($3373B8);
  clQuartz = TColor($F3D9D9);
  clFieldSpar = TColor($7592D1);
  clGoldenrod = TColor($70DBDB);
  clMediumGoldenrod = TColor($AEEAEA);
  clBrightGold = TColor($19D9D9);
  clGold = TColor($327FCD);
  clOldGold = TColor($3BB5CF);
  clCoral = TColor($007FFF);
  clFirebrick = TColor($23238E);
  clIndianRed = TColor($2F2F4E);
  clMandarianOrange = TColor($3378E4);
  clMediumVioletRed = TColor($9370DB);
  clNeonPink = TColor($C76EFF);
  clOrangeRed = TColor($0024FF);
  clScarlet = TColor($17178C);
  clSpicyPink = TColor($AE1CFF);
  clThistle = TColor($D8BFD8);
  clVioletRed = TColor($9932CC);
  clDarkOliveGreen = TColor($2F4F4F);
  clForestGreen = TColor($238E23);
  clHunterGreen = TColor($215E21);
  clMediumForestGreen = TColor($238E6B);
  clMediumSeaGreen = TColor($426F42);
  clMediumSpringGreen = TColor($00FF7F);
  clPaleGreen = TColor($8FBC8F);
  clSeaGreen = TColor($688E23);
  clSpringGreen = TColor($7FFF00);
  clYellowGreen = TColor($32CC99);
  clAquamarine = TColor($93DB70);
  clCadetBlue = TColor($9F9F5F);
  clCornFlowerBlue = TColor($6F4242);
  clDarkTurquoise = TColor($DB9370);
  clLightBlue = TColor($D9D9C0);
  clLightSteelBlue = TColor($BD8F8F);
  clMediumAquamarine = TColor($99CD32);
  clMediumBlue = TColor($CD3232);
  clMediumTurquoise = TColor($DBDB70);
  clMidnightBlue = TColor($4F2F2F);
  clNeonBlue = TColor($FF4D4D);
  clNewMidnightBlue = TColor($9C0000);
  clRichBlue = TColor($AB5959);
  clSlateBlue = TColor($FF7F00);
  clSteelBlue = TColor($8E6B23);
  clSummerSky = TColor($DEB038);
  clTurquoise = TColor($EAEAAD);
  clBlueViolet = TColor($9F5F9F);
  clOrchid = TColor($DB70DB);
  clDarkPurple = TColor($781F87);
  clViolet = TColor($4F2F4F);
  clDarkOrchid = TColor($CD3299);
  clMediumSlateBlue = TColor($007FFF);
  clDarkSlateBlue = TColor($8E236B);
  clMediumOrchid = TColor($DB7093);

---

歡迎光臨 How2Do (http://forum.how2do.com.hk/)

Powered by Discuz! 7.2