Auto generate button images.

Fix memory leak.
Update button generator.

Author: vmartinez

LibreDeck Client.ahk

@@ -2,7 +2,7 @@
 ; Requires AutoHotkeyU32
 ;@Ahk2Exe-SetName LibreDeck Client
 ;@Ahk2Exe-SetDescription Macro Panel Client
-;@Ahk2Exe-SetVersion 4.0.5
+;@Ahk2Exe-SetVersion 4.0.7
 ;@Ahk2Exe-SetCopyright 2026`, elModo7 - VictorDevLog
 ;@Ahk2Exe-SetOrigFilename LibreDeck Client.exe
 ; INITIALIZE
@@ -54,7 +54,7 @@ SetBatchLines, -1
 #Include <plugin_system>
 #Include <LibreDeckButtonImage>
 rutaSplash = ./resources/img/splash.png
-global ClientVersionNumber := "4.0.5"
+global ClientVersionNumber := "4.0.7"
 global ClientVersion := ClientVersionNumber " - elModo7 / VictorDevLog " A_YYYY
 SplashScreen(rutaSplash, 3000, 545, 160, 0, 0, true)
 global EsVisible = true
@@ -1095,6 +1095,18 @@ GenerarImagenBotonDefault(IdBoton)
 	buttonImageStyle := GenerarImagenBotonDefaultSeleccionarEstilo()
 	if(buttonImageStyle = "")
 		return
+	
+	if (buttonImageStyle == "image") {
+		FileSelectFile, imageSelected, 3,, Select image, *.png; *.jpg; *.jpeg; *.bmp; *.gif; *.ico
+		if (!ErrorLevel) {
+			buttonImagePath := imageSelected
+			buttonImageFit := "cover" ; cover | contain | stretch
+		} else {
+			MsgBox,,Error, Could not generate button image.
+			return
+		}
+	}
+	
 	Gui, 1:Default
 
 	outDir := A_ScriptDir "\resources\img"
@@ -1118,10 +1130,18 @@ GenerarImagenBotonDefault(IdBoton)
 	btnPics[imageName] := ""
 	FileDelete, %imagePath%
 
-	if(!LD_ButtonImage_Render(imagePath, {style:buttonImageStyle, title:buttonImageType, value:buttonImageTitle, subtitle:buttonImageSubtitle}))
-	{
-		MsgBox,,Error, Could not generate button image.
-		return
+	if (buttonImageStyle == "image") {
+		if(!LD_ButtonImage_Render(imagePath, {style:buttonImageStyle, imagePath:buttonImagePath, imageFit:buttonImageFit, title:buttonImageType, subtitle:buttonImageSubtitle}))
+		{
+			MsgBox,,Error, Could not generate button image.
+			return
+		}
+	} else {
+		if(!LD_ButtonImage_Render(imagePath, {style:buttonImageStyle, title:buttonImageType, value:buttonImageTitle, subtitle:buttonImageSubtitle}))
+		{
+			MsgBox,,Error, Could not generate button image.
+			return
+		}
 	}
 
 	btnPics[imageName] := LoadPicture(imagePath)
@@ -1175,7 +1195,7 @@ GenerarImagenBotonDefaultSeleccionarEstilo()
 	Gui, ButtonImageStyle:New, +AlwaysOnTop +ToolWindow +OwnDialogs, Button Image Style
 	Gui, ButtonImageStyle:Margin, 12, 12
 	Gui, ButtonImageStyle:Add, Text, w260, Choose button image style:
-	Gui, ButtonImageStyle:Add, DropDownList, vLD_ButtonImage_SelectedStyle w260 Choose6, neon|resident|warning|pokemon|glass|minimal
+	Gui, ButtonImageStyle:Add, DropDownList, vLD_ButtonImage_SelectedStyle w260 Choose6, neon|resident|warning|pokemon|glass|minimal|image
 	Gui, ButtonImageStyle:Add, Button, x70 y80 w80 Default gButtonImageStyleOK, OK
 	Gui, ButtonImageStyle:Add, Button, x160 y80 w80 gButtonImageStyleCancel, Cancel
 	Gui, ButtonImageStyle:Show,, Button Image Style
@@ -1837,6 +1857,8 @@ setButtonIcon(buttonId, imagePathOrName) {
 	else
 		curBtn := CarpetaBoton 15*NumeroPagina+buttonId ".png"
 
+	if (btnPics[curBtn]) 
+		DllCall("DeleteObject", "ptr", btnPics[curBtn]) ; Dispose image from memory
 	btnPics[curBtn] := LoadPicture(imagePathOrName)
 	GuiControl, Text, Boton%buttonId%, % btnPics[curBtn] ? "HBITMAP:*" btnPics[curBtn] : imagePathOrName
 	if(conf.miniClient)

LibreDeck Client.exe

@@ -1,7 +1,7 @@
 ; LibreDeckButtonImage.ahk
 ; AutoHotkey v1 library for generating configurable PNG button images.
 ; Self-contained: uses Windows GDI+ directly, no Gdip_All.ahk required.
-; Version: 0.1.1
+; Version: 0.1.3
 
 ; -----------------------------------------------------------------------------
 ; Public API
@@ -40,6 +40,7 @@ LD_ButtonImage_Render(outputPath, cfg := "") {
     valueColor := LD_Color(LD_Cfg(cfg, "valueColor", style.valueColor))
     borderColor := LD_Color(LD_Cfg(cfg, "borderColor", style.borderColor))
     shadowColor := LD_Color(LD_Cfg(cfg, "shadowColor", style.shadowColor))
+    transparentOutside := LD_Cfg(cfg, "transparentOutside", style.transparentOutside)
 
     font := LD_Cfg(cfg, "font", "Segoe UI")
     titleSize := LD_Cfg(cfg, "titleSize", style.titleSize)
@@ -57,6 +58,13 @@ LD_ButtonImage_Render(outputPath, cfg := "") {
     value := LD_Cfg(cfg, "value", "")
     subtitle := LD_Cfg(cfg, "subtitle", "")
     iconPath := LD_Cfg(cfg, "iconPath", "")
+    imagePath := LD_Cfg(cfg, "imagePath", LD_Cfg(cfg, "backgroundImagePath", ""))
+    imageFit := StrLower(Trim(LD_Cfg(cfg, "imageFit", style.imageFit))) ; cover | contain | stretch
+    imageOpacity := LD_Cfg(cfg, "imageOpacity", style.imageOpacity)
+    overlayColor := LD_Color(LD_Cfg(cfg, "overlayColor", style.overlayColor))
+    textShadowColor := LD_Color(LD_Cfg(cfg, "textShadowColor", style.textShadowColor))
+    textBoxColor := LD_Color(LD_Cfg(cfg, "textBoxColor", style.textBoxColor))
+    textBoxPadding := LD_Cfg(cfg, "textBoxPadding", style.textBoxPadding)
     progress := LD_Cfg(cfg, "progress", "")
 
     pBitmap := LD_Gdip_CreateBitmap(width, height)
@@ -66,14 +74,32 @@ LD_ButtonImage_Render(outputPath, cfg := "") {
     G := LD_Gdip_GraphicsFromImage(pBitmap)
     LD_Gdip_SetSmoothingMode(G, 4)
     LD_Gdip_SetInterpolationMode(G, 7)
-    LD_Gdip_GraphicsClear(G, bgColor)
 
-    if (styleName = "glass")
-        LD_DrawGlassLayer(G, width, height)
+    contentX := 4
+    contentY := 4
+    contentW := width - 8
+    contentH := height - 8
+
+    ; If transparentOutside is enabled, the PNG canvas outside the rounded
+    ; button remains transparent instead of being filled with bgColor.
+    LD_Gdip_GraphicsClear(G, transparentOutside ? 0x00000000 : bgColor)
 
     if (shadowColor)
         LD_FillRoundedRect(G, 7, 8, width - 14, height - 14, radius, shadowColor)
 
+    ; Paint the actual button background only inside the rounded rectangle.
+    LD_FillRoundedRect(G, contentX, contentY, contentW, contentH, radius, bgColor)
+
+    if (imagePath != "" && FileExist(imagePath)) {
+        LD_Gdip_SetClipRoundedRect(G, contentX, contentY, contentW, contentH, radius)
+        LD_DrawImageFileFit(G, imagePath, contentX, contentY, contentW, contentH, imageFit, imageOpacity)
+        LD_Gdip_ResetClip(G)
+        if (overlayColor)
+            LD_FillRoundedRect(G, contentX, contentY, contentW, contentH, radius, overlayColor)
+    } else if (styleName = "glass") {
+        LD_DrawGlassLayer(G, width, height)
+    }
+
     if (border > 0)
         LD_DrawRoundedRect(G, borderColor, border, 4, 4, width - 8, height - 8, radius)
 
@@ -88,14 +114,29 @@ LD_ButtonImage_Render(outputPath, cfg := "") {
         LD_DrawImageFile(G, iconPath, iconX, iconY, iconW, iconH)
     }
 
-    if (title != "")
+    if (textBoxColor) {
+        boxY := LD_Cfg(cfg, "textBoxY", titleY - textBoxPadding)
+        boxH := LD_Cfg(cfg, "textBoxH", height - boxY - 12)
+        LD_FillRoundedRect(G, 10, boxY, width - 20, boxH, LD_Min(radius, 10), textBoxColor)
+    }
+
+    if (title != "") {
+        if (textShadowColor)
+            LD_DrawText(G, title, font, titleSize, textShadowColor, 9, titleY + 2, width - 16, 26, 1, 1, 1)
         LD_DrawText(G, title, font, titleSize, textColor, 8, titleY, width - 16, 26, 1, 1, 1)
+    }
 
-    if (value != "")
+    if (value != "") {
+        if (textShadowColor)
+            LD_DrawText(G, value, font, valueSize, textShadowColor, 5, valueY + 2, (valueX ? valueX : width - 8), 54, 1, 1, 1)
         LD_DrawText(G, value, font, valueSize, valueColor, 4, valueY, (valueX ? valueX : width - 8), 54, 1, 1, 1)
+    }
 
-    if (subtitle != "")
+    if (subtitle != "") {
+        if (textShadowColor)
+            LD_DrawText(G, subtitle, font, subtitleSize, textShadowColor, 9, subtitleY + 2, width - 16, 22, 1, 1, 0)
         LD_DrawText(G, subtitle, font, subtitleSize, textColor, 8, subtitleY, width - 16, 22, 1, 1, 0)
+    }
 
     if (progress != "")
         LD_DrawProgress(G, progress, 14, height - 17, width - 28, 6, accentColor, 0x55333333)
@@ -120,6 +161,16 @@ LD_ButtonImage_RenderInventorySlot(outputPath, itemName, amount := "", iconPath
     return LD_ButtonImage_Render(outputPath, cfg)
 }
 
+LD_ButtonImage_RenderImageButton(outputPath, imagePath, title := "", subtitle := "", cfg := "") {
+    if (!IsObject(cfg))
+        cfg := {}
+    cfg.style := LD_Cfg(cfg, "style", "image")
+    cfg.imagePath := imagePath
+    cfg.title := title
+    cfg.subtitle := subtitle
+    return LD_ButtonImage_Render(outputPath, cfg)
+}
+
 ; -----------------------------------------------------------------------------
 ; Styles
 ; -----------------------------------------------------------------------------
@@ -145,6 +196,13 @@ LD_ButtonImage_GetStyle(name) {
     s.iconH := 76
     s.iconY := 28
     s.accentStrip := true
+    s.imageFit := "cover"
+    s.imageOpacity := 100
+    s.overlayColor := "0x00000000"
+    s.textShadowColor := "0x00000000"
+    s.textBoxColor := "0x00000000"
+    s.textBoxPadding := 8
+    s.transparentOutside := true
 
     if (name = "minimal") {
         s.bgColor := "0xFF202020"
@@ -198,6 +256,31 @@ LD_ButtonImage_GetStyle(name) {
         s.titleSize := 15
         s.valueSize := 30
         s.accentStrip := true
+    } else if (name = "image") {
+        s.bgColor := "0xFF000000"
+        s.accentColor := "0xFFFFFFFF"
+        s.textColor := "0xFFFFFFFF"
+        s.valueColor := "0xFFFFFFFF"
+        s.borderColor := "0x99FFFFFF"
+        s.shadowColor := "0x77000000"
+        s.titleSize := 18
+        s.valueSize := 28
+        s.subtitleSize := 12
+        s.border := 2
+        s.radius := 14
+        s.titleY := 84
+        s.valueY := 54
+        s.iconW := 0
+        s.iconH := 0
+        s.iconY := 0
+        s.accentStrip := false
+        s.imageFit := "cover"
+        s.imageOpacity := 100
+        s.overlayColor := "0x33000000"
+        s.textShadowColor := "0xCC000000"
+        s.textBoxColor := "0x66000000"
+        s.textBoxPadding := 8
+        s.transparentOutside := true
     } else if (name = "dark") {
         s.bgColor := "0xFF050505"
         s.accentColor := "0xFF666666"
@@ -242,6 +325,40 @@ LD_DrawImageFile(G, path, x, y, w, h) {
     return true
 }
 
+LD_DrawImageFileFit(G, path, x, y, w, h, fit := "cover", opacity := 100) {
+    pImg := LD_Gdip_CreateBitmapFromFile(path)
+    if (!pImg)
+        return false
+
+    imgW := LD_Gdip_GetImageWidth(pImg)
+    imgH := LD_Gdip_GetImageHeight(pImg)
+    if (imgW <= 0 || imgH <= 0) {
+        LD_Gdip_DisposeImage(pImg)
+        return false
+    }
+
+    fit := StrLower(Trim(fit))
+    if (fit = "stretch") {
+        dx := x, dy := y, dw := w, dh := h
+    } else {
+        scaleX := w / imgW
+        scaleY := h / imgH
+        scale := (fit = "contain") ? LD_Min(scaleX, scaleY) : LD_Max(scaleX, scaleY)
+        dw := Round(imgW * scale)
+        dh := Round(imgH * scale)
+        dx := x + Round((w - dw) / 2)
+        dy := y + Round((h - dh) / 2)
+    }
+
+    if (opacity >= 100)
+        LD_Gdip_DrawImage(G, pImg, dx, dy, dw, dh)
+    else
+        LD_Gdip_DrawImageOpacity(G, pImg, dx, dy, dw, dh, opacity)
+
+    LD_Gdip_DisposeImage(pImg)
+    return true
+}
+
 LD_DrawText(G, text, fontName, size, color, x, y, w, h, align := 1, vAlign := 1, bold := 0) {
     pBrush := LD_Gdip_BrushCreateSolid(color)
     pFamily := LD_Gdip_FontFamilyCreate(fontName)
@@ -287,6 +404,14 @@ LD_Gdip_CreateRoundedRectPath(x, y, w, h, r) {
     return pPath
 }
 
+LD_Min(a, b) {
+    return (a < b) ? a : b
+}
+
+LD_Max(a, b) {
+    return (a > b) ? a : b
+}
+
 ; -----------------------------------------------------------------------------
 ; Config helpers
 ; -----------------------------------------------------------------------------
@@ -410,6 +535,56 @@ LD_Gdip_DrawImage(G, pBitmap, x, y, w, h) {
     return DllCall("gdiplus\GdipDrawImageRectI", "UPtr", G, "UPtr", pBitmap, "Int", x, "Int", y, "Int", w, "Int", h)
 }
 
+LD_Gdip_DrawImageOpacity(G, pBitmap, x, y, w, h, opacity := 100) {
+    if (opacity < 0)
+        opacity := 0
+    if (opacity > 100)
+        opacity := 100
+    alpha := opacity / 100.0
+
+    VarSetCapacity(matrix, 100, 0)
+    NumPut(1.0, matrix, 0, "Float")
+    NumPut(1.0, matrix, 24, "Float")
+    NumPut(1.0, matrix, 48, "Float")
+    NumPut(alpha, matrix, 72, "Float")
+    NumPut(1.0, matrix, 96, "Float")
+
+    imgAttr := 0
+    DllCall("gdiplus\GdipCreateImageAttributes", "UPtrP", imgAttr)
+    DllCall("gdiplus\GdipSetImageAttributesColorMatrix", "UPtr", imgAttr, "Int", 1, "Int", 1, "UPtr", &matrix, "UPtr", 0, "Int", 0)
+
+    DllCall("gdiplus\GdipDrawImageRectRectI"
+        , "UPtr", G, "UPtr", pBitmap
+        , "Int", x, "Int", y, "Int", w, "Int", h
+        , "Int", 0, "Int", 0, "Int", LD_Gdip_GetImageWidth(pBitmap), "Int", LD_Gdip_GetImageHeight(pBitmap)
+        , "Int", 2, "UPtr", imgAttr, "UPtr", 0, "UPtr", 0)
+
+    return DllCall("gdiplus\GdipDisposeImageAttributes", "UPtr", imgAttr)
+}
+
+LD_Gdip_GetImageWidth(pBitmap) {
+    w := 0
+    DllCall("gdiplus\GdipGetImageWidth", "UPtr", pBitmap, "UIntP", w)
+    return w
+}
+
+LD_Gdip_GetImageHeight(pBitmap) {
+    h := 0
+    DllCall("gdiplus\GdipGetImageHeight", "UPtr", pBitmap, "UIntP", h)
+    return h
+}
+
+LD_Gdip_SetClipRoundedRect(G, x, y, w, h, r) {
+    pPath := LD_Gdip_CreateRoundedRectPath(x, y, w, h, r)
+    result := DllCall("gdiplus\GdipSetClipPath", "UPtr", G, "UPtr", pPath, "Int", 0)
+    LD_Gdip_DeletePath(pPath)
+    return result
+}
+
+LD_Gdip_ResetClip(G) {
+    return DllCall("gdiplus\GdipResetClip", "UPtr", G)
+}
+
 LD_Gdip_SaveBitmapToFile(pBitmap, path) {
     VarSetCapacity(clsid, 16, 0)
     ; PNG encoder CLSID: {557CF406-1A04-11D3-9A73-0000F81EF32E}

lib/LibreDeckButtonImage.ahk

@@ -1,15 +1,15 @@
-; Version: 0.3.1
+; Version: 0.3.2
 ; Color param is deprecated!
-#Include %A_WorkingDir%\lib\talk.ahk
+#Include <talk>
 nmMsg(nmMsg, time:=1, region:=0, color:="FFFFFF")
 {
 	detectHiddenWindowsPrev := A_DetectHiddenWindows
 	DetectHiddenWindows, On
 	if (WinExist("ahk_exe LibreDeck Client.exe")) {
 		region := region ? "top" : "bottom"
-		receiver := new talk("LibreDeck Client.exe")
-		receiver.setVar("incomingNotification", "{""text"": """ nmMsg """, ""duration"": " time*1000 ", ""region"": """ region """}")
-		receiver.runlabel("showIncomingNotification")
+		receiver := new talk("ahk_exe LibreDeck Client.exe")
+		receiver.setVar("incomingNotification", "{""text"": """ nmMsg """, ""duration"": " time*1000 ", ""region"": """ region """}", 0)
+		receiver.runlabel("showIncomingNotification", 0)
 	}
 	DetectHiddenWindows, % detectHiddenWindowsPrev
 }