AutoHotkey Community

Code: Select all

; ===============================================================
; Functions:
; 	EnableWater(ParentHwnd, BMP, x = 0, y = 0, WaterRadius = 3, WaterHeight = 20)
; 	WaterBlob(x = 0, y = 0, WaterRadius = 30, WaterHeight = 30)
; 	SetWaterParent(ParentHwnd)
; 	FlattenWater()
; 	DisableWater()
; 	Free()
; ===============================================================
Class WaterCtrl
{
	static hModule := DllCall("LoadLibrary", "Str", "waterctrl.dll")

	EnableWater(ParentHwnd, BMP, x = 0, y = 0, WaterRadius = 3, WaterHeight = 20) {
		hBITMAP := FileExist(BMP) ? This.Image2hBITMAP(BMP) : BMP
		Return, DllCall("waterctrl\enablewater"
		                , "Int", ParentHwnd
		                , "Int", x
		                , "Int", y
		                , "Int", hBITMAP
		                , "Int", WaterRadius
		                , "Int", WaterHeight)
	}

	WaterBlob(x = 0, y = 0, WaterRadius = 30, WaterHeight = 30) {
		Return, DllCall("waterctrl\waterblob"
		                , "Int", x
		                , "Int", y
		                , "Int", WaterRadius
		                , "Int", WaterHeight)
	}

	SetWaterParent(ParentHwnd) {
		Return, DllCall("waterctrl\setwaterparent", "Int", ParentHwnd)
	}

	FlattenWater() {
		Return, DllCall("waterctrl\flattenwater")
	}

	DisableWater() {
		Return, DllCall("waterctrl\disablewater")
	}

	Free() {
		This.DisableWater()
		DllCall("FreeLibrary", "Ptr", This.hModule)
	}

	Image2hBITMAP(ImageFile) {
		Return, DllCall("LoadImage", "Int", 0, "Str", ImageFile, "UInt", 0, "Int", 0, "Int", 0, "UInt", 0x2010)
	}
}