[Окна, Диалоги] Как связаны координаты в зависимости от выставленной GUICoordMode

shm_alex · 26 Дек 2010

Ну собственно пусть положение мышки не менялось

Код:

Opt("MouseCoordMode", 0)        ;1=absolute, 0=relative, 2=client
$pos0 = MouseGetPos()

Opt("MouseCoordMode", 1)        ;1=absolute, 0=relative, 2=client
$pos1 = MouseGetPos()


Opt("MouseCoordMode", 2)        ;1=absolute, 0=relative, 2=client
$pos2 = MouseGetPos()

как связаны Pos0,Pos1,Pos2?
Задача прикладная
Пусть разрешение одинаковое .
Но оказывается на разной винде(виртуальной машине) ширина шрифтов минюшек, заголовка окна, ширины границы окна- разное количество пикселей, что бы как-то уйти от этой зависимости и чтобы хотя бы на вирт машине с моим же разрешением я бы анализировал одинаковые области в скрипте я решил использовать
Opt("MouseCoordMode", 1) (хотя возможно это не панацея)
Но вот Мне понадобилось перевезти Координаты X,Y из Opt("MouseCoordMode", 1) в Opt("MouseCoordMode", 0)
для того чтобы сделать $hBMP = _ScreenCapture_Capture("",$lx,$ly,$rx,$ry,False)
(ведь _ScreenCapture_Capture поджирает только абсолютные координаты)
Т.Е у меня есть X,Y в координатах клиента как из них получить X1,Y1- координаты экрана, какие ~~константы~~ переменные добавить?

Redline · 26 Дек 2010

Вообще никто не запрещает менять Opt в процессе работы скрипта ;).
Но если нужно вычислить...
Непонятно какой все таки нужен перевод координат? сделал оба :D
1. Opt('MouseCoordMode', 1) --> Opt('MouseCoordMode', 0) [absolute --> relative]

Код:

Opt('MouseCoordMode', 1)
#include <GUIConstants.au3>
#Include <Misc.au3>
Dim $aResult[4]
$hGUI = GUICreate('My GUI', 400, 200)
$hButton = GUICtrlCreateButton('Push', 50, 100, 80, 20)
GUISetState()

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $hButton
			$aResult = _getcoord()
			MsgBox(0, 'Result', 'Абсолютные координаты: ' & $aResult[0] & ' / ' & $aResult[1] & @CRLF & 'относительные координаты окна: ' & $aResult[2] & ' / ' & $aResult[3])
	EndSelect
WEnd
Func _getcoord()
	MsgBox(0, 'Click', 'Кликните мышкой внутри окна')
	Dim $aArr[4]
	Do
		Sleep(5)
	Until _IsPressed('01')
	$aCoords = MouseGetPos()
	$aPos = WinGetPos($hGUI)
	$x = $aCoords[0] - $aPos[0]
	$y = $aCoords[1] - $aPos[1]
	$aArr[0] = $aCoords[0]
	$aArr[1] = $aCoords[1]
	$aArr[2] = $x
	$aArr[3] = $y
	Return $aArr
EndFunc

2. Opt('MouseCoordMode', 0) --> Opt('MouseCoordMode', 1) [relative --> absolute]

Код:

Opt('MouseCoordMode', 0)
#include <GUIConstants.au3>
#Include <Misc.au3>
Dim $aResult[4]
$hGUI = GUICreate('My GUI', 400, 200)
$hButton = GUICtrlCreateButton('Push', 50, 100, 80, 20)
GUISetState()

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit
		Case $msg = $hButton
			$aResult = _getcoord()
			MsgBox(0, 'Result', 'Относительные координаты окна: ' & $aResult[0] & ' / ' & $aResult[1] & @CRLF & 'абсолютные координаты: ' & $aResult[2] & ' / ' & $aResult[3])
	EndSelect
WEnd
Func _getcoord()
	MsgBox(0, 'Click', 'Кликните мышкой внутри окна')
	Dim $aArr[4]
	Do
		Sleep(5)
	Until _IsPressed('01')
	$aCoords = MouseGetPos()
	$aPos = WinGetPos($hGUI)
	$x = $aCoords[0] + $aPos[0]
	$y = $aCoords[1] + $aPos[1]
	$aArr[0] = $aCoords[0]
	$aArr[1] = $aCoords[1]
	$aArr[2] = $x
	$aArr[3] = $y
	Return $aArr
EndFunc

В этих скриптах нет проверки, что клик произведен по GUI!

Сложнее деле обстоит с координатами, относительно области клиента - там приходится учитывать высоту заголовка окна и толщину границ окна(они меняются в зависимости от оформления и тем в Windows), но и это решается - можешь посмотреть в коде моей утилиты:
Фоторамка - снятие скриншотов по фиксированным координатам

shm_alex · 26 Дек 2010

Redline сказал(а):
Вообще никто не запрещает менять Opt в процессе работы скрипта ;).
Но если нужно вычислить...

В своих поделках я часто использую процедурки типа
Func WaitForImg($x,$y,$l,$h,$CRC,$TimeOutSec,$str="",$RefreshTime=500)
которая ждёт пока не появится нужная мне картинка в нужной области экрана, ну и если координаты в абсолютных величинах , то на другой рабочей станции всё перестаёт работать из того что картинки смещаются на пиксель - два три из-за ширины шрифтов заголовков и ширины бордюров окна. даже при одинаковом разрешении экрана и максимизированном окне

Redline сказал(а):
Сложнее деле обстоит с координатами, относительно области клиента - там приходится учитывать высоту заголовка окна и толщину границ окна(они меняются в зависимости от оформления и тем в Windows), но и это решается - можешь посмотреть в коде моей утилиты:
Фоторамка - снятие скриншотов по фиксированным координатам

посморел я так понял здесь собака зарыта

Код:

$wincoord = WinGetPos($proj)
$labelcoord = ControlGetPos($proj, '', 'Static1') ; я так понимаю что это как раз координаты клиентской области ;окна , для произвольного окна как быть? не понял что за Static1, согласно справке  тут должно быть
;controlID - int , а не строка
;не понятно можно 
$border = ($wincoord[2] - $labelcoord[2]) / 2
$hTitle = $wincoord[3] - $labelcoord[3] - $border

ну всё понятно
если у меня есть X2,Y2- координаты взятые при помощи Opt("MouseCoordMode", 2)
то для того чтобы перейти к координатам экрана X,Y
надо
X=X2+_
ControlGetPos("Окно над которым взяты коодинаты'', 'Контрол над которым взяты координаты')[0]+_
+WinGetPos("Окно над которым взяты коодинаты")[0]
О! нашёл процедурку
_WinAPI_ClientToScreen($hwnd, $tpoint)

Medved · 2 Янв 2012

shm_alex [?]

О! нашёл процедурку _WinAPI_ClientToScreen($hwnd, $tpoint)

Отмечу, что обратная процедурка вроде как работает не только с хэндлом окна, но и с хэндлом контрола. Таким образом посылать клики в контролы по абс. координатам можно в два клика :laugh:

Автор темы	Похожие темы	Форум	Ответы	Дата
	[Окна, Диалоги] Как добавить иконку в заголовок MsgBox и в панель задач после запуска скрипта	Общие вопросы по AutoIt	3	19 Июл 2019
N	[Окна, Диалоги] Изменение Label в окне	Общие вопросы по AutoIt	2	28 Мар 2019
Э	[Окна, Диалоги] UDF с оформленными MsgBox под ситуации	Общие вопросы по AutoIt	7	9 Мар 2019
M	[Окна, Диалоги] По умолчанию запускается в трее, а нужно вывести на панель задач	Общие вопросы по AutoIt	4	21 Фев 2019
	[Окна, Диалоги] Активировать нужное окно Excel при нескольких открытых	Общие вопросы по AutoIt	4	2 Фев 2019

Поиск

Поиск

[Окна, Диалоги] Как связаны координаты в зависимости от выставленной GUICoordMode

shm_alex

Новичок

Redline

AutoIT Гуру

shm_alex

Новичок

Medved

Новичок