home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tmou.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-20  |  657 b   |  48 lines
  1. program tmou;
  2.  
  3. uses
  4.  
  5.   vmou,
  6.   vgenu,
  7.   vcrtu;
  8.  
  9.  
  10. var
  11.  
  12.   mh  : word;
  13.  
  14.   mei : TMouEventInfo;
  15.  
  16.   f   : WORD;
  17.   R   : WORD;
  18.  
  19. begin
  20.  
  21.   IF MouOpen( NIL, MH )=0 Then
  22.   BEGIN
  23.  
  24.     MouDrawPtr( mh );
  25.  
  26.     F := 1;
  27.  
  28.     While Not KeyPressed Do
  29.     BEGIN
  30.  
  31.       R := MouReadEventQue( @mei, F, mh );
  32.  
  33.       WriteLn(' Ret=',WordToHex( R        ),
  34.               ' FS =',WordToHex( Mei.FS   ),
  35.               ' Tim=',LongtoHex( Mei.time ),
  36.               ' Row=',mei.row:4,
  37.               ' Col=',Mei.col:4                );
  38.  
  39.     END;
  40.  
  41.  
  42.     MouClose( mh );
  43.   END
  44.   ELSE
  45.     WriteLn('No Mouse device driver can be found.');
  46.  
  47. END.
  48.