home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / saa / demos / sfdemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  1.6 KB  |  55 lines
  1. (* ----------------------------------------------------- *)
  2. (*                      SFDEMO.PAS                       *)
  3. (*      Demonstiert die verschiedenen Eingabefelder      *)
  4. (*           (c) 1991 by R.Reichert & toolbox            *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM DBxItemsDemo;
  7.  
  8. USES Stuff, MouKey, WinVSM, DBxItems;
  9.  
  10. VAR
  11.   VSM : WExtVSMPtr;
  12.   Item: StringFieldPtr;
  13.   Ev  : EventObj;
  14.   Answer : BYTE;
  15.  
  16. BEGIN
  17.   VSM := New (WExtVSMPtr,
  18.               Init (New (ScreenObjPtr, Init (0, 0))));
  19.   Item:= New (StringFieldPtr,  { <--- hier die }
  20.               Init (20, 10,    {      verschiedenen }
  21.                     20, 200,   { Typen einsetzen }
  22.                     'ยท',
  23.                     'StartString',
  24.                     8, 10,
  25.                     ' #Vorspann: ',
  26.                     AltV,
  27.                     VSM));
  28.   VSM^.ClrScr;
  29.   EvHand^.SetTakeOut (TRUE);
  30.   Mouse^.Show;
  31.   Item^.Display;
  32.   Item^.DisplayHotKey;
  33.   REPEAT
  34.     EvHand^.WaitForEvent (EvAll, Ev);
  35.     Item^.CheckEvent (Ev);
  36.     Answer := Item^.GetReturnCode;
  37.   UNTIL (Answer=ItFinish);
  38.   EvHand^.SetTakeOut (FALSE);
  39.   Mouse^.Hide;
  40.   VSM^.GotoXY (1, 1);
  41.   Writeln ('Eingabe: ', Item^.Result);
  42.   Readln;
  43. {
  44.   WITH RealFieldPtr (Item)^ DO BEGIN
  45.     IF FieldValid THEN
  46.       Writeln (Result);
  47.   END;
  48. }
  49.   Dispose (Item, Done);
  50.   Dispose (VSM, Done);
  51. END.
  52. (* ----------------------------------------------------- *)
  53. (*                   Ende von SFDEMO.PAS                 *)
  54. (* ----------------------------------------------------- *)
  55.