[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]