[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]


UNIT HTcolors;

{ Complete set of all color attributes contants by their own names.
  Part of the Heartware Toolkit v2.00 (HTcolors.PAS) for Turbo Pascal.
  Author: Jose Almeida. P.O.Box 4185. 1504 Lisboa Codex. Portugal.
          I can also be reached at RIME network, site ->TIB or #5314.
  Feel completely free to use this source code in any way you want, and, if
  you do, please don't forget to mention my name, and, give me and Swag the
  proper credits. }

INTERFACE

const

  { black background }

  BlackOnBlack            : byte = $00;
  BlueOnBlack             : byte = $01;
  GreenOnBlack            : byte = $02;
  CyanOnBlack             : byte = $03;
  RedOnBlack              : byte = $04;
  MagentaOnBlack          : byte = $05;
  BrownOnBlack            : byte = $06;
  LtGrayOnBlack           : byte = $07;
  DkGrayOnBlack           : byte = $08;
  LtBlueOnBlack           : byte = $09;
  LtGreenOnBlack          : byte = $0A;
  LtCyanOnBlack           : byte = $0B;
  LtRedOnBlack            : byte = $0C;
  LtMagentaOnBlack        : byte = $0D;
  YellowOnBlack           : byte = $0E;
  WhiteOnBlack            : byte = $0F;

  { blue background }

  BlackOnBlue             : byte = $10;
  BlueOnBlue              : byte = $11;
  GreenOnBlue             : byte = $12;
  CyanOnBlue              : byte = $13;
  RedOnBlue               : byte = $14;
  MagentaOnBlue           : byte = $15;
  BrownOnBlue             : byte = $16;
  LtGrayOnBlue            : byte = $17;
  DkGrayOnBlue            : byte = $18;
  LtBlueOnBlue            : byte = $19;
  LtGreenOnBlue           : byte = $1A;
  LtCyanOnBlue            : byte = $1B;
  LtRedOnBlue             : byte = $1C;
  LtMagentaOnBlue         : byte = $1D;
  YellowOnBlue            : byte = $1E;
  WhiteOnBlue             : byte = $1F;

  { green background }

  BlackOnGreen            : byte = $20;
  BlueOnGreen             : byte = $21;
  GreenOnGreen            : byte = $22;
  CyanOnGreen             : byte = $23;
  RedOnGreen              : byte = $24;
  MagentaOnGreen          : byte = $25;
  BrownOnGreen            : byte = $26;
  LtGrayOnGreen           : byte = $27;
  DkGrayOnGreen           : byte = $28;
  LtBlueOnGreen           : byte = $29;
  LtGreenOnGreen          : byte = $2A;
  LtCyanOnGreen           : byte = $2B;
  LtRedOnGreen            : byte = $2C;
  LtMagentaOnGreen        : byte = $2D;
  YellowOnGreen           : byte = $2E;
  WhiteOnGreen            : byte = $2F;

  { cyan background }

  BlackOnCyan             : byte = $30;
  BlueOnCyan              : byte = $31;
  GreenOnCyan             : byte = $32;
  CyanOnCyan              : byte = $33;
  RedOnCyan               : byte = $34;
  MagentaOnCyan           : byte = $35;
  BrownOnCyan             : byte = $36;
  LtGrayOnCyan            : byte = $37;
  DkGrayOnCyan            : byte = $38;
  LtBlueOnCyan            : byte = $39;
  LtGreenOnCyan           : byte = $3A;
  LtCyanOnCyan            : byte = $3B;
  LtRedOnCyan             : byte = $3C;
  LtMagentaOnCyan         : byte = $3D;
  YellowOnCyan            : byte = $3E;
  WhiteOnCyan             : byte = $3F;

  { red background }

  BlackOnRed              : byte = $40;
  BlueOnRed               : byte = $41;
  GreenOnRed              : byte = $42;
  CyanOnRed               : byte = $43;
  RedOnRed                : byte = $44;
  MagentaOnRed            : byte = $45;
  BrownOnRed              : byte = $46;
  LtGrayOnRed             : byte = $47;
  DkGrayOnRed             : byte = $48;
  LtBlueOnRed             : byte = $49;
  LtGreenOnRed            : byte = $4A;
  LtCyanOnRed             : byte = $4B;
  LtRedOnRed              : byte = $4C;
  LtMagentaOnRed          : byte = $4D;
  YellowOnRed             : byte = $4E;
  WhiteOnRed              : byte = $4F;

  { magenta background }

  BlackOnMagenta          : byte = $50;
  BlueOnMagenta           : byte = $51;
  GreenOnMagenta          : byte = $52;
  CyanOnMagenta           : byte = $53;
  RedOnMagenta            : byte = $54;
  MagentaOnMagenta        : byte = $55;
  BrownOnMagenta          : byte = $56;
  LtGrayOnMagenta         : byte = $57;
  DkGrayOnMagenta         : byte = $58;
  LtBlueOnMagenta         : byte = $59;
  LtGreenOnMagenta        : byte = $5A;
  LtCyanOnMagenta         : byte = $5B;
  LtRedOnMagenta          : byte = $5C;
  LtMagentaOnMagenta      : byte = $5D;
  YellowOnMagenta         : byte = $5E;
  WhiteOnMagenta          : byte = $5F;

  { brown background }

  BlackOnBrown            : byte = $60;
  BlueOnBrown             : byte = $61;
  GreenOnBrown            : byte = $62;
  CyanOnBrown             : byte = $63;
  RedOnBrown              : byte = $64;
  MagentaOnBrown          : byte = $65;
  BrownOnBrown            : byte = $66;
  LtGrayOnBrown           : byte = $67;
  DkGrayOnBrown           : byte = $68;
  LtBlueOnBrown           : byte = $69;
  LtGreenOnBrown          : byte = $6A;
  LtCyanOnBrown           : byte = $6B;
  LtRedOnBrown            : byte = $6C;
  LtMagentaOnBrown        : byte = $6D;
  YellowOnBrown           : byte = $6E;
  WhiteOnBrown            : byte = $6F;

  { light gray background }

  BlackOnLtGray           : byte = $70;
  BlueOnLtGray            : byte = $71;
  GreenOnLtGray           : byte = $72;
  CyanOnLtGray            : byte = $73;
  RedOnLtGray             : byte = $74;
  MagentaOnLtGray         : byte = $75;
  BrownOnLtGray           : byte = $76;
  LtGrayOnLtGray          : byte = $77;
  DkGrayOnLtGray          : byte = $78;
  LtBlueOnLtGray          : byte = $79;
  LtGreenOnLtGray         : byte = $7A;
  LtCyanOnLtGray          : byte = $7B;
  LtRedOnLtGray           : byte = $7C;
  LtMagentaOnLtGray       : byte = $7D;
  YellowOnLtGray          : byte = $7E;
  WhiteOnLtGray           : byte = $7F;

  {úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú}

  { black background blinking }

  BlackOnBlackBlink       : byte = $80;
  BlueOnBlackBlink        : byte = $81;
  GreenOnBlackBlink       : byte = $82;
  CyanOnBlackBlink        : byte = $83;
  RedOnBlackBlink         : byte = $84;
  MagentaOnBlackBlink     : byte = $85;
  BrownOnBlackBlink       : byte = $86;
  LtGrayOnBlackBlink      : byte = $87;
  DkGrayOnBlackBlink      : byte = $88;
  LtBlueOnBlackBlink      : byte = $89;
  LtGreenOnBlackBlink     : byte = $8A;
  LtCyanOnBlackBlink      : byte = $8B;
  LtRedOnBlackBlink       : byte = $8C;
  LtMagentaOnBlackBlink   : byte = $8D;
  YellowOnBlackBlink      : byte = $8E;
  WhiteOnBlackBlink       : byte = $8F;

  { blue background blinking }

  BlackOnBlueBlink        : byte = $90;
  BlueOnBlueBlink         : byte = $91;
  GreenOnBlueBlink        : byte = $92;
  CyanOnBlueBlink         : byte = $93;
  RedOnBlueBlink          : byte = $94;
  MagentaOnBlueBlink      : byte = $95;
  BrownOnBlueBlink        : byte = $96;
  LtGrayOnBlueBlink       : byte = $97;
  DkGrayOnBlueBlink       : byte = $98;
  LtBlueOnBlueBlink       : byte = $99;
  LtGreenOnBlueBlink      : byte = $9A;
  LtCyanOnBlueBlink       : byte = $9B;
  LtRedOnBlueBlink        : byte = $9C;
  LtMagentaOnBlueBlink    : byte = $9D;
  YellowOnBlueBlink       : byte = $9E;
  WhiteOnBlueBlink        : byte = $9F;

  { green background blinking }

  BlackOnGreenBlink       : byte = $A0;
  BlueOnGreenBlink        : byte = $A1;
  GreenOnGreenBlink       : byte = $A2;
  CyanOnGreenBlink        : byte = $A3;
  RedOnGreenBlink         : byte = $A4;
  MagentaOnGreenBlink     : byte = $A5;
  BrownOnGreenBlink       : byte = $A6;
  LtGrayOnGreenBlink      : byte = $A7;
  DkGrayOnGreenBlink      : byte = $A8;
  LtBlueOnGreenBlink      : byte = $A9;
  LtGreenOnGreenBlink     : byte = $AA;
  LtCyanOnGreenBlink      : byte = $AB;
  LtRedOnGreenBlink       : byte = $AC;
  LtMagentaOnGreenBlink   : byte = $AD;
  YellowOnGreenBlink      : byte = $AE;
  WhiteOnGreenBlink       : byte = $AF;

  { cyan background blinking }

  BlackOnCyanBlink        : byte = $B0;
  BlueOnCyanBlink         : byte = $B1;
  GreenOnCyanBlink        : byte = $B2;
  CyanOnCyanBlink         : byte = $B3;
  RedOnCyanBlink          : byte = $B4;
  MagentaOnCyanBlink      : byte = $B5;
  BrownOnCyanBlink        : byte = $B6;
  LtGrayOnCyanBlink       : byte = $B7;
  DkGrayOnCyanBlink       : byte = $B8;
  LtBlueOnCyanBlink       : byte = $B9;
  LtGreenOnCyanBlink      : byte = $BA;
  LtCyanOnCyanBlink       : byte = $BB;
  LtRedOnCyanBlink        : byte = $BC;
  LtMagentaOnCyanBlink    : byte = $BD;
  YellowOnCyanBlink       : byte = $BE;
  WhiteOnCyanBlink        : byte = $BF;

  { red background blinking }

  BlackOnRedBlink         : byte = $C0;
  BlueOnRedBlink          : byte = $C1;
  GreenOnRedBlink         : byte = $C2;
  CyanOnRedBlink          : byte = $C3;
  RedOnRedBlink           : byte = $C4;
  MagentaOnRedBlink       : byte = $C5;
  BrownOnRedBlink         : byte = $C6;
  LtGrayOnRedBlink        : byte = $C7;
  DkGrayOnRedBlink        : byte = $C8;
  LtBlueOnRedBlink        : byte = $C9;
  LtGreenOnRedBlink       : byte = $CA;
  LtCyanOnRedBlink        : byte = $CB;
  LtRedOnRedBlink         : byte = $CC;
  LtMagentaOnRedBlink     : byte = $CD;
  YellowOnRedBlink        : byte = $CE;
  WhiteOnRedBlink         : byte = $CF;

  { magenta background blinking }

  BlackOnMagentaBlink     : byte = $D0;
  BlueOnMagentaBlink      : byte = $D1;
  GreenOnMagentaBlink     : byte = $D2;
  CyanOnMagentaBlink      : byte = $D3;
  RedOnMagentaBlink       : byte = $D4;
  MagentaOnMagentaBlink   : byte = $D5;
  BrownOnMagentaBlink     : byte = $D6;
  LtGrayOnMagentaBlink    : byte = $D7;
  DkGrayOnMagentaBlink    : byte = $D8;
  LtBlueOnMagentaBlink    : byte = $D9;
  LtGreenOnMagentaBlink   : byte = $DA;
  LtCyanOnMagentaBlink    : byte = $DB;
  LtRedOnMagentaBlink     : byte = $DC;
  LtMagentaOnMagentaBlink : byte = $DD;
  YellowOnMagentaBlink    : byte = $DE;
  WhiteOnMagentaBlink     : byte = $DF;

  { brown background blinking }

  BlackOnBrownBlink       : byte = $E0;
  BlueOnBrownBlink        : byte = $E1;
  GreenOnBrownBlink       : byte = $E2;
  CyanOnBrownBlink        : byte = $E3;
  RedOnBrownBlink         : byte = $E4;
  MagentaOnBrownBlink     : byte = $E5;
  BrownOnBrownBlink       : byte = $E6;
  LtGrayOnBrownBlink      : byte = $E7;
  DkGrayOnBrownBlink      : byte = $E8;
  LtBlueOnBrownBlink      : byte = $E9;
  LtGreenOnBrownBlink     : byte = $EA;
  LtCyanOnBrownBlink      : byte = $EB;
  LtRedOnBrownBlink       : byte = $EC;
  LtMagentaOnBrownBlink   : byte = $ED;
  YellowOnBrownBlink      : byte = $EE;
  WhiteOnBrownBlink       : byte = $EF;

  { light gray background blinking }

  BlackOnLtGrayBlink      : byte = $F0;
  BlueOnLtGrayBlink       : byte = $F1;
  GreenOnLtGrayBlink      : byte = $F2;
  CyanOnLtGrayBlink       : byte = $F3;
  RedOnLtGrayBlink        : byte = $F4;
  MagentaOnLtGrayBlink    : byte = $F5;
  BrownOnLtGrayBlink      : byte = $F6;
  LtGrayOnLtGrayBlink     : byte = $F7;
  DkGrayOnLtGrayBlink     : byte = $F8;
  LtBlueOnLtGrayBlink     : byte = $F9;
  LtGreenOnLtGrayBlink    : byte = $FA;
  LtCyanOnLtGrayBlink     : byte = $FB;
  LtRedOnLtGrayBlink      : byte = $FC;
  LtMagentaOnLtGrayBlink  : byte = $FD;
  YellowOnLtGrayBlink     : byte = $FE;
  WhiteOnLtGrayBlink      : byte = $FF;



IMPLEMENTATION



END. { HTcolors.PAS }



[Back to COLOR SWAG index]  [Back to Main SWAG index]  [Original]