fixes DPI Scaling

This commit is contained in:
g0nzo83
2024-05-20 02:00:14 +02:00
parent e4888915da
commit b5902250f8
4 changed files with 4 additions and 4 deletions

View File

@@ -26,7 +26,7 @@ A_MaxHotKeysPerInterval := 10000
TODO #########################
*/
;@Ahk2Exe-Let U_version = 1.0.3.
;@Ahk2Exe-Let U_version = 1.0.4.
;@Ahk2Exe-SetVersion %U_version%
;@Ahk2Exe-SetFileVersion %U_version%
;@Ahk2Exe-SetCopyright gonzo83

View File

@@ -53,7 +53,7 @@ Class Main_Class extends ThumbWindow {
;Register all posible modifire combinations
prefixArr := ["","^","!", "#", "+", "+^", "+#", "+!", "^#", "^!","#!", "^+!", "^+#", "^#!", "+!#","^+#!"]
for index, prefix in prefixArr
Hotkey( prefix . Main_Class.virtualKey, ObjBindMethod(This, "ActivateForgroundWindow"), "P1")
Hotkey( prefix . Main_Class.virtualKey, ObjBindMethod(This, "ActivateForgroundWindow"), "S P1")
; Register Hotkey for Puase Hotkeys if the user has is Set
if (This.Suspend_Hotkeys_Hotkey != "") {

View File

@@ -4,7 +4,7 @@
This.NeedRestart := 0
SetControlDelay(-1)
This.S_Gui := Gui("+OwnDialogs +MinimizeBox -Resize -MaximizeBox -DPIScale SysMenu +MinSize500x250")
This.S_Gui := Gui("+OwnDialogs +MinimizeBox -Resize -MaximizeBox SysMenu +MinSize500x250")
This.S_Gui.Title := "EVE-X-Preview - Settings"
;Font options for the Buttons

View File

@@ -5,7 +5,7 @@ Class ThumbWindow extends Propertys {
Create_Thumbnail(Win_Hwnd, Win_Title) {
ThumbObj := Map()
ThumbObj["Window"] := Gui("+Owner +LastFound -Caption +ToolWindow -DPIScale +E0x08000000 " (This.ShowThumbnailsAlwaysOnTop ? "AlwaysOnTop" : "-AlwaysOnTop") , Win_Title) ;WS_EX_NOACTIVATE -> +E0x08000000
ThumbObj["Window"] := Gui("+Owner +LastFound -Caption +ToolWindow +E0x08000000 " (This.ShowThumbnailsAlwaysOnTop ? "AlwaysOnTop" : "-AlwaysOnTop") , Win_Title) ;WS_EX_NOACTIVATE -> +E0x08000000
ThumbObj["Window"].OnEvent("Close", GUI_Close_Button)
; The Backcolor which is visible when no thumbnail is displayed