home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9303 / pastrick / testssav.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-02  |  1.5 KB  |  62 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TESTSSAV.PAS                       *)
  3. (*            Bildschirmschoner für Turbo Vision          *)
  4. (*         (c) 1993 Andres Cvitkovich & DMV-Verlag        *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM TestSsav;
  7.  
  8. USES Objects, Drivers, Views, Menus, App, AppS;
  9.  
  10. CONST
  11.   cm1min = 1000;
  12.   cm5sec = 1001;
  13.  
  14. TYPE
  15.   tSApp = OBJECT (tApplicationS)
  16.     PROCEDURE InitStatusLine;                   VIRTUAL;
  17.     PROCEDURE HandleEvent(VAR Event : tEvent);  VIRTUAL;
  18.   END;
  19.  
  20.   PROCEDURE tSApp.InitStatusLine;
  21.   VAR
  22.     R : tRect;
  23.   BEGIN
  24.     GetExtent(R);
  25.     R.A.Y := R.B.Y - 1;
  26.     StatusLine := New(pStatusLine, Init(R,
  27.       NewStatusDef(0, $FFFF,
  28.         NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
  29.         NewStatusKey('~F4~ 1 Minute Time-Out', kbF4, cm1min,
  30.         NewStatusKey('~F5~ 5 Sekunden Time-Out',kbF5,cm5sec,
  31.       NIL))),
  32.     NIL)));
  33.   END;
  34.  
  35.   PROCEDURE tSApp.HandleEvent(VAR Event : tEvent);
  36.   BEGIN
  37.     tApplicationS.HandleEvent(Event);
  38.     CASE Event.What OF
  39.       evCommand : BEGIN
  40.         CASE Event.Command OF
  41.           cm1min: SetTimeOut(60);
  42.           cm5sec: SetTimeOut(5);
  43.         ELSE
  44.           Exit;
  45.         END;
  46.         ClearEvent(Event);
  47.       END;
  48.     END;
  49.   END;
  50.  
  51. VAR
  52.   SApp : tSApp;
  53.  
  54. BEGIN
  55.   SApp.Init (60);
  56.   SApp.Run;
  57.   SApp.Done;
  58. END.
  59. (* ------------------------------------------------------ *)
  60. (*                Ende von TESTSSAV.PAS                   *)
  61.  
  62.