Detect when mouse leaves program window

Code: (Select All)

TYPE POINTAPI

    x AS LONG

    y AS LONG

END TYPE

DIM apixy AS POINTAPI 'mouse x/y for the GetCursorPos function

DIM CaptionHeight AS INTEGER

DIM BorderHeight AS INTEGER

DIM BoderWidth AS INTEGER

DECLARE DYNAMIC LIBRARY "user32"

    'get current mouse x/y position

    'http://allapi.mentalis.org/apilist/GetCursorPos.shtml

    FUNCTION GetCursorPos% (lpPoint AS POINTAPI)

    'system window metrics in pixels

    'https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getsystemmetrics

    FUNCTION GetSystemMetrics% (BYVAL nIndex AS INTEGER)

END DECLARE



SCREEN 12

DO

    CaptionHeight = GetSystemMetrics(4) ' caption (title bar) height in pixels

    BorderWidth = GetSystemMetrics(45) '   3D width of window border in pixels (5 for non-3D)

    BorderHeight = GetSystemMetrics(46) '  3D height of window border in pixels (6 for non-3D)

    'poll mouse x/y

    tmp = GetCursorPos(apixy)

    ax = apixy.x - BorderWidth

    ay = apixy.y - CaptionHeight - BorderHeight

    sx = _SCREENX

    sy = _SCREENY

    CLS: PRINT "MOUSE IN"

    IF ax - sx < 0 THEN CLS: PRINT "MOUSE OUT"

    IF ax - sx > _WIDTH THEN CLS: PRINT "MOUSE OUT"

    IF ay - sy < 0 THEN CLS: PRINT "MOUSE OUT"

    IF ay - sy > _HEIGHT THEN CLS: PRINT "MOUSE OUT"

    LOCATE 2, 2: PRINT "CaptionHeight:"; CaptionHeight

    LOCATE 3, 2: PRINT "BorderWidth  :"; BorderWidth

    LOCATE 4, 2: PRINT "BorderHeight :"; BorderHeight

    _DISPLAY

LOOP

Type POINTAPI x As Long y As Long End Type Dim apixy As POINTAPI 'mouse x/y for the GetCursorPos function Declare Dynamic Library "user32" 'get current mouse x/y position Function GetCursorPos% (lpPoint As POINTAPI) 'http://allapi.mentalis.org/apilist/GetCursorPos.shtml End Declare Screen 12 sx = 100: sy = 100 ScreenMove sx, sy Do 'poll mouse x/y tmp = GetCursorPos(apixy) ax = apixy.x: ay = apixy.y Cls: Print "MOUSE IN" If ax - sx < 0 Then Cls: Print "MOUSE OUT" If ax - sx > _Width Then Cls: Print "MOUSE OUT" If ay - sy < 0 Then Cls: Print "MOUSE OUT" If ay - sy > _Height Then Cls: Print "MOUSE OUT" _Display Loop Sub ScreenMove_Middle $If BORDERDEC = UNDEFINED Then $Let BORDERDEC = TRUE Declare Library Function glutGet& (ByVal what&) End Declare $End If BorderWidth = glutGet(506) TitleBarHeight = glutGet(507) _ScreenMove (_DesktopWidth - _Width - BorderWidth) / 2 + 1, (_DesktopHeight - _Height - BorderWidth) / 2 - TitleBarHeight + 1 End Sub Sub ScreenMove (x, y) $If BORDERDEC = UNDEFINED Then $LET BORDERDEC = TRUE DECLARE LIBRARY FUNCTION glutGet& (BYVAL what&) END DECLARE $End If BorderWidth = glutGet(506) TitleBarHeight = glutGet(507) _ScreenMove x - BorderWidth, y - BorderWidth - TitleBarHeight End Sub

Type Rectangle left As Long top As Long right As Long bottom As Long End Type Dim Rec As Rectangle Declare Dynamic Library "User32" Function ClipCursor%% (Rect As Rectangle) 'sets mouse box work area on desktop Sub SetCursorPos (ByVal x As Long, Byval y As Long) 'move cursor position End Declare Screen _NewImage(720, 480, 32) sx = 100: sy = 100 ScreenMove sx, sy SetCursorPos sx + 10, sy + 10 Rec.left = sx Rec.top = sy Rec.bottom = sy + 480 Rec.right = sx + 720 work%% = ClipCursor(Rec) Print "Click the mouse to quit!" Do While _MouseInput: Wend _Limit 15 Loop Until _MouseButton(2) Or _MouseButton(1) System Sub ScreenMove_Middle $If BORDERDEC = UNDEFINED Then $Let BORDERDEC = TRUE Declare Library Function glutGet& (ByVal what&) End Declare $End If BorderWidth = glutGet(506) TitleBarHeight = glutGet(507) _ScreenMove (_DesktopWidth - _Width - BorderWidth) / 2 + 1, (_DesktopHeight - _Height - BorderWidth) / 2 - TitleBarHeight + 1 End Sub Sub ScreenMove (x, y) $If BORDERDEC = UNDEFINED Then $LET BORDERDEC = TRUE DECLARE LIBRARY FUNCTION glutGet& (BYVAL what&) END DECLARE $End If BorderWidth = glutGet(506) TitleBarHeight = glutGet(507) _ScreenMove x - BorderWidth, y - BorderWidth - TitleBarHeight End Sub