home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / saa / demos / schedemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  3.2 KB  |  99 lines
  1. (* ----------------------------------------------------- *)
  2. (*                    SCHEDEMO.PAS                       *)
  3. (*         Demonstiert die verschiedenen Scheduler       *)
  4. (*           (c) 1991 by R.Reichert & toolbox            *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM DBxSchedulersDemo;
  7.  
  8. USES Stuff,    MouKey,   WinVSM,
  9.      DBxItems, SAASched, DBxSched;
  10.  
  11. VAR
  12.   VSM   : WExtVSMPtr;
  13.   Ev    : EventObj;
  14.   Sched : SAASchedulerPtr;
  15.   Answer: BYTE;
  16.   Quit  : BOOLEAN;
  17.  
  18. BEGIN
  19.   VSM   := New (WExtVSMPtr,
  20.                 Init (New (ScreenObjPtr,
  21.                            Init (0, 0))));
  22.   Sched := New (WinInputFieldPtr,
  23.                 Init (New (StringFieldPtr,
  24.                            Init (20, 10,
  25.                                  10, 200,
  26.                                  'ยท',
  27.                                  'Nichts',
  28.                                  10, 10,
  29.                                  '#Titel: ',
  30.                                  AltT,
  31.                                  VSM)),
  32.                                  VSM));
  33.  
  34.  
  35. {  Sched := New (WinRadioButtonsPtr,
  36.               Init (8, 9, 30, 15, ' RadioButtons ', VSM));
  37.  
  38.   Sched := New (EndButtonPtr,
  39.                 Init (SchFinish, New (EndButPtr,
  40.                                       Init (10, 2,
  41.                                             '#PushButton 1',
  42.                                             Enter,
  43.                                             VSM))));
  44.  
  45.   Sched := New (PushButtonPtr,
  46.                 Init (New (PushButPtr,
  47.                            Init (10, 2,
  48.                                  '#PushButton 1',
  49.                                  FALSE,
  50.                                  VSM))));
  51. }
  52.   VSM^.ClrScr;
  53.  
  54.     { nur, falls vom Typ (Win)RadioButtonsPtr: }
  55. {  WITH RadioButtonsPtr (Sched)^ DO BEGIN
  56.     Add (New (RadioButPtr,
  57.               Init (10, 10, 'Button Number #1',
  58.                     Alt1, VSM)));
  59.     Add (New (RadioButPtr,
  60.               Init (10, 11, 'Button Number #2',
  61.                     Alt2, VSM)));
  62.     Add (New (RadioButPtr,
  63.               Init (10, 12, 'Button Number #3',
  64.                     Alt3, VSM)));
  65.     Add (New (RadioButPtr,
  66.               Init (10, 13, 'Button Number #4',
  67.                     Alt4, VSM)));
  68.     Add (New (RadioButPtr,
  69.               Init (10, 14, 'Button Number #5',
  70.                     Alt5, VSM)));
  71.   END;
  72. }  Sched^.Display;
  73.   Sched^.DisplayHotKeys;
  74.   Sched^.SetActive;
  75.   Mouse^.Show;
  76.   EvHand^.SetTakeOut (TRUE);
  77.   Answer := 0;  Quit := FALSE;
  78.   REPEAT
  79.     Answer := SchOk;
  80.     EvHand^.WaitForEvent (EvAll, Ev);
  81.     IF (Ev.EventType=EvKeyPressed) AND
  82.        (Ev.Key=27) THEN BEGIN
  83.       Quit := TRUE;  Answer := 0;
  84.     END ELSE BEGIN
  85.       Sched^.CheckEvent (Ev);
  86.       Answer := Sched^.GetReturnCode;
  87.       IF (Answer=SchFinish) OR
  88.          (Answer=SchCancel) THEN
  89.         Quit := TRUE;
  90.     END;
  91.   UNTIL (Quit);
  92.   EvHand^.SetTakeOut (FALSE);
  93.   Dispose (Sched, Done);
  94.   Dispose (VSM, Done);
  95. END.
  96. (* ----------------------------------------------------- *)
  97. (*                 Ende von SCHEDEMO.PAS                 *)
  98. (* ----------------------------------------------------- *)
  99.