home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / saa / demos / sbdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  1.9 KB  |  70 lines
  1. (* ----------------------------------------------------- *)
  2. (*                       SBDEMO.PAS                      *)
  3. (*        Demonstriert die Anwendung von SaveBox         *)
  4. (*            (c) 1991 by R.Reichert & toolbox           *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM SaveBoxDemo;
  7.  
  8. USES MouKey, WinVSM, DiaBoxes;
  9.  
  10. VAR
  11.   VSM    : WExtVSMPtr;
  12.   SB     : SaveBoxPtr;
  13.   Answer : BYTE;
  14.   Quit   : BOOLEAN;
  15.   t      : TEXT;
  16.   i      : BYTE;
  17.  
  18. BEGIN
  19.   VSM := New (WExtVSMPtr,
  20.               Init (New (ScreenObjPtr, Init (0, 0))));
  21.   VSM^.ClrScr;
  22.   SB := New (SaveBoxPtr, Init (10, 3, TRUE, VSM));
  23.   IF SB=NIL THEN BEGIN
  24.     WriteLn ('Objekt(e) nicht initialisiert.');
  25.     WriteLn;
  26.     WriteLn ('Programm abgebrochen.');
  27.     Halt (1);
  28.   END;
  29.   Mouse^.Show;
  30.   EvHand^.SetTakeOut (TRUE);
  31.   Quit := FALSE; i := 1;
  32.   REPEAT
  33.     SB^.RunBy (i);
  34.     Answer := SB^.GetReturnCode;
  35.     i := SB^.GetActiveItem;
  36.     IF Answer=SBSave THEN BEGIN
  37.     {$I-}
  38.       Assign (t, SB^.GetResult);
  39.       ReWrite (t);
  40.     {$I+}
  41.       Quit := (IoResult=0);
  42.       IF Quit THEN BEGIN
  43.         Writeln (t, 'Das war LoadBoxSaveBoxDemo.');
  44.         Close (t);
  45.       END ELSE
  46.         i := 1;
  47.     END ELSE
  48.       IF Answer=SBCancel THEN
  49.         Quit := TRUE
  50.       ELSE BEGIN
  51.         VSM^.Sound (1000); VSM^.Delay (1000); VSM^.NoSound;
  52.       END;
  53.   UNTIL Quit;
  54.   SB^.Close;
  55.   EvHand^.SetTakeOut (FALSE);
  56.   VSM^.GotoXY (1, 1);
  57.   IF Answer=SBSave THEN
  58.     Writeln ('In die Datei ', SB^.GetResult,
  59.              ' wurde geschrieben.')
  60.   ELSE
  61.     Writeln ('Da Cancel gewählt wurde, ',
  62.              'wurde nicht gespeichert.');
  63.   ReadLn;
  64.   Dispose (SB, Done);
  65.   Dispose (VSM, Done);
  66. END.
  67. (* ----------------------------------------------------- *)
  68. (*                   Ende von SBDEMO.PAS                 *)
  69. (* ----------------------------------------------------- *)
  70.