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