home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / cga.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  1017 b   |  40 lines
  1.  
  2. PROGRAM cga; (* Zur Demonstration des CGA-Modus *)
  3.  
  4. USES    MSGraph;
  5.  
  6. CONST   bkcolor : ARRAY [0..7] OF LongInt =
  7.             (_Black, _Blue, _Green, _Cyan, _Red,
  8.              _Magenta, _Brown, _White );
  9.  
  10.     bkcolor_name : ARRAY [0..7] OF String =
  11.             ('BLACK  ', 'BLUE   ','GREEN  ',
  12.              'CYAN   ', 'RED    ','MAGENTA',
  13.              'BROWN  ', 'WHITE  ');
  14.  
  15. VAR             a, i, j, k : Integer;
  16.  
  17. BEGIN (* Hauptprogramm *)
  18.     a := _SetVideoMode( _MRes4Color );
  19.     FOR i := 0 TO 3 DO
  20.     BEGIN
  21.      a := _SelectPalette( i );
  22.      FOR k := 0 TO 7 DO
  23.      BEGIN
  24.          _SetBkColor( bkcolor[ k ] );
  25.          FOR j := 0 TO 3 DO
  26.          BEGIN
  27.            _SetTextPosition( 1, 1 );
  28.            WriteLn( 'Hintergrundfarbe: ', bkcolor_name[ k ] );
  29.            WriteLn( '         Palette: ', i );
  30.            WriteLn( '            Zahl: ', j );
  31.            _SetColor( j );
  32.            _Rectangle( _GFillInterior, 160, 100, 320, 200 );
  33.            ReadLn; (* Warten bis Eingabe gedrückt wird *)
  34.          END;
  35.      END;
  36.     END;
  37.     a := _SetVideoMode( _DefaultMode );
  38. END.
  39.  
  40.