home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TCUNIT.ZIP / WINDGLOB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-02  |  831 b   |  35 lines
  1. (*
  2.  *    PROGRAM : Globals for WindTest
  3.  *    SYSTEM  : Turbo Pascal 4.0, 5.0, and 5.5
  4.  *    AUTHOR  : (C) 1988, 1989 by Tom Swan
  5.  *)
  6.  
  7. UNIT WindGlob;
  8.  
  9. INTERFACE
  10.  
  11. USES  Crt;
  12.  
  13. CONST
  14.  
  15.    CBase : String[7] = ('@CBASE@');   { Mark beginning of TC area }
  16.  
  17. {----- Start of default typed-constants area }
  18.  
  19.    WBForeColor : Word = ( Blue );          { Border foreground color }
  20.    WBBackColor : Word = ( LightGray );     { Border background color }
  21.    WTForeColor : Word = ( Yellow );        { Text foreground color }
  22.    WTBackColor : Word = ( Blue );          { Text background color }
  23.    WTitle : String[40] = ' Test Window ';  { Window title }
  24.  
  25. {----- End of default typed-constants area }
  26.  
  27.    EBase : Char = ( '!' );             { Mark end of TC area }
  28.  
  29.  
  30. IMPLEMENTATION
  31.  
  32. { No code in this unit }
  33.  
  34. END.
  35.