home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / cgatr / setvpage.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-08  |  1012 b   |  35 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    SETVPAGE.PAS                        *)
  3. (*  Das Beispiel-Programm aus dem Turbo-Pascal-Handbuch   *)
  4. (*  für SetXXXPage, jetzt auch für CGA,                   *)
  5. (*  aber immer noch kompatibel zu anderen!                *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM SetVPage;
  8.  
  9. USES Graph, SetPage;
  10.  
  11. VAR
  12.   Gd, Gm : INTEGER;
  13.  
  14. BEGIN
  15.   Gd := Detect;
  16.   InitGraph(Gd, Gm, '');
  17.   IF GraphResult <> grOk THEN Halt(1);
  18.   IF (Gd = HercMono) OR (Gd = EGA) OR
  19.      (Gd = EGA64)    OR (Gd = VGA) OR
  20.      (Gd = CGA) THEN BEGIN
  21.     SetVisualPage(0);
  22.     SetActivePage(1);
  23.     Rectangle(10, 20, 30, 40);
  24.     IF (Gd = CGA) THEN
  25.       OutText('Paging supported!');
  26.     SetVisualPage(1);
  27.   END ELSE
  28.     OutText('No paging supported.');
  29.   ReadLn;
  30.   CloseGraph;
  31. END.
  32. (* ------------------------------------------------------ *)
  33. (*                 Ende von SETVPAGE.PAS                  *)
  34.  
  35.