Желаемое, оказалось было не сложно сделать встроенными методами, вроде ошибок нет:
#SingleInstance Force
DetectHiddenWindows, On
Gui, Margin, 5, 5
Gui, Font, Italic s54 cWhite, Times New Roman
Gui, +AlwaysOnTop +ToolWindow -0x00400000 +E0x08000020 -DPIScale +Lastfound +HWNDhGui +Owner
Gui, Color, 2F4F4F
WinSet, TransParent, 200
1::
DllCall("DestroyWindow", "Ptr", hStatic)
Gui Add, Text, hwndhStatic x5 y5, % " TickCount: `n " A_TickCount " "
Gui, Show, % "NA AutoSize " (DllCall("IsWindowVisible", "uint", hGui) ? "" : "Hide")
WinGetPos, , , WinWidth, WinHeight, % "ahk_id" hGui
If CalculatePopupWindowPosition(X, Y, WinWidth, WinHeight, -WinWidth-45, -WinHeight//2)
Gui, Show, NA x%X% y%Y%
Return
2:: Gui, Hide
CalculatePopupWindowPosition(byref left, byref top, w, h, offsetx = 0, offsety = 0, x = "", y = "") {
If (x = "" || y = "")
DllCall("GetCursorPos", "int64P", pt), x := pt << 32 >> 32, y := pt >> 32
SysGet, MonCount, MonitorCount
Loop % MonCount
{
SysGet, m, Monitor, %A_Index%
If (x >= mLeft && x <= mRight && y >= mTop && y <= mBottom)
Break
If (A_Index = MonCount)
Return 0
}
left := x + offsetx + (offsetx > 0) * w < mLeft ? mLeft : x + offsetx + w > mRight ? mRight - w : x + offsetx
top := y + offsety + (offsety > 0) * h < mTop ? mTop : y + offsety + h > mBottom ? mBottom - h : y + offsety
Return 1
}
Но только стоит учитывать, что если указываются свои координаты показа, то они должны находится в пределах монитора.
]]>Gui, Margin, 5, 5
Gui, Font, Italic s34 cWhite, Times New Roman
Gui, +AlwaysOnTop +ToolWindow -0x00400000 +E0x08000020 -DPIScale +Lastfound +HWNDhGui +Owner
Gui, Color, 2F4F4F
WinSet, TransParent, 200
1::
DllCall("DestroyWindow", "Ptr", hStatic)
Gui Add, Text, hwndhStatic x5 y5, % "TickCount:`n" A_TickCount
Gui, Show, % "NA AutoSize " (DllCall("IsWindowVisible", "uint", hGui) ? "" : "Hide")
If CalculatePopupWindowPosition(x, y, hGui, 25)
Gui, Show, NA x%x% y%y%
Return
2:: Gui, Hide
CalculatePopupWindowPosition(byref left, byref top, hwnd, offset = 0, x = "", y = "") {
VarSetCapacity(POINT, 8, 0), VarSetCapacity(structs, 16, 0), VarSetCapacity(Test, 8, 0)
If (x = "" || y = "")
DllCall("GetCursorPos", "ptr", &POINT)
Else
NumPut(x, POINT, 0, "int"), NumPut(y, POINT, 4, "int")
DHW := A_DetectHiddenWindows
DetectHiddenWindows, On
WinGetPos, , , w, h, ahk_id %hwnd%
DetectHiddenWindows, %DHW%
NumPut(w + offset, structs, 0, "int"), NumPut(h + offset, structs, 4, "int") ; SIZE
Loop 2
{
If !DllCall("CalculatePopupWindowPosition"
, "ptr", &POINT
, "ptr", &structs
, "int", [0, 0x0008][A_Index]
, "ptr", 0
, "ptr", &structs + 8)
Return 0
_left := NumGet(structs, 8, "int"), _top := NumGet(structs, 12, "int")
If !(_left < NumGet(POINT, 0, "int") && _top < NumGet(POINT, 4, "int") && (out := 1))
Break
}
left := _left + (out ? 0 : offset)
top := _top + (out ? 0 : offset)
ListVars
Return 1
}
Esc:: ExitApp typedef struct tagRECT
{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECTЗнаю, но какой смысл, если right и bottom нам не интересны.
]]>
Gui, Margin, 5, 5
Gui, Font, Italic s34 cWhite, Times New Roman
Gui, +AlwaysOnTop +ToolWindow -0x00400000 +E0x08000020 -DPIScale +Lastfound +HWNDhGui +Owner
Gui, Color, 2F4F4F
WinSet, TransParent, 200
1::
DllCall("DestroyWindow", "Ptr", hStatic)
Gui Add, Text, hwndhStatic x5 y5, % "TickCount:`n" A_TickCount
Gui, Show, % "NA AutoSize " (DllCall("IsWindowVisible", "uint", hGui) ? "" : "Hide")
If CalculatePopupWindowPosition(x, y, hGui, 25)
Gui, Show, NA x%x% y%y%
Return
2:: Gui, Hide
CalculatePopupWindowPosition(byref left, byref top, hwnd, offset = 0, x = "", y = "") {
VarSetCapacity(POINT, 8, 0), VarSetCapacity(structs, 24, 0)
If (x = "" || y = "")
DllCall("GetCursorPos", "ptr", &POINT)
Else
NumPut(x, POINT, 0, "int"), NumPut(y, POINT, 4, "int")
DHW := A_DetectHiddenWindows
DetectHiddenWindows, On
WinGetPos, , , w, h, ahk_id %hwnd%
DetectHiddenWindows, %DHW%
NumPut(w + offset, structs, 0, "int"), NumPut(h + offset, structs, 4, "int") ; SIZE
Loop 2
{
If !DllCall("CalculatePopupWindowPosition"
, "ptr", &POINT
, "ptr", &structs
, "int", [0, 0x0008][A_Index]
, "ptr", 0
, "ptr", &structs + 8)
Return 0
_left := NumGet(structs, 8, "int"), _top := NumGet(structs, 12, "int")
If !(_left < NumGet(POINT, 0, "int") && _top < NumGet(POINT, 4, "int") && (out := 1))
Break
}
left := _left + (out ? 0 : offset)
top := _top + (out ? 0 : offset)
Return 1
}
Esc:: ExitApp
Gui, Margin, 5, 5
Gui, Font, Italic s54 cWhite, Times New Roman
Gui, +AlwaysOnTop +ToolWindow -0x00400000 +E0x08000020 -DPIScale +Lastfound +HWNDhGui +Owner
Gui, Color, 2F4F4F
WinSet, TransParent, 200
1::
DllCall("DestroyWindow", "Ptr", hStatic)
Gui Add, Text, hwndhStatic x5 y5, % "TickCount:`n" A_TickCount
Gui, Show, % "NA AutoSize " (DllCall("IsWindowVisible", "uint", hGui) ? "" : "Hide")
If CalculatePopupWindowPosition(x, y, hGui, 15)
Gui, Show, NA x%x% y%y%
Return
2:: Gui, Hide
CalculatePopupWindowPosition(byref left, byref top, hwnd, offset = 0, x = "", y = "") {
VarSetCapacity(POINT, 8, 0), VarSetCapacity(structs, 24, 0)
If (x = "" || y = "")
DllCall("GetCursorPos", "ptr", &POINT)
Else
NumPut(x, POINT, 0, "int"), NumPut(y, POINT, 4, "int")
DHW := A_DetectHiddenWindows
DetectHiddenWindows, On
WinGetPos, , , w, h, ahk_id %hwnd%
DetectHiddenWindows, %DHW%
NumPut(w + offset, structs, 0, "int"), NumPut(h + offset, structs, 4, "int") ; SIZE
If !DllCall("CalculatePopupWindowPosition"
, "ptr", &POINT
, "ptr", &structs
, "int", 0x0040 ; TPM_VERTICAL
, "ptr", 0
, "ptr", &structs + 8)
Return 0
left := NumGet(structs, 8, "int") + offset
top := NumGet(structs, 12, "int") + offset
Return 1
}
typedef struct tagPOINT
{
LONG x;
LONG y;
} POINT
typedef struct tagSIZE
{
LONG cx;
LONG cy;
} SIZE
typedef struct tagRECT
{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECT
Т.е. вот так можно, например.
x := A_ScreenWidth
y := A_ScreenHeight
w := 222
h := 222
VarSetCapacity( structs, 32, 0 )
NumPut( x, structs, 0, "int" ), NumPut( y, structs, 4, "int" ) ; POINT
NumPut( w, structs, 8, "int" ), NumPut( h, structs, 12, "int" ) ; SIZE
If !DllCall( "CalculatePopupWindowPosition"
, "ptr", &structs
, "ptr", &structs + 8
, "uint", 0x10000 ; TPM_WORKAREA
, "ptr", 0
, "ptr", &structs + 16 )
{
MsgBox, Ошибка.
ExitApp
}
; Выходной RECT
left := NumGet( structs, 16, "int" ), top := NumGet( structs, 20, "int" )
right := NumGet( structs, 24, "int" ), bottom := NumGet( structs, 28, "int" )
MsgBox, %left% %top%`n%right% %bottom%