SetScale/setscale_v1.ahk at main · valekseev/SetScale · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
; AHK v1 — per-monitor scale

; Examples:
; SetScale(100)       ; set primary monitor to 100%
; SetScale(250, 2)    ; set monitor #2 to 250%

SetScale(scalePercent, monitorIndex := 1) {
    static ScaleValues := [100,125,150,175,200,225,250,300,350,400,450,500]
    static QDC_ONLY_ACTIVE_PATHS := 0x2

    ; find desired index
    idx := -1
    for i, v in ScaleValues {
        if (v = scalePercent) {
            idx := i - 1
            break
        }
    }
    if (idx < 0)
        return 0

    ; get buffer sizes for paths and modes
    VarSetCapacity(pathCount, 4)
    VarSetCapacity(modeCount, 4)
    if DllCall("user32\GetDisplayConfigBufferSizes"
        , "UInt", QDC_ONLY_ACTIVE_PATHS
        , "UIntP", pathCount
        , "UIntP", modeCount)
        return 0
    totalPaths := NumGet(pathCount, 0, "UInt")
    totalModes := NumGet(modeCount, 0, "UInt")
    if (monitorIndex < 1 || monitorIndex > totalPaths)
        return 0

    ; allocate buffers
    pathSize := 72, modeSize := 64
    VarSetCapacity(pathBuf, totalPaths * pathSize)
    VarSetCapacity(modeBuf, totalModes * modeSize)

    ; query active display config
    if DllCall("user32\QueryDisplayConfig"
        , "UInt", QDC_ONLY_ACTIVE_PATHS
        , "UIntP", pathCount
        , "Ptr", &pathBuf
        , "UIntP", modeCount
        , "Ptr", &modeBuf
        , "Ptr", 0)
        return 0

    ; extract adapter/source info
    offset := (monitorIndex - 1) * pathSize
    adapterLow  := NumGet(pathBuf, offset + 0, "UInt")
    adapterHigh := NumGet(pathBuf, offset + 4, "Int")
    sourceId    := NumGet(pathBuf, offset + 8, "UInt")

    ; GET (-3): retrieve min/max relative scale steps
    VarSetCapacity(getPkt, 0x20)
    NumPut(-3,        getPkt, 0,   "Int")
    NumPut(0x20,      getPkt, 4,   "UInt")
    NumPut(adapterLow,  getPkt, 8,  "UInt")
    NumPut(adapterHigh, getPkt, 12, "Int")
    NumPut(sourceId,    getPkt, 16, "UInt")
    if DllCall("user32\DisplayConfigGetDeviceInfo", "Ptr", &getPkt)
        return 0
    minRel := NumGet(getPkt, 20, "Int")
    maxRel := NumGet(getPkt, 28, "Int")

    ; calculate relative index
    relIndex := idx - Abs(minRel)
    if (relIndex < minRel)
        relIndex := minRel
    if (relIndex > maxRel)
        relIndex := maxRel

    ; SET (-4): apply new scale
    VarSetCapacity(setPkt, 0x18)
    NumPut(-4,       setPkt, 0,   "Int")
    NumPut(0x18,     setPkt, 4,   "UInt")
    NumPut(adapterLow, setPkt, 8,  "UInt")
    NumPut(adapterHigh,setPkt,12, "Int")
    NumPut(sourceId,   setPkt,16, "UInt")
    NumPut(relIndex,   setPkt,20, "Int")
    if DllCall("user32\DisplayConfigSetDeviceInfo", "Ptr", &setPkt)
        return 0

    ; notify shell and apps
    DllCall("user32\PostMessage", "Ptr", 0xFFFF, "UInt", 0x007E, "Ptr", 0, "Ptr", 0)
    DllCall("user32\PostMessage", "Ptr", 0xFFFF, "UInt", 0x001A, "Ptr", 0, "Ptr", 0)

    return 1
}