home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 22 / windows / demos / aswdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-04  |  2.1 KB  |  76 lines
  1. (* ----------------------------------------------------- *)
  2. (*                     ASWDEMO.PAS                       *)
  3. (*                                                       *)
  4. (*          (c) 1991 by R.Reichert & toolbox             *)
  5. (* ----------------------------------------------------- *)
  6. PROGRAM ASWDemo;
  7.  
  8. USES WinVSM, MouKey, ActStWi;
  9.  
  10. VAR
  11.   Win : ActiveStandWinPtr;
  12.   VSM : WExtVSMPtr;
  13.   i,
  14.   RC  : BYTE;
  15.   Ev  : EventObj;
  16.   s   : STRING;
  17.  
  18. BEGIN
  19.   VSM := New (WExtVSMPtr,
  20.               Init (New (ScreenObjPtr, Init (80,25))));
  21.   Win := New (ActiveStandWinPtr, Init (VSM));
  22.   IF (Win=NIL) OR (VSM=NIL) THEN BEGIN
  23.     Writeln ('*** Fehler: Objekte konnten nicht ',
  24.              'initialisiert werden.');
  25.     Writeln;
  26.     Writeln ('            Programm abgebrochen.');
  27.     Halt (1);
  28.   END;
  29.   VSM^.SetTextAttr (7);
  30.   VSM^.ClrScr;
  31.   VSM^.GotoXY (20, 1);
  32.   VSM^.SetTextAttr (15);
  33.   VSM^.Writeln (' Active-Standardwindow Demonstration ');
  34.   FOR i := 1 TO 80 DO
  35.     VSM^.Write ('─');
  36.   VSM^.SetTextAttr (7);
  37.   FOR i := 1 TO 180 DO
  38.     VSM^.Write (' toolbox ');
  39.   VSM^.GotoXY (1,23);
  40.   VSM^.SetTextAttr (15);
  41.   FOR i := 1 TO 80 DO
  42.     VSM^.Write ('─');
  43.   Mouse^.Show;
  44.   Win^.SetTitles ('hi baby', ' ''bye baby');
  45.   Win^.SetMinMax (2,2,79,23);
  46.   Win^.SetXY (10,3,40,5);
  47.   Win^.SetShadow (On);
  48.   Win^.SetFrame (2);
  49.   Win^.Open;
  50.   VSM^.WriteStr (11, 4, 127,
  51.                  '     Demotext der bleibt     ');
  52.   EvHand^.SetTakeOut (On);
  53.   REPEAT
  54.     EvHand^.WaitForEvent (EvAll, Ev);
  55.     Win^.CheckEvent (Ev);
  56.     RC := Win^.GetReturnCode;
  57.     System.Str (RC:4, s);
  58.     VSM^.GotoXY (70,1);
  59.     VSM^.Write ('RC: '+s);
  60.     IF RC=EvNotExpr THEN
  61.       { hier wäre dann eigene Auswertung } ;
  62.   UNTIL (RC=ClosedWin);
  63.   Mouse^.Hide;
  64.   EvHand^.SetTakeOut (Off);
  65.   VSM^.GotoXY (1, 24); VSM^.SetTextAttr (15);
  66.   VSM^.Write ('ReturnCode: '+s+'  (Enter zum beenden)');
  67.   Readln;
  68.   Win^.Close;
  69.   VSM^.ClrScr;
  70.   Dispose (Win);
  71.   Dispose (VSM);
  72. END.
  73. (* ----------------------------------------------------- *)
  74. (*                 Ende von ASWDEMO.PAS                  *)
  75. (* ----------------------------------------------------- *)
  76.