home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / vsms / evsmdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  1.9 KB  |  59 lines
  1. (* ----------------------------------------------------- *)
  2. (*                     EVSMDEMO.PAS                      *)
  3. (*                                                       *)
  4. (* Das Programm demonstriert ein paar Fähigkeiten des Ob-*)
  5. (* jekts ExtVSManager. Hinweis: Es lohnt sich, der Ge-   *)
  6. (* schwindigkeit zu Liebe, sämtliche benötigte Units nach*)
  7. (* beenden der Testphase mit folgenden Compilerdirektiven*)
  8. (* zu compilieren : {$R-,S-,I-,D-,L-,V-}.                *)
  9. (*                                                       *)
  10. (*          (c) 1991 by R.Reichert & toolbox             *)
  11. (* ----------------------------------------------------- *)
  12. PROGRAM ExtendedVirtualScreenManagerDemo;
  13.  
  14. USES Crt, VSObj, ExtVSM;
  15.  
  16. VAR
  17.   VSM : ExtVSMPtr;
  18.   i, j: BYTE;
  19.  
  20. BEGIN
  21.   VSM := New (ExtVSMPtr,
  22.               Init (New (ScreenObjPtr, Init (80, 25))));
  23.   IF VSM<>NIL THEN
  24.     WITH VSM^ DO BEGIN
  25.       Clear;
  26.       WriteStr (20, 10, 127,
  27.                 'Bitte einen Moment Geduld !');
  28.       FOR i := 1 TO 26 DO BEGIN
  29.         AddVS (New (VirtualScreenPtr, Init (80, 25)));
  30.         IF GetReturnCode=VSOk THEN BEGIN
  31.           SelectVS (i);
  32.           Fill (Chr (64+i), $70);
  33.         END;
  34.       END;
  35.       FOR i := 1 TO 26 DO BEGIN
  36.         SelectVS (i);
  37.         IF GetReturnCode=VSOk THEN BEGIN
  38.           CopyToScr;
  39.           Delay (300);
  40.         END;
  41.       END;
  42.       SelectVS (Screen);
  43.       WriteStr (20, 10, 127,
  44.         '          Enter zum Beenden         ');
  45.       Readln;
  46.       Clear;
  47.       Done;
  48.     END
  49.   ELSE BEGIN
  50.     Writeln ('Fehler: Nicht genügend Speicher für ',
  51.              'virtuellen Bildschirm!');
  52.     Writeln;
  53.     Writeln ('Programm abgebrochen.');
  54.     Halt (1);
  55.   END;
  56. END.
  57. (* ----------------------------------------------------- *)
  58. (*                  Ende von EVSMDEMO.PAS                *)
  59. (* ----------------------------------------------------- *)