home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / mouse / mouseqb / mousebox.inc < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.9 KB  |  63 lines
  1. '──────────────────────────────
  2. '     Include-File für die
  3. '    Mousebox,  Version 1.0
  4. '        Quick Basic 4.5
  5. '  Copyright (c) 1988, 89, 90
  6. '             by
  7. '
  8. '         Ralf Krause
  9. '
  10. '    Leuchtenberger Str. 7a
  11. '   D-8480 Weiden i. d. Opf.
  12. '──────────────────────────────
  13.  
  14. TYPE Registers
  15.      AX    AS INTEGER
  16.      BX    AS INTEGER
  17.      CX    AS INTEGER
  18.      DX    AS INTEGER
  19.      BP    AS INTEGER
  20.      SI    AS INTEGER
  21.      DI    AS INTEGER
  22.      Flags AS INTEGER
  23.      DS    AS INTEGER
  24.      ES    AS INTEGER
  25. END TYPE
  26.  
  27.  
  28. CONST MouseIntr = &H33       ' Mouse-INTERRUPT
  29. CONST SoftWare = 0           ' Softwarecursor bei SetTextCursor
  30. CONST HardWare = 1           ' Hardwarecursor bei SetTextCursor
  31.  
  32.  
  33. DECLARE FUNCTION InitMouse ()
  34. DECLARE SUB ResetMouse ()
  35. DECLARE SUB ShowCursor ()
  36. DECLARE SUB HideCursor ()
  37. DECLARE FUNCTION GetXPosition ()
  38. DECLARE FUNCTION GetYPosition ()
  39. DECLARE FUNCTION GetXTextPosition ()
  40. DECLARE FUNCTION GetYTextPosition ()
  41. DECLARE FUNCTION LeftButton ()
  42. DECLARE FUNCTION RightButton ()
  43. DECLARE FUNCTION MiddleButton ()
  44. DECLARE FUNCTION MouseMoved ()
  45. DECLARE FUNCTION MouseLeftMoved ()
  46. DECLARE FUNCTION MouseRightMoved ()
  47. DECLARE FUNCTION MouseUpMoved ()
  48. DECLARE FUNCTION MouseDownMoved ()
  49. DECLARE FUNCTION LeftButtonPressed ()
  50. DECLARE FUNCTION RightButtonPressed ()
  51. DECLARE FUNCTION MiddleButtonPressed ()
  52. DECLARE FUNCTION LeftButtonReleased ()
  53. DECLARE FUNCTION RightButtonReleased ()
  54. DECLARE FUNCTION MiddleButtonReleased ()
  55. DECLARE SUB SetXYMouse (X AS INTEGER, Y AS INTEGER)
  56. DECLARE SUB SetXRange (Min AS INTEGER, Max AS INTEGER)
  57. DECLARE SUB SetYRange (Min AS INTEGER, Max AS INTEGER)
  58. DECLARE FUNCTION GetXMickey ()
  59. DECLARE FUNCTION GetYMickey ()
  60. DECLARE SUB SetXYMickey (XMickey AS INTEGER, YMickey AS INTEGER)
  61. DECLARE SUB SetMouseSpeed (MouseSpeed AS INTEGER)
  62. DECLARE SUB SetTextCursor (CursorType AS INTEGER, TextScreenMask AS INTEGER, TextCursorMask AS INTEGER)
  63.