home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / saa / demos / lbdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  1.8 KB  |  69 lines
  1. (* ----------------------------------------------------- *)
  2. (*                       LBDEMO.PAS                      *)
  3. (*        Demonstriert die Anwendung von LoadBox         *)
  4. (*            (c) 1991 by R.Reichert & toolbox           *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM LoadBoxDemo;
  7.  
  8. USES MouKey, WinVSM, DiaBoxes;
  9.  
  10. VAR
  11.   VSM    : WExtVSMPtr;
  12.   LB     : SaveBoxPtr;
  13.   Answer : BYTE;
  14.   Quit   : BOOLEAN;
  15.   f      : TEXT;
  16.   i      : BYTE;
  17.  
  18. BEGIN
  19.   VSM := New (WExtVSMPtr,
  20.               Init (New (ScreenObjPtr, Init (0, 0))));
  21.   VSM^.ClrScr;
  22.   LB := New (LoadBoxPtr, Init (10, 3, TRUE, VSM));
  23.   IF LB=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.     LB^.RunBy (i);
  34.     Answer := LB^.GetReturnCode;
  35.     i := LB^.GetActiveItem;
  36.     IF Answer=LBLoad THEN BEGIN
  37.     {$I-}
  38.       Assign (f, LB^.GetResult);
  39.       ReSet (f);
  40.     {$I+}
  41.       Quit := (IoResult=0);
  42.       IF Quit THEN
  43.         Close (f)
  44.       ELSE
  45.         i := 1;
  46.     END ELSE
  47.       IF Answer=LBCancel THEN
  48.         Quit := TRUE
  49.       ELSE BEGIN
  50.         VSM^.Sound (1000); VSM^.Delay (1000); VSM^.NoSound;
  51.       END;
  52.   UNTIL Quit;
  53.   LB^.Close;
  54.   EvHand^.SetTakeOut (FALSE);
  55.   VSM^.GotoXY (1, 1);
  56.   IF Answer=LBLoad THEN
  57.     Writeln ('Die Datei ', LB^.GetResult,
  58.              ' könnte geladen werden.')
  59.   ELSE
  60.     Writeln ('Da Cancel gewählt wurde, ',
  61.              'wurde nicht versucht zu laden.');
  62.   ReadLn;
  63.   Dispose (LB, Done);
  64.   Dispose (VSM, Done);
  65. END.
  66. (* ----------------------------------------------------- *)
  67. (*                   Ende von LBDEMO.PAS                 *)
  68. (* ----------------------------------------------------- *)
  69.