Function GUICtrlGetPos

[rizaado]

Func GUICtrlGetPos($iControlID)
    Local $hControlID = GUICtrlGetHandle($iControlID)
    Local $aControlPos[2]
    $aControlPos[0] = ControlGetPos($hControlID, "", 0)[0]
    $aControlPos[1] = ControlGetPos($hControlID, "", 0)[1]
    Return $aControlPos
EndFunc   ;==>GUICtrlGetPos

Local $hGUI = GUICreate("GUICtrlGetPos", _
        0, _
        0, _
        1, _
        1, _
        $WS_SYSMENU + $WS_MAXIMIZE + $WS_MAXIMIZEBOX + $DS_MODALFRAME)
Local $idPic = GUICtrlCreatePic("tree.gif", 20, 40, 11, 26)
GUISetState(@SW_SHOW)
MsgBox($MB_SYSTEMMODAL, "Left", GUICtrlGetPos($idPic)[0])
MsgBox($MB_SYSTEMMODAL, "Top", GUICtrlGetPos($idPic)[1])
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd
GUIDelete($hGUI)

Purpose: Get the left(x) and top(y) of control.

Edited June 30, 2015 by rizaado

[argumentum]

Func GUICtrlGetPos($iControlID)
    Local $a = ControlGetPos(GUICtrlGetHandle($iControlID),"",0)
    If @error Then
        Local $a[4]=[-1,-1,-1,-1]
        Return SetError(1,0,$a)
    EndIf
    Return SetError(0,0,$a)
EndFunc

 

Edited June 30, 2015 by argumentum
corrected the function

[rizaado]

Your variant of a function GUICtrlGetPos is wrong.

ControlGetPos:

Return Value

Success:	an array containing the size and the control's position relative to its client window:     $aArray[0] = X position     $aArray[1] = Y position     $aArray[2] = Width     $aArray[3] = Height
Failure:	sets the @error flag to 1.

Edited June 30, 2015 by rizaado

[rizaado]

Divide GUICtrlGetPos into two functions - "getLeft" and "getTop"! It is better solution.

Edited July 1, 2015 by rizaado

[JohnOne]

What exactly is this function useful for?

[rizaado]

Purpose: Get the left(x) and top(y) of control.

https://www.autoitscript.com/forum/topic/173621-guictrlget-left-top-width-and-height/

[JohnOne]

I know what it does, just wondering what its practical use would be.