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

; 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