home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / ega.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  834 b   |  35 lines
  1.  
  2. PROGRAM ega; (* Beispiel für EGA-Palette *)
  3.  
  4. USES    MSGraph;
  5. VAR     a : LongInt;
  6.     m : Integer;
  7.  
  8. BEGIN (* Hauptprogramm *)
  9.       m := _SetVideoMode( _EResColor );
  10.       _SetColor( 4 );
  11.       _Rectangle( _GFillInterior, 50, 50, 200, 200 );
  12.  
  13.       _SetTextPosition( 1, 1 );
  14.       WriteLn( 'Normale Palette' );
  15.       WriteLn( 'Eingabe drücken!' );
  16.       ReadLn;
  17.  
  18.       a := _RemapPalette( 4, _Blue );
  19.  
  20.       _SetTextPosition( 1, 1 );
  21.       WriteLn( 'Geänderte Palette' );
  22.       WriteLn( 'Eingabe drücken!' );
  23.       ReadLn;
  24.  
  25.       a := _RemapPalette( 4, _Red );
  26.  
  27.       _SetTextPosition( 1, 1 );
  28.       WriteLn( 'Wiederhergestellte Palette' );
  29.       WriteLn( 'Bildschirm löschen mit der Eingabetaste!' );
  30.       ReadLn;
  31.  
  32.       _ClearScreen( _GClearScreen );
  33.       m := _SetVideoMode( _DefaultMode );
  34. END.
  35.