Дополнительные константы цветов

unit UnitColorConstants;
{-----------------------------------------------------------------
  Unit Name: UnitColorConstants
  Version: 2.0
  Author: Stewart Moss
  Creation Date: Jan 31 2002 11:54 pm
  Modification Date: Feb 21 2002
  Dependancies:
  Description:
-- This code is copyright (Jan 31 2002) by Stewart Moss
-- All rights Reserved.
-----------------------------------------------------------------}

interface
uses Graphics;
const
 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);
implementation
end.

Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...