home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_MOUSE.INT < prev    next >
Text File  |  1995-02-14  |  774b  |  39 lines
  1.  
  2. unit u_mouse;
  3.  
  4. interface
  5.  
  6. const
  7.   mtypes:array[0..4] of string[6]=(
  8.     'bus','serial','inport','ps/2','hp');
  9.  
  10. var
  11.   buttons:word;
  12.   verhi,verlo,mousetype:byte;
  13.  
  14. { General --------- }
  15.  
  16. function mouseinstalled:boolean;
  17. procedure getmouseversion;
  18. function leftpressed:boolean;
  19. function rightpressed:boolean;
  20. function middlepressed:boolean;
  21. procedure mousesensetivity(x,y:word);
  22. function getmousex:word;
  23. function getmousey:word;
  24. procedure setmousepos(x,y:word);
  25.  
  26. { Graphics Mouse -- }
  27.  
  28. procedure gm_mousewindow(x,y,x2,y2:word);
  29.  
  30. { Text Mouse ------ }
  31.  
  32. procedure tm_showmouse;
  33. procedure tm_hidemouse;
  34. procedure tm_mousewindow(x,y,x2,y2:word);
  35. function tm_getstratcursor(maxlen:word):string;       { get string at cursor }
  36.  
  37. implementation
  38.  
  39.