home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / saa / demos / butdemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  1.8 KB  |  62 lines
  1. (* ----------------------------------------------------- *)
  2. (*                     BUTDEMO.PAS                       *)
  3. (*      Demonstiert die verschiedenen Button-Typen       *)
  4. (*           (c) 1991 by R.Reichert & toolbox            *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM DBxItemsDemo;
  7.  
  8. USES Stuff, MouKey, WinVSM, SAAItemD, DBxItems;
  9.  
  10. VAR
  11.   VSM   : WExtVSMPtr;
  12.   Item  : SAAItemPtr;
  13.   Ev    : EventObj;
  14.   Answer: BYTE;
  15.   Quit  : BOOLEAN;
  16.  
  17. BEGIN
  18.   VSM := New (WExtVSMPtr,
  19.               Init (New (ScreenObjPtr, Init (0, 0))));
  20. {  Item:= New (RadioButPtr,
  21.               Init (20, 10,
  22.                     ' #RadioButton: ',
  23.                     AltR,
  24.                     VSM));
  25.   Item:= New (PushButPtr,
  26.               Init (20, 10,
  27.                     ' #PushButton: ',
  28.                     AltP,
  29.                     FALSE,
  30.                     VSM));
  31. }  Item:= New (EndButPtr,
  32.               Init (20, 10,
  33.                     ' #Ok-Button: ',
  34.                     AltO,
  35.                     Enter,
  36.                     VSM));
  37.   VSM^.ClrScr;
  38.   EvHand^.SetTakeOut (TRUE);
  39.   Mouse^.Show;
  40.   Item^.Display;
  41.   Item^.DisplayHotKey;
  42.   Quit := FALSE;
  43.   REPEAT
  44.     EvHand^.WaitForEvent (EvAll, Ev);
  45.     Item^.CheckEvent (Ev);
  46.     Answer := Item^.GetReturnCode;
  47. (*
  48.     Quit := (Answer=ItActNext) OR        { falls RadioBut }
  49.             (Answer=ItActPrev);
  50.     Quit := (Answer=ItEvAccepted);        { falls PushBut }
  51. *)
  52.     Quit := (Answer=ItFinish);             { falls EndBut }
  53.   UNTIL (Quit);
  54.   EvHand^.SetTakeOut (FALSE);
  55.   Mouse^.Hide;
  56.   Dispose (Item, Done);
  57.   Dispose (VSM, Done);
  58. END.
  59. (* ----------------------------------------------------- *)
  60. (*                  Ende von BUTDEMO.PAS                 *)
  61. (* ----------------------------------------------------- *)
  62.