[Элементы GUI] Как вычислить элемент контрола по его относительной геометрии?

#Include <Array.au3>
#Include <WinAPIEx.au3>

WinActivate ("[REGEXPTITLE:(Active).*Pro/ENGINEER]")
$hForm = WinGetHandle("[REGEXPTITLE:(Active).*Pro/ENGINEER]")

$array = _WinAPI_EnumChildWindows($hForm)
If IsArray($array) Then
    _ArraySort($array, 0, 1, 0, 1)
;~     _ArrayDisplay($array, '_WinAPI_EnumChildWindows')
EndIf

$Layout_array = _ArrayCut("Layout", $array)
$Sash_array = _ArrayCut("Sash", $array)
$TextArea_array = _ArrayCut("TextArea", $array)
_ArrayDisplay($Layout_array, "Layout")
_ArrayDisplay($Sash_array, "Sash")
;~ _ArrayDisplay($TextArea_array, "TextArea")

Dim $Sash_array_new[1]
For $i=UBound($Sash_array)-1 to 0 step -1
;~ 	MsgBox (64, "$Sash_array["&$i&"]", "");$Sash_array[$i])
	$Sash_array_pos = ControlGetPos("","",$Sash_array[$i])
;~ 	MsgBox(64, "Show me", $Sash_array[$i]&" = "&$i&" element")
	_showme($Sash_array[$i])
	$u=0
	for $k = UBound($TextArea_array)-1 to 0 step -1
		_showme($TextArea_array[$k])
		$TextArea_pos = ControlGetPos("","",$TextArea_array[$k])
		if IsArray($TextArea_pos) then
;~ 			MsgBox(64, "View", $Sash_array_pos[0] &"~"& $TextArea_pos[0] &@CRLF& $Sash_array_pos[1] &"~"& $TextArea_pos[1] &@CRLF& $Sash_array_pos[2] &"~"& $TextArea_pos[2] &@CRLF& $Sash_array_pos[3] &"~"& $TextArea_pos[3])
			if $Sash_array_pos[0] <= $TextArea_pos[0] AND $Sash_array_pos[1] <= $TextArea_pos[1] AND $Sash_array_pos[2] >= $TextArea_pos[2] AND $Sash_array_pos[3] >= $TextArea_pos[3]   then
				_ArrayAdd($Sash_array_new, $Sash_array[$i])
				$u += 1
				$Sash_array_new[0] = $u
;~ 				MsgBox (64, "test", "TextArea handle = "&$TextArea_array[$k]&@CRLF&"Sash handle = "&$Sash_array[$i])
			EndIf
		EndIf
	next
next

_ArrayDisplay($Sash_array_new, "Sash_new")

Dim $Layout_array_new[1]
For $i=UBound($Layout_array)-1 to 0 step -1
;~ 	MsgBox (64, "$Layout_array["&$i&"]", "");$Layout_array[$i])
	$Layout_array_pos = ControlGetPos("","",$Layout_array[$i])
;~ 	MsgBox(64, "Show me", $Layout_array[$i]&" = "&$i&" element")
	_showme($Layout_array[$i])
	$j=0
	for $k = UBound($Sash_array)-1 to 0 step -1
		_showme($Sash_array[$k])
		$Sash_array_pos = ControlGetPos("","",$Sash_array[$k])
		if IsArray($Sash_array_pos) and IsArray($Layout_array_pos) then
;~ 			MsgBox(64, "View", $Layout_array_pos[0] &"~"& $Sash_array_pos[0] &@CRLF& $Layout_array_pos[1] &"~"& $Sash_array_pos[1] &@CRLF& $Layout_array_pos[2] &"~"& $Sash_array_pos[2] &@CRLF& $Layout_array_pos[3] &"~"& $Sash_array_pos[3])
			if $Layout_array_pos[0] <= $Sash_array_pos[0] AND $Layout_array_pos[1] <= $Sash_array_pos[1] AND $Layout_array_pos[2] >= $Sash_array_pos[2] AND $Layout_array_pos[3] >= $Sash_array_pos[3]   then
				_ArrayAdd($Layout_array_new, $Layout_array[$i])
				$j += 1
				$Layout_array_new[0] = $j
;~ 				MsgBox (64, "test", "TextArea handle = "&$Sash_array[$k]&@CRLF&"Sash handle = "&$Layout_array[$i])
			EndIf
		EndIf
	next
next

_ArrayDisplay($Layout_array_new, "Layout_new")

func _showme($hButton) ;блок для обводки находимых контролов
$tRECT = _WinAPI_CreateRectEx(0, 0, _WinAPI_GetWindowWidth($hButton), _WinAPI_GetWindowHeight($hButton))
$hDC = _WinAPI_GetDC($hButton)
$hBruish = _WinAPI_SelectObject($hDC, _WinAPI_GetStockObject($NULL_BRUSH))
$hPen = _WinAPI_SelectObject($hDC, _WinAPI_GetStockObject($DC_PEN))
_WinAPI_SetDCPenColor($hDC, 0xFF0000)
_WinAPI_Rectangle($hDC, $tRECT)
_WinAPI_SelectObject($hDC, $hPen)
_WinAPI_SelectObject($hDC, $hBruish)
_WinAPI_ReleaseDC($hButton, $hDC)
EndFunc

Func _ArrayCut($whatleave, ByRef $array)
	Dim $result[1]
    $u = 0
    For $i = UBound($array, 1) - 1 To 0 Step -1
        If $array[$i][1] = $whatleave Then
            _ArrayAdd($result, $array[$i][0])
            $u += 1
            $result[0] = $u
        EndIf
    Next
    Return $result
EndFunc   ;==>_ArrayCut