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

Previous  Top  Next

    
 

 

 

Code:

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.

 

 

 

©Drkb::03693

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