home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / VPOINT.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  2.7 KB  |  118 lines
  1. (*
  2.  
  3. ==========================================================================
  4.  
  5. Visionix Pointer Device Unit (VCOLOR)
  6. Copyright 1991,1992 Visionix
  7. ALL RIGHTS RESERVED
  8.  
  9.  
  10. --------------------------------------------------------------------------
  11.  
  12. Revision history in reverse chronological order:
  13.  
  14. Initials  Date      Comment
  15. --------  --------  ------------------------------------------------------
  16.  
  17. jrt       11/21/92  Sync with beta 0.08
  18.  
  19.  
  20. jrt       09/01/92  First logged revision.
  21.  
  22.  
  23.  
  24. --------------------------------------------------------------------------
  25.  
  26. *)
  27.  
  28.  
  29.  
  30.  
  31.  
  32. { VMou/VPoint Copyright 1991,1992 Visionix ALL RIGHTS RESERVED }
  33.  
  34.  
  35. Unit VMou;
  36.  
  37. Const
  38.  
  39.   mbLEFT   = 1;
  40.   mbCENTER = 2;
  41.   mbRIGHT  = 4;
  42.   mbALL    = 1+2+4;
  43.  
  44.  
  45.  
  46.  
  47. Const
  48.  
  49.   mbLEFT   = 1;
  50.   mbCENTER = 2;
  51.   mbRIGHT  = 4;
  52.   mbALL    = 1+2+4;
  53.  
  54.  
  55. Type
  56.  
  57.   TMouseCaps = RECORD
  58.  
  59.     NumMice    : BYTE;
  60.  
  61.   END;
  62.  
  63.  
  64.  
  65. Procedure VMouseGetCaps(        Caps           : PMouseCaps   );
  66.  
  67.  
  68. Function  VMouseInstalled : BOOLEAN;
  69.  
  70.  
  71. Procedure VMouseInit(           MouType     : BYTE;
  72.  
  73.                             Var Error       : WORD;
  74.  
  75. Procedure VMousePointerOn;
  76.  
  77. Procedure VMousePointerOff;
  78.  
  79. Procedure VMousePointerSet(     PointerID   : BYTE       );
  80.  
  81. Procedure VMouseRead(       Var Button      : BYTE;
  82.                             Var X           : WORD;
  83.                             Var Y           : WORD       );
  84.  
  85.  
  86. Procedure VMouseReadButtons : BYTE;
  87.  
  88. Procedure VMouseReadX       : WORD;
  89.  
  90. Procedure VMouseReadY       : WORD;
  91.  
  92. Procedure VMouseWaitButtonRelease(        Buttons     : BYTE       );
  93.  
  94. Procedure VMouseWaitButtonPress(          Buttons     : BYTE       );
  95.  
  96. {-------------}
  97.  
  98. Procedure VMouseProcNew(              BPressed    : BYTE;
  99.                                       BReleased   : BYTE;
  100.                                       X1          : WORD;
  101.                                       Y1          : WORD;
  102.                                       X2          : WORD;
  103.                                       Y2          : WORD;
  104.                                       Proc        : POINTER;
  105.                                       Id          : POINTER;
  106.                                       Name        : TProcName;
  107.                                   Var Err         : WORD       );
  108.  
  109. Procedure VMouseProcOn(               Name        : TProcName  );
  110.  
  111. Procedure VMouseProcOff(              Name        : TProcName  );
  112.  
  113. Procedure VMouseProcDispose(          Name        : TProcName  );
  114.  
  115. Procedure VMouseSubmitButtonKey(      Button      : BYTE;
  116.                                       Key1        : CHAR;
  117.                                       Key2        : CHAR       );
  118.