Howto retrieve desktop X and Y coordinates

[mibosoft]

Hi,
I use docked forms in VFP9. In order to keep non-docked dialogs frontmost, I have defined these as "desktop". On right click I want to position these dialogs next to the mouse pointer. How can I read the desktop X and Y coordinates?

(I have tried calculating it with help of mcols/mrow("",3) _screen.left/top etc. but without success)

Thanks,
Micael

 

[alvechurchdata]

I have tried calculating it with help of mcols/mrow("",3) _screen.left/top etc. but without success

What exactly goes wrong? I've just tried this from the Command Window:

ON KEY LABEL RIGHTMOUSE _screen.pset(mcol("",3), mrow("",3))

and I get a point on screen exactly under the tip of the mouse cursor each time that I right-click.

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[mibosoft]

The problem is that the dialog that I want to position is "Desktop". Its coordinates relates to the whole desktop area. If I have a "this.left=0" in the init event the dialog is positioned at the very left of the desktop regardless of where my VFP window is located.

 

[alvechurchdata]

The problem is that the dialog that I want to position is "Desktop". Its coordinates relates to the whole desktop area

When you say "desktop" are you talking about the FoxPro or Windows Desktop?

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[mibosoft]

The windows desktop as my desktop dialog seems to relate to it.

 

[mibosoft]

Hi,
Actually I found the solution myself at fox.wikis.com:

DECLARE SHORT GetCursorPos IN user32 STRING @ lpPoint

LOCAL lnX, lnY
= getMousePos (@lnX, @lnY) && gets cursor absolute position

PROCEDURE getMousePos (x, y)
LOCAL lcBuffer
lcBuffer = Repli(Chr(0), 8)
= GetCursorPos (@lcBuffer)
x = buf2dword(SUBSTR(lcBuffer, 1,4))
y = buf2dword(SUBSTR(lcBuffer, 5,4))

FUNCTION buf2dword (lcBuffer)
RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
Asc(SUBSTR(lcBuffer, 4,1)) * 16777216


Thanks anyway,
Micael

 

[alvechurchdata]

Actually I found the solution myself at fox.wikis.com:

Glad to hear it and sorry I couldn't help.

Geoff Franklin

http://www.alvechurchdata.co.uk