写脚本有时候需要选择颜色,在AutoHotkey论坛上看到了 ChooseColor 函数,由于原来的算法有点麻烦,我稍微调整了下分享出来。
并增加了 argb 的选项(不过生成的都是完全不透明的颜色,有需求的可自行调整)
以下是AutoHotkey v2 beta版代码
; https://docs.microsoft.com/en-us/windows/win32/api/commdlg/ns-commdlg-choosecolora-r1
;系统的调色板选择颜色
selectColor(bARGB:=false, bRGB:=true) { ; CC_FULLOPEN := 0x2
CC := buffer(36+64, 0)
numput("UPtr", 36, CC)
numput("UPtr", hOwner:=0, CC, A_PtrSize)
numput("UPtr", clDefault:=0, CC, A_PtrSize * 3)
numput("UPtr", CC.ptr+36, CC, A_PtrSize * 4) ; COLORREF *lpCustColors
numput("UPtr", flags:=3, CC, A_PtrSize * 5)
DllCall("comdlg32\ChooseColorA", "Ptr",CC)
if bRGB {
nBGR := numget(CC, A_PtrSize * 3, "UPtr")
cl := (nBGR & 0xFF) << 16 | nBGR & 0x0000FF00 | nBGR >> 16
} else
cl := numget(CC, A_PtrSize * 3, "UPtr")
res := bARGB ? (0xff000000 | cl) : cl ;转成 argb,透明度为ff(完全不透明),可自行修改
return res
}