home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / vsms / crtvar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  2.2 KB  |  53 lines
  1. (* ----------------------------------------------------- *)
  2. (*                      CRTVAR.PAS                       *)
  3. (*                                                       *)
  4. (* Stellt die Variable "Crt" (vom Typ VSMCrtPtr) zur Ver-*)
  5. (* fügung sowie die Farbkonstanten der Unit Crt von      *)
  6. (* Turbo Pascal. Aber ACHTUNG: Diese Variable wird NICHT *)
  7. (* angelegt, damit ein Programm sie auch auf einen Erben *)
  8. (* "richten" kann. Auch muss sie "entsorgt", sprich frei-*)
  9. (* gegeben werden.                                       *)
  10. (*                                                       *)
  11. (*          (c) 1991 by R.Reichert & toolbox             *)
  12. (* ----------------------------------------------------- *)
  13. UNIT CRTVar;
  14.  
  15. INTERFACE
  16.  
  17. USES ExtVSM2;
  18.  
  19. TYPE
  20.   VSMCrtPtr    = ExtVSM2.VSMCrtPtr;
  21.   VSMCrt       = ExtVSM2.VSMCrt;
  22.  
  23. CONST
  24.   On           = TRUE;
  25.   Off          = FALSE;               { Farbkonstanten:   }
  26.   Black        = 0;                   { Schwarz           }
  27.   Blue         = 1;                   { Blau              }
  28.   Green        = 2;                   { Grün              }
  29.   Cyan         = 3;                   { Türkis            }
  30.   Red          = 4;                   { Rot               }
  31.   Magenta      = 5;                   { Fuchsinrot        }
  32.   Brown        = 6;                   { Braun             }
  33.   LightGray    = 7;                   { Hellgrau          }
  34.   DarkGray     = 8;                   { Dunkelgrau        }
  35.   LightBlue    = 9;                   { Hellblau          }
  36.   LightGreen   = 10;                  { Hellgrün          }
  37.   LightCyan    = 11;                  { helles Türkis     }
  38.   LightRed     = 12;                  { Hellrot           }
  39.   LightMagenta = 13;                  { helles Fuchsinrot }
  40.   Yellow       = 14;                  { Gelb              }
  41.   White        = 15;                  { Weiß              }
  42.   Blink        = 128;                 { Blinkend          }
  43.  
  44. VAR
  45.   Crt : VSMCrtPtr;
  46.  
  47. IMPLEMENTATION
  48.  
  49. END.
  50. (* ----------------------------------------------------- *)
  51. (*                   Ende von CRTVAR.PAS                 *)
  52. (* ----------------------------------------------------- *)
  53.