home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / t_power / colordef.pas < prev    next >
Pascal/Delphi Source File  |  1988-10-09  |  5KB  |  91 lines
  1. Unit Colordef;
  2. {Contributed by W.G. Madison and Associates, Ltd.}
  3.  
  4. Interface
  5.  
  6. const
  7.  
  8.         {Color constants:
  9.          Black     = 0; Blue   = 1; Green   = 2; Cyan   = 3; Red   = 4;
  10.          Magenta   = 5; Brown  = 6; LtGray  = 7;
  11.          DkGray    = 8; LtBlue = 9; LtGreen = A; LtCyan = B; LtRed = C;
  12.          LtMagenta = D; Yellow = E; White   = F
  13.          }
  14.  
  15.         {Screen color constants}
  16.         BlackOnBlack       = $00;          BlueOnBlack        = $01;
  17.         BlackOnBlue        = $10;          BlueOnBlue         = $11;
  18.         BlackOnGreen       = $20;          BlueOnGreen        = $21;
  19.         BlackOnCyan        = $30;          BlueOnCyan         = $31;
  20.         BlackOnRed         = $40;          BlueOnRed          = $41;
  21.         BlackOnMagenta     = $50;          BlueOnMagenta      = $51;
  22.         BlackOnBrown       = $60;          BlueOnBrown        = $61;
  23.         BlackOnLtGray      = $70;          BlueOnLtGray       = $71;
  24.  
  25.         GreenOnBlack       = $02;          CyanOnBlack        = $03;
  26.         GreenOnBlue        = $12;          CyanOnBlue         = $13;
  27.         GreenOnGreen       = $22;          CyanOnGreen        = $23;
  28.         GreenOnCyan        = $32;          CyanOnCyan         = $33;
  29.         GreenOnRed         = $42;          CyanOnRed          = $43;
  30.         GreenOnMagenta     = $52;          CyanOnMagenta      = $53;
  31.         GreenOnBrown       = $62;          CyanOnBrown        = $63;
  32.         GreenOnLtGray      = $72;          CyanOnLtGray       = $73;
  33.  
  34.         RedOnBlack         = $04;          MagentaOnBlack     = $05;
  35.         RedOnBlue          = $14;          MagentaOnBlue      = $15;
  36.         RedOnGreen         = $24;          MagentaOnGreen     = $25;
  37.         RedOnCyan          = $34;          MagentaOnCyan      = $35;
  38.         RedOnRed           = $44;          MagentaOnRed       = $45;
  39.         RedOnMagenta       = $54;          MagentaOnMagenta   = $55;
  40.         RedOnBrown         = $64;          MagentaOnBrown     = $65;
  41.         RedOnLtGray        = $74;          MagentaOnLtGray    = $75;
  42.  
  43.         BrownOnBlack       = $06;          LtGrayOnBlack      = $07;
  44.         BrownOnBlue        = $16;          LtGrayOnBlue       = $17;
  45.         BrownOnGreen       = $26;          LtGrayOnGreen      = $27;
  46.         BrownOnCyan        = $36;          LtGrayOnCyan       = $37;
  47.         BrownOnRed         = $46;          LtGrayOnRed        = $47;
  48.         BrownOnMagenta     = $56;          LtGrayOnMagenta    = $57;
  49.         BrownOnBrown       = $66;          LtGrayOnBrown      = $67;
  50.         BrownOnLtGray      = $76;          LtGrayOnLtGray     = $77;
  51.  
  52.         DkGrayOnBlack      = $08;          LtBlueOnBlack      = $09;
  53.         DkGrayOnBlue       = $18;          LtBlueOnBlue       = $19;
  54.         DkGrayOnGreen      = $28;          LtBlueOnGreen      = $29;
  55.         DkGrayOnCyan       = $38;          LtBlueOnCyan       = $39;
  56.         DkGrayOnRed        = $48;          LtBlueOnRed        = $49;
  57.         DkGrayOnMagenta    = $58;          LtBlueOnMagenta    = $59;
  58.         DkGrayOnBrown      = $68;          LtBlueOnBrown      = $69;
  59.         DkGrayOnLtGray     = $78;          LtBlueOnLtGray     = $79;
  60.  
  61.         LtGreenOnBlack     = $0A;          LtCyanOnBlack      = $0B;
  62.         LtGreenOnBlue      = $1A;          LtCyanOnBlue       = $1B;
  63.         LtGreenOnGreen     = $2A;          LtCyanOnGreen      = $2B;
  64.         LtGreenOnCyan      = $3A;          LtCyanOnCyan       = $3B;
  65.         LtGreenOnRed       = $4A;          LtCyanOnRed        = $4B;
  66.         LtGreenOnMagenta   = $5A;          LtCyanOnMagenta    = $5B;
  67.         LtGreenOnBrown     = $6A;          LtCyanOnBrown      = $6B;
  68.         LtGreenOnLtGray    = $7A;          LtCyanOnLtGray     = $7B;
  69.  
  70.         LtRedOnBlack       = $0C;          LtMagentaOnBlack   = $0D;
  71.         LtRedOnBlue        = $1C;          LtMagentaOnBlue    = $1D;
  72.         LtRedOnGreen       = $2C;          LtMagentaOnGreen   = $2D;
  73.         LtRedOnCyan        = $3C;          LtMagentaOnCyan    = $3D;
  74.         LtRedOnRed         = $4C;          LtMagentaOnRed     = $4D;
  75.         LtRedOnMagenta     = $5C;          LtMagentaOnMagenta = $5D;
  76.         LtRedOnBrown       = $6C;          LtMagentaOnBrown   = $6D;
  77.         LtRedOnLtGray      = $7C;          LtMagentaOnLtGray  = $7D;
  78.  
  79.         YellowOnBlack      = $0E;          WhiteOnBlack       = $0F;
  80.         YellowOnBlue       = $1E;          WhiteOnBlue        = $1F;
  81.         YellowOnGreen      = $2E;          WhiteOnGreen       = $2F;
  82.         YellowOnCyan       = $3E;          WhiteOnCyan        = $3F;
  83.         YellowOnRed        = $4E;          WhiteOnRed         = $4F;
  84.         YellowOnMagenta    = $5E;          WhiteOnMagenta     = $5F;
  85.         YellowOnBrown      = $6E;          WhiteOnBrown       = $6F;
  86.         YellowOnLtGray     = $7E;          WhiteOnLtGray      = $7F;
  87.  
  88. Implementation
  89.  
  90. end.
  91.