RegRead DisplayScale, HKEY_CURRENT_USER, Control Panel\Desktop\WindowMetrics, AppliedDPI
MsgBox % DisplayScale / 96
MsgBox % GetScalingRatio()
MsgBox % A_ScreenDPI / 96
GetScalingRatio() {
hDC := DllCall("GetDC", Ptr, 0, Ptr)
hDPI := DllCall("GetDeviceCaps", Ptr, hDC, Int, LOGPIXELSX := 88)
DllCall("ReleaseDC", Ptr, 0, Ptr, hDC)
Return hDPI/24*25/100
}Что за DPI окна?
Аналогично -DPIScale или +DPIScale.
Можно как-то узнать, масштабируется окно, или нет?
Не знаю, не пробовал. Вот вроде для 10. Для неизветного окна на практике это видимо не понадобится, а для известного это можно проверить на практике. Вывод: если у окна +DPIScale, то просто умножаем координаты на (A_ScreenDPI / 96), иначе ничего не делаем. Координаты конечно только в клиентской области.
]]>А в чём отличие?
А я и не знал про A_ScreenDPI.
Вот, потому в общем случае будет полезен DPI самого окна, а не общий.
Что за DPI окна? Можно как-то узнать, масштабируется окно, или нет?
пробовал со ScalingRatio, 193 выдало как 241.25 при масштабе 1.50. ... Нашел руководство по A_ScreenDPI. Проверил ваш вариант, 193 превратилось в 289.5 при масштабе 1.5, и опять мимо.
Хотите сказать, эти варианты выдают разные числа при одинаковом масштабе?
MsgBox, % 193*A_ScreenDPI/96 . "`n" . 193*GetScalingRatio()
GetScalingRatio() {
hDC := DllCall("GetDC", Ptr, 0, Ptr)
hDPI := DllCall("GetDeviceCaps", Ptr, hDC, Int, LOGPIXELSX := 88)
DllCall("ReleaseDC", Ptr, 0, Ptr, hDC)
Return hDPI/24*25/100
}CoordMode Mouse, ClientПопробуйте координаты, полученные по формуле для разных разрешений ещё домножить на ScalingRatio
А в чём отличие?
X := 100
MsgBox % X * (A_ScreenDPI / 96)Чтобы избежать такого масштабирования для своего GUI есть опция -DPIScale.
Вот, потому в общем случае будет полезен DPI самого окна, а не общий.
]]>hWnd := WinExist("A")
myWinPos := WinGetP(hWnd)
WinGetTitle titl, ahk_id %hWnd%
MsgBox % titl "`n" myWinPos.x " " myWinPos.y " " myWinPos.w " " myWinPos.h "`n"
. myWinPos.Client.x " " myWinPos.Client.y " " myWinPos.Client.w " " myWinPos.Client.h "`n"
. myWinPos.Client2Win.x " " myWinPos.Client2Win.y " " myWinPos.Client2Win.w " " myWinPos.Client2Win.h
WinGetP(hwnd) {
WinGetPos, x, y, w, h, ahk_id %hWnd%
WinP := {x:x, y:y, w:w, h:h}
VarSetCapacity(pt, 16)
NumPut(x, pt, 0) || NumPut(y, pt, 4) || NumPut(w, pt, 8) || NumPut(h, pt, 12)
if (!DllCall("GetClientRect", "uint", hwnd, "uint", &pt))
Return
if (!DllCall("ClientToScreen", "uint", hwnd, "uint", &pt))
Return
x := NumGet(pt, 0, "int"), y := NumGet(pt, 4, "int")
w := NumGet(pt, 8, "int"), h := NumGet(pt, 12, "int")
Client := {x:x, y:y, w:w, h:h}
Client2Win := {x:x-WinP.x, y:y-WinP.y, w:w, h:h}
Return WinP := {x:WinP.x, y:WinP.y, w:WinP.w, h:WinP.h, Client2Win:Client2Win, Client:Client}
}MsgBox, % ScalingRatio := GetScalingRatio()
GetScalingRatio() {
hDC := DllCall("GetDC", Ptr, 0, Ptr)
hDPI := DllCall("GetDeviceCaps", Ptr, hDC, Int, LOGPIXELSX := 88)
DllCall("ReleaseDC", Ptr, 0, Ptr, hDC)
Return hDPI/24*25/100
}Вообще, при смене разрешения, если масштабирование не меняется, координаты объектов не должны меняться. Если меняется масштабирование, обычно меняются координаты объектов внутри окон относительно левого верхнего угла окна.
]]>