Code: Select all
class _BtnColor extends Gui.Button
{
static __New() => super.Prototype.SetBackColor := ObjBindMethod(this, "SetBackColor")
/**
* @param {Gui.Button} myBtn omitted.
* @param {integer} btnBgColor Button's background color. (RGB)
* @param {integer} [colorBehindBtn] The color of the button's surrounding area. If omitted, if will be the same as `myGui.BackColor`. **(Usually let it be transparent looks better.)**
* @param {integer} [roundedCorner] Specifies the rounded corner preference for the button. If omitted, :
* > For Windows 11: Enabled. (value: 9)
* > For Windows 10: Disabled.
*/
static SetBackColor(myBtn, btnBgColor, colorBehindBtn?, roundedCorner?)
{
static BS_FLAT := 0x8000
static BS_BITMAP := 0x0080
static IS_WIN11 := (VerCompare(A_OSVersion, "10.0.22200") >= 0)
static WM_CTLCOLORBTN := 0x0135
static NM_CUSTOMDRAW := -12
static WM_DESTROY := 0x0002
static WS_EX_COMPOSITED := 0x02000000
static WS_CLIPSIBLINGS := 0x04000000
rcRgn := unset
clr := IsNumber(btnBgColor) ? btnBgColor : ColorHex(btnBgColor)
isDark := IsColorDark(clr)
hoverColor := RgbToBgr(BrightenColor(clr, isDark ? 15 : -15))
pushedColor := RgbToBgr(BrightenColor(clr, isDark ? -10 : 10))
clr := RgbToBgr(clr)
btnBkColr := (colorBehindBtn ?? !IS_WIN11) && RgbToBgr(ColorHex(myBtn.Gui.BackColor))
hbrush := (colorBehindBtn ?? !IS_WIN11) ? CreateSolidBrush(btnBkColr) : GetStockObject(5)
myBtn.Gui.Opt("+" WS_CLIPSIBLINGS)
myBtn.Gui.OnMessage(WM_CTLCOLORBTN, ON_WM_CTLCOLORBTN)
if btnBkColr
myBtn.Gui.OnEvent("Close", (*) => DeleteObject(hbrush))
myBtn.Opt("+" (WS_CLIPSIBLINGS | BS_FLAT | BS_BITMAP)) ;
myBtn.OnNotify(NM_CUSTOMDRAW, (gCtrl, lParam) => ON_NM_CUSTOMDRAW(gCtrl, lParam))
SetWindowTheme(myBtn.hwnd, isDark ? "DarkMode_Explorer" : "Explorer")
ON_WM_CTLCOLORBTN(GuiObj, wParam, lParam, Msg)
{
Critical(-1)
if (lParam != myBtn.hwnd)
return
if (colorBehindBtn ?? !IS_WIN11) {
SelectObject(wParam, hbrush)
SetBkMode(wParam, 0)
SetBkColor(wParam, btnBkColr)
}
return hbrush
}
first := 1
ON_NM_CUSTOMDRAW(gCtrl, lParam)
{
static CDDS_PREPAINT := 0x1
static CDDS_PREERASE := 0x3
static CDIS_HOT := 0x40
static CDRF_NOTIFYPOSTPAINT := 0x10
static CDRF_SKIPPOSTPAINT := 0x100
static CDRF_SKIPDEFAULT := 0x4
static CDRF_NOTIFYPOSTERASE := 0x40
static CDRF_DODEFAULT := 0x0
static DC_BRUSH := GetStockObject(18)
static DC_PEN := GetStockObject(19)
Critical(-1)
lpnmCD := StructFromPtr(NMCUSTOMDRAWINFO, lParam)
if (lpnmCD.hdr.code != NM_CUSTOMDRAW ||lpnmCD.hdr.hwndFrom != gCtrl.hwnd)
return CDRF_DODEFAULT
switch lpnmCD.dwDrawStage {
case CDDS_PREERASE:
{
if (roundedCorner ?? IS_WIN11) {
rcRgn := CreateRoundRectRgn(lpnmCD.rc.left, lpnmCD.rc.top, lpnmCD.rc.right, lpnmCD.rc.bottom, roundedCorner ?? 9, roundedCorner ?? 9)
SetWindowRgn(gCtrl.hwnd, rcRgn, 1)
}
SetBkMode(lpnmCD.hdc, 0)
return CDRF_NOTIFYPOSTERASE
}
case CDDS_PREPAINT:
{
isPressed := GetKeyState("LButton", "P")
brushColor := (!(lpnmCD.uItemState & CDIS_HOT) || first ? clr : isPressed ? pushedColor : hoverColor)
SelectObject(lpnmCD.hdc, DC_BRUSH)
SetDCBrushColor(lpnmCD.hdc, brushColor)
SelectObject(lpnmCD.hdc, DC_PEN)
SetDCPenColor(lpnmCD.hdc, !first && gCtrl.Focused && !isPressed ? 0xFFFFFF : brushColor)
rounded := !!(rcRgn ?? 0)
if (!first && gCtrl.Focused && !isPressed) {
if !rounded {
lpnmCD.rc.left += 1
lpnmCD.rc.top += 1
lpnmCD.rc.right -= 1
lpnmCD.rc.bottom -= 1
}
DrawFocusRect(lpnmCD.hdc, lpnmCD.rc)
}
if rounded {
RoundRect(lpnmCD.hdc, lpnmCD.rc.left, lpnmCD.rc.top, lpnmCD.rc.right - rounded, lpnmCD.rc.bottom - rounded, roundedCorner ?? 9, roundedCorner ?? 9)
DeleteObject(rcRgn)
rcRgn := ""
}
else {
FillRect(lpnmCD.hdc, lpnmCD.rc, DC_BRUSH)
}
if first
first := 0
SetWindowPos(mybtn.hwnd, 0,,,,, 0x4043)
return CDRF_NOTIFYPOSTPAINT
}}
return CDRF_DODEFAULT
}
static RgbToBgr(color) => (IsInteger(color) ? ((Color >> 16) & 0xFF) | (Color & 0x00FF00) | ((Color & 0xFF) << 16) : NUMBER(RegExReplace(STRING(color), "Si)c?(?:0x)?(?<R>\w{2})(?<G>\w{2})(?<B>\w{2})", "0x${B}${G}${R}")))
static CreateRoundRectRgn(nLeftRect, nTopRect, nRightRect, nBottomRect, nWidthEllipse, nHeightEllipse) => DllCall('Gdi32\CreateRoundRectRgn', 'int', nLeftRect, 'int', nTopRect, 'int', nRightRect, 'int', nBottomRect, 'int', nWidthEllipse, 'int', nHeightEllipse, 'ptr')
static CreateSolidBrush(crColor) => DllCall('Gdi32\CreateSolidBrush', 'uint', crColor, 'ptr')
static ColorHex(clr) => Number((!InStr(clr, "0x") ? "0x" : "") clr)
static DrawFocusRect(hDC, lprc) => DllCall("User32\DrawFocusRect", "ptr", hDC, "ptr", lprc, "int")
static GetStockObject(fnObject) => DllCall('Gdi32\GetStockObject', 'int', fnObject, 'ptr')
static SetWindowPos(hWnd, hWndInsertAfter, X := 0, Y := 0, cx := 0, cy := 0, uFlags := 0x40) => DllCall("User32\SetWindowPos", "ptr", hWnd, "ptr", hWndInsertAfter, "int", X, "int", Y, "int", cx, "int", cy, "uint", uFlags, "int")
static SetDCPenColor(hdc, crColor) => DllCall('Gdi32\SetDCPenColor', 'ptr', hdc, 'uint', crColor, 'uint')
static SetDCBrushColor(hdc, crColor) => DllCall('Gdi32\SetDCBrushColor', 'ptr', hdc, 'uint', crColor, 'uint')
static SetWindowRgn(hWnd, hRgn, bRedraw) => DllCall("User32\SetWindowRgn", "ptr", hWnd, "ptr", hRgn, "int", bRedraw, "int")
static DeleteObject(hObject) {
DllCall('Gdi32\DeleteObject', 'ptr', hObject, 'int')
}
static FillRect(hDC, lprc, hbr) => DllCall("User32\FillRect", "ptr", hDC, "ptr", lprc, "ptr", hbr, "int")
static IsColorDark(clr) =>
( (clr >> 16 & 0xFF) / 255 * 0.2126
+ (clr >> 8 & 0xFF) / 255 * 0.7152
+ (clr & 0xFF) / 255 * 0.0722 < 0.5 )
static RGB(R := 255, G := 255, B := 255) => ((R << 16) | (G << 8) | B)
static BrightenColor(clr, perc := 5) => ((p := perc / 100 + 1), RGB(Round(Min(255, (clr >> 16 & 0xFF) * p)), Round(Min(255, (clr >> 8 & 0xFF) * p)), Round(Min(255, (clr & 0xFF) * p))))
static RoundRect(hdc, nLeftRect, nTopRect, nRightRect, nBottomRect, nWidth, nHeight) => DllCall('Gdi32\RoundRect', 'ptr', hdc, 'int', nLeftRect, 'int', nTopRect, 'int', nRightRect, 'int', nBottomRect, 'int', nWidth, 'int', nHeight, 'int')
static SetTextColor(hdc, color) => DllCall("SetTextColor", "Ptr", hdc, "UInt", color)
static SetWindowTheme(hwnd, appName, subIdList?) => DllCall("uxtheme\SetWindowTheme", "ptr", hwnd, "ptr", StrPtr(appName), "ptr", subIdList ?? 0)
static SelectObject(hdc, hgdiobj) => DllCall('Gdi32\SelectObject', 'ptr', hdc, 'ptr', hgdiobj, 'ptr')
static SetBkColor(hdc, crColor) => DllCall('Gdi32\SetBkColor', 'ptr', hdc, 'uint', crColor, 'uint')
static SetBkMode(hdc, iBkMode) => DllCall('Gdi32\SetBkMode', 'ptr', hdc, 'int', iBkMode, 'int')
}
}
Dark Theme for Everything
Get Code
