home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / progjorn / pj_7_1.arc / WINDGLOB.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-15  |  720b  |  33 lines
  1. { WindTest, WindInst typed constants (TC) }
  2.  
  3. UNIT WindGlob;
  4.  
  5. INTERFACE
  6.  
  7. USES  Crt;
  8.  
  9. CONST
  10.  
  11.    CBase : String[7] = '@CBASE@';   { Mark beginning of TC area }
  12.  
  13. {----- Start of default typed-constants area }
  14.  
  15.    WBForeColor : Word = Blue;          { Border foreground color }
  16.    WBBackColor : Word = LightGray;     { Border background color }
  17.    WTForeColor : Word = Yellow;        { Text foreground color }
  18.    WTBackColor : Word = Blue;          { Text background color }
  19.    WTitle : String[40] = ' Test Window ';  { Window title }
  20.  
  21. {----- End of default typed-constants area }
  22.  
  23.    EBase : Char = '!';             { Mark end of TC area }
  24.  
  25.  
  26. IMPLEMENTATION
  27.  
  28. { No code in this unit }
  29.  
  30. END.
  31.  
  32.  
  33.