Aeroの有無で描画見た目がどう変わるかのテスト | Codetter（こーどったー）

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
; HSP 3.4
#uselib "dwmapi"
#func DwmEnableComposition "DwmEnableComposition" int
    if (varptr(DwmEnableComposition) == 0) {
        dialog "Aero非対応です"
        end
    }
    c = "Aero OFF", "Aero ON"
    f = 1
    button gosub c, *btn
*mainLoop
    redraw 0
    color 255, 255, 255
    boxf
    color
    x = cos(0.04 * t) * 200 + 320
    y = sin(0.04 * t) * 200 + 240
    s = 10
    circle x - s, y - s, x + s, y + s
    if (t & 1) {
        x = 320
        y = 240
        s = 60
        circle  x - s, y - s, x + s, y + s
    }
    t++
    redraw
    await 20
    goto *mainLoop
*btn
    f ^= 1
    DwmEnableComposition f
    objprm 0, c
    return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX