home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MOUSETP4.ZIP / MOUSE.DOC next >
Encoding:
Text File  |  1988-03-20  |  2.5 KB  |  71 lines
  1.                                TPMOUSE
  2.  
  3. This file is intended to allow use of a mouse with programs
  4. written in Turbo Pascal (version 4). Use it at your own risk.
  5. The author assumes no liability of any kind, having received
  6. no consideration for this program. I hereby place this program
  7. in the public domain.
  8.  
  9. Listed below are the public declarations in Mouse.Tpu. This unit
  10. allows you to use a mouse with Turbo Pascal v4. A mouse driver
  11. appropriate to your mouse must be loaded before running a program
  12. which uses this unit. This unit has been tested with a Genius
  13. Mouse emulating a Microsoft Mouse and a Mouse Systems Mouse, and
  14. also with a Logitech serial mouse.
  15.  
  16. Address bug notices or suggestions for improvement to me at:
  17.  
  18.      Steve Hendrix
  19.      8860 Brandywine
  20.      Sagamore Hills OH  44067
  21.  
  22.  
  23.  
  24.  
  25. type
  26. MousePos = record
  27.   ButtonStat: word;
  28.   X, Y: integer;
  29. end;
  30. ButtonCount = record
  31.   ButtonStat: word;
  32.   Events: integer;
  33.   X, Y: integer;
  34. end;
  35. MouseShape = record
  36.   ScreenMask: array [0..15] of word;
  37.   CursorMask: array [0..15] of word;
  38. end;
  39. MouseMotion = record
  40.   X, Y: integer;
  41. end;
  42. RoutinePtr = ^byte;
  43.  
  44. const
  45. ArrowCursor: MouseShape = (
  46.   ScreenMask: ($FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,
  47.                $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF);
  48.   CursorMask: ($E000,$F800,$FE00,$D800,$0C00,$0600,$0300,$0000,
  49.                $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  50. MagnifyingGlass: MouseShape = (
  51.   ScreenMask: ($FC3F,$E3C7,$DFFB,$BFFD,$7FFE,$7FFE,$7FFE,$BFFD,
  52.                $DFFB,$E3C7,$FC3F,$FE7F,$FE7F,$FE7F,$FE7F,$FE7F);
  53.   CursorMask: ($03C0,$1FF8,$3FFC,$7FFE,$FFFF,$FFFF,$FFFF,$7FFE,
  54.                $3FFC,$1FF8,$03C0,$0180,$0180,$0180,$0180,$0180));
  55.  
  56. function MouseStatus: shortint;
  57. procedure ShowMouse;
  58. procedure HideMouse;
  59. procedure GetMousePos (var Mouse: MousePos);
  60. procedure SetMousePos (X, Y: integer);
  61. procedure GetButtonPresses  (Button: word; var Button: ButtonCount);
  62. procedure GetButtonReleases (Button: word; var Button: ButtonCount);
  63. procedure SetMouseWindow (Xmin, Ymin, Xmax, Ymax: integer);
  64. procedure DefinePointer (HotX, HotY: integer; var Shape: MouseShape);
  65. procedure DefineTextPointer (Hardware: boolean; Start, Stop: integer);
  66. procedure GetMotionCounters (var Motion: MouseMotion);
  67. procedure DefineEventHandler (Mask: word; Routine: RoutinePtr);
  68. procedure SetMouseSpeed (X, Y: integer);
  69. procedure SetInvisWindow (Xmin, Ymin, Xmax, Ymax: integer);
  70. procedure DoubleSpeedThreshold (MickeysPerSec: integer);
  71.