Gui Coordinate Conversion

[CyberSlug]

(Thanks to Larry and Valik for helping me figure this out)

In AutoIt-Gui, the coordinates of controls are relative to the window client area. If you want to compare the position of the mouse to the position of a control, then the following functions will help you:

_mouseClientPos()

similar to mouseGetPos() but result is in terms of GUI coordinates

_mouseClientMove($x, $y, $speed)

similar to mouseMove(...) but the parameters are GUI coordinates

expandcollapse popup

Global $title = '' ;empty string means active window

HotKeySet("{Esc}", "MouseMoveToZeroZero")
  Func MouseMoveToZeroZero()
    _mouseClientMove(0,0, 0)
  EndFunc

While 1
  sleep(100)
  $p = _mouseClientPos()
  ToolTip($p[0] & ',' & $p[1])
WEnd
Exit


; Convert window mouse coordinates to window client coords
Func _mouseClientPos()
  $mouseCoordModeBAK = Opt("MouseCoordMode", 0);relative to window

  Local $tmp[2]
  Local $windowSize = WinGetPos($title)
  Local $clientSize = WinGetClientSize($title)
    If @error Then Return $tmp;in case the taskbar is active
  Local $mouseCoord = MouseGetPos()
  Local $border = ($windowSize[2] - $ClientSize[0]) / 2

  $tmp[0] = $mouseCoord[0] - $windowSize[2] + $clientSize[0] + $border
  $tmp[1] = $mouseCoord[1] - $windowSize[3] + $clientSize[1] + $border

  Opt("MouseCoordMode", $mouseCoordModeBAK);original
  Return $tmp
EndFunc


; Convert client mouse coords to window mouse coords
Func _mouseClientMove($x, $y, $speed)
  $mouseCoordModeBAK = Opt("MouseCoordMode", 0);relative to window

  Local $windowSize = WinGetPos($title)
  Local $clientSize = WinGetClientSize($title)
    If @error Then Return;in case the taskbar is active
  Local $mouseCoord = MouseGetPos()
  Local $border = ($windowSize[2] - $ClientSize[0]) / 2

  $left = $x + $windowSize[2] - $clientSize[0] - $border
  $top  = $y + $windowSize[3] - $clientSize[1] - $border

  MouseMove($left, $top, $speed)

  Opt("MouseCoordMode", $mouseCoordModeBAK);original
EndFunc

[icadea]

thanks