home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / saa / demos / dbxdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  3.8 KB  |  110 lines
  1. (* ----------------------------------------------------- *)
  2. (*                       DBXDEMO.PAS                     *)
  3. (*         Demonstriert die Anwendung von DialogBox      *)
  4. (*             (c) 1991 by R.Reichert & toolbox          *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM DialogBoxDemo;
  7.  
  8. USES Stuff,    MouKey,   WinVSM,
  9.      DBxItems, DBXSched, DiaBoxes;
  10.  
  11. VAR
  12.   VSM    : WExtVSMPtr;
  13.   Buts   : RadioButtonsPtr;
  14.   Answer : BYTE;
  15.   Dia    : DialogBoxPtr;
  16.   Ev     : EventObj;
  17.  
  18. BEGIN
  19.   VSM := New (WextVSMPtr,
  20.               Init (New (ScreenObjPtr, Init (0, 0))));
  21.   VSM^.ClrScr;
  22.   Dia := New (EndButDialogBoxPtr, Init (5, 5, 70, 20,
  23.                                         ' EndButDialogbox ',
  24.                                         3,
  25.                                         VSM));
  26.   Buts:= New (WinRadioButtonsPtr,
  27.               Init (8, 9, 30, 15, ' RadioButtons ', VSM));
  28.   IF (Dia=NIL) OR (Buts=NIL) THEN BEGIN
  29.     Writeln ('*** Fehler: Objekt (DialogBox) konnte nicht',
  30.              ' initialisiert werden.');
  31.     Writeln;
  32.     Writeln ('Programm abgebrochen.');
  33.     Halt (1);
  34.   END;
  35.   Buts^.Add (New (RadioButPtr,
  36.                   Init (10, 10, 'Button Number #1',
  37.                         Alt1, VSM)));
  38.   Buts^.Add (New (RadioButPtr,
  39.                   Init (10, 11, 'Button Number #2',
  40.                         Alt2, VSM)));
  41.   Buts^.Add (New (RadioButPtr,
  42.                   Init (10, 12, 'Button Number #3',
  43.                         Alt3, VSM)));
  44.   Buts^.Add (New (RadioButPtr,
  45.                   Init (10, 13, 'Button Number #4',
  46.                         Alt4, VSM)));
  47.   Buts^.Add (New (RadioButPtr,
  48.                   Init (10, 14, 'Button Number #5',
  49.                         Alt5, VSM)));
  50.   Dia^.Add (Buts);
  51.   Dia^.Add (New (InputFieldPtr,
  52.                  Init (New (StringFieldPtr,
  53.                             Init (51, 10,
  54.                                   10, 100,
  55.                                   '·',
  56.                                   'Eingabefeld',
  57.                                   50, 9,
  58.                                   '#Eingabe: ',
  59.                                   AltE, VSM)))));
  60.   Dia^.Add (New (PushButtonPtr,
  61.                  Init (New (PushButPtr,
  62.                             Init (50, 12,
  63.                                   '#PushButton 1',
  64.                                   AltP, FALSE, VSM)))));
  65.   Dia^.Add (New (PushButtonPtr,
  66.                  Init (New (PushButPtr,
  67.                             Init (50, 14,
  68.                                   'P#ushButton 2',
  69.                                   AltU, FALSE, VSM)))));
  70.   Mouse^.Show;
  71.   EvHand^.SetTakeOut (TRUE);
  72.   Answer := 0;
  73.   REPEAT
  74.     Dia^.Run;
  75.     Answer := Dia^.GetReturnCode;
  76.     IF Answer=SchHelp THEN BEGIN
  77.       VSM^.Sound (1000);  VSM^.Delay (1000);  VSM^.NoSound;
  78.     END;
  79.   UNTIL (Answer=SchFinish) OR
  80.         (Answer=SchCancel);
  81.   Dia^.Close (Answer);
  82.   EvHand^.SetTakeOut (FALSE);
  83.   Mouse^.Hide;
  84.   VSM^.GotoXY (1, 1);
  85.   Writeln;
  86.   IF Answer=SchFinish THEN BEGIN
  87.     Writeln ('Die Resultate sind: ');
  88.     Writeln ('■ RadioButtons: ',
  89.              RadioButtonsPtr (Dia^.GetItem (1))^.GetResult);
  90.     Writeln ('■ InputField: ',
  91.              InputFieldptr (Dia^.GetItem (2))^.
  92.                GetFPtr^.Result);
  93.     Writeln ('■ PushButton 1: ',
  94.              PushButtonPtr (Dia^.GetItem (3))^.GetResult);
  95.     Writeln ('■ PushButton 2: ',
  96.              PushButtonPtr (Dia^.GetItem (4))^.GetResult);
  97.   END ELSE BEGIN
  98.     Writeln ('Da "Cancel" gewählt wurde, sind die Werte die',
  99.              ' gleichen wie zuvor.');
  100.   END;
  101.   Writeln;
  102.   Writeln (' Enter zum beenden ');
  103.   Readln;
  104.   Dispose (Dia, Done);
  105.   Dispose (VSM, Done);
  106. END.
  107. (* ----------------------------------------------------- *)
  108. (*                    Ende von DBXDEMO.PAS               *)
  109. (* ----------------------------------------------------- *)
  110.