topic-36951

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Question to coordinates.
Posted: Thu Mar 28, 2019 09:13 AM

Hello, in which way i become the screen-coordinates from the actual focused control?

Regards,
Günther
---------------------------------
office@byte-one.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Question to coordinates.
Posted: Thu Mar 28, 2019 10:43 AM

Try with ClientToScreen Function

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: Question to coordinates.
Posted: Thu Mar 28, 2019 11:47 AM

Cristobal, ok, but from where i become the actual focused control??

Regards,
Günther
---------------------------------
office@byte-one.com

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: Question to coordinates.
Posted: Thu Mar 28, 2019 02:20 PM

Günther,

You can use :

@ 185, 810 GET oGet[1] VAR nAge SIZE 30, 22 PICTURE "99" PIXEL UPDATE
oGet[1]:bLClicked := {|| aSize := GET_SIZE( oGet[1] ), ;
MsgAlert( "Top : " + ALLTRIM(STR(aSize[1])) + CRLF + ; // only for test
"Left : " + ALLTRIM(STR(aSize[2])) + CRLF + ;
"Width : " + ALLTRIM(STR(aSize[3])) + CRLF + ;
"Height : " + ALLTRIM(STR(aSize[4])), "Size" ) }

// ------------

STATIC FUNCTION GET_SIZE( oObject )
LOCAL aCors[4]

aCors[1] := oObject:nTop
aCors[2] := oObject:nLeft
aCors[3] := oObject:nWidth
aCors[4] := oObject:nHeight

RETURN aCors

regards
Uwe