home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / farbtext.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  893 b   |  41 lines
  1.  
  2. PROGRAM farbtext; (* Darstellung von Text in Farbe *)
  3.  
  4. USES  Crt, MSGraph;
  5.  
  6. VAR   message1, s, t : String;
  7.       blink, fgd, bgd : Integer;
  8.       a : Integer;
  9.  
  10. BEGIN (* Hauptprogramm *)
  11.  
  12.    _ClearScreen( _GClearScreen );
  13.    _OutText( 'Farbtext-Attribute:' );
  14.    FOR blink := 0 TO 3 DO
  15.       FOR bgd := 0 TO 6 DO
  16.       BEGIN
  17.      _SetBkColor( bgd );
  18.      _SetTextPosition( bgd + (blink * 9) + 3, 1 );
  19.      _SetTextColor( 7 );
  20.      Str( bgd, s );
  21.      message1 := 'Hgd: ';
  22.      _OutText( message1 );
  23.      _OutText( s );
  24.      s := s + ' ';
  25.      message1 := '  Vgd: ';
  26.      _OutText( message1 );
  27.      FOR fgd := 0 TO 15 DO
  28.          BEGIN
  29.          _SetTextColor( fgd + (blink * 16) );
  30.          a := fgd + (blink * 16);
  31.          Str( a, s );
  32.          s := s + '  ';
  33.          _OutText( s );
  34.          End;
  35.       END; (* FOR-Schleifen *)
  36.    REPEAT UNTIL KeyPressed;
  37.       a := _SetVideoMode( _DefaultMode );
  38.  
  39. End.
  40.  
  41.