Cores - novas constantes para novas cores

Top  Previous  Next

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 2002by 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.