MouseMove versus MouseInfo Discrepancies

Keywords: 	  mousemove mouseinfo

---

Question:

I'm trying to write a routine to calibrate the mouse to a click button on the screen. I need to determine where this button is on the screen to handle differenct screen resolutions. I've written code (revised code at the end of this article) to have the user point to the button in the application then I grab the mouse position and write it to an INI file. But when I test it, the mouse moves to a position above where the click button is at.

If I record the position of mouse on the screen and don't move anything why doesn't the mouse move back to the coordinates that it gets from the INI file?

Answer:

I've been thoughroughly berated by the developers. The claim is that this is not a bug.

Basically MouseInfo and MouseMove do not use the same system.

MouseInfo(5) gives a result based on the upper left corner of the Client Area, whileas MouseMove uses the upper left corner of the entire window.

To make them compatible you have to add stuff like title bar height to the MouseInfo return value.

Ummm, WinMetrics(4) (I think) gives you the title bar height.

Try...

DB_WIN="Winbatch Studio"
:start_cal
Pause("AutoImporter - Mouse Calibration","Click ""OK"" to calibrate yourmouse.")
lval=10
BoxOpen("Mouse Calibrator","Move mouse to IMPORT BUTTON")

for xx=5 to 1 by -1
BoxText(strcat("Move Mouse to import button",@crlf,"then wait ",xx," seconds"))
TimeDelay(1)
next

MousePos=MouseInfo(5)
;debug(1)
titleheight=WinMetrics(4)
menuheight=WinMetrics(15)
buttonbarheight=32
X_pos=ItemExtract(1,MousePos," ")
Y_pos=ItemExtract(2,MousePos," ")
y_Pos=Y_pos+titleheight +menuheight+buttonbarheight
Delay(1)
MouseMove(0,0,"%DB_Win%","")
Delay(2)
MouseMove(X_pos,Y_pos,"%DB_Win%","")

; *** debug test
m5a=mouseinfo(5)
m6a=mouseinfo(6)
message("M5","%m5% %m5a%")
message("M6","%m6% %m6a%")
message("X/Y","%X_pos% %Y_pos%")
; * NOTE M5 or M6 do not equal X/X ?????

val=AskYesNo("AutoImporter - Mouse Calibration","Is the mouse pointing at the
""Import"" button?")
if val==@NO then start_cal

---

Article ID:   W13298

Filename:   MoveMove and MouseInfo Discrepancies.txt