I was looking today how to add text to the buttons along with icon and I found that there is doucmentation error in MSDN (as always...
) that this is natively supported while it is not. Ownerdrawn buttons are the only way, it seems, and I kinda hesistate to do all that for simple thing when its easier to create image with text.
Anyway, while trying to do that i created my own version of this function. Here it is:
Code:
#singleinstance, force
loop, 5
{
Gui, Add, Button, HWNDhBtn 0x8000 w100 h40
Button_Image(hbtn, A_WinDir "\system32\shell32.dll:" A_Index)
}
gui, show
return
/*-----------------------------------------------------------------------
Function: Image
Adds image to the button
Parameters:
Image - Path to the image file (bmp, ico, dll, icl) or image handle. Specify path:idx to extract icon from the icon resource.
Size - Size of the image, by default 32
Returns:
Handle to the image
*/
Button_Image(hBtn, Image, Size=32){
static BM_SETIMAGE=247, IMAGE_ICON=2, BS_ICON=0x40
if Image is not integer
{
j := InStr(Image, ":", 0, 0), idx := 1
if j > 2
idx := Substr( Image, j+1), pPath := SubStr( Image, 1, j-1)
DllCall("PrivateExtractIcons","str",pPath,"int",idx-1,"int",Size,"int",Size,"uint*",hIco,"uint*",0,"uint",1,"uint",0,"int")
ifEqual, hIco, 0, return A_ThisFunc " >> Can't load image: " Image
} else hIco := Image
WinSet, Style, +%BS_ICON%, ahk_id %hBtn%
SendMessage, BM_SETIMAGE, IMAGE_ICON, hIco, , ahk_id %hBtn%
if ErrorLevel
DllCall("DeleteObject", "UInt", ErrorLevel)
return hImg
}
This doesn't work:
MSDN wrote:
The appearance of text, an icon, or both on a button control depends on the BS_ICON and BS_BITMAP styles, and whether the BM_SETIMAGE message is called. The possible results are as follows:
BS_ICON or BS_BITMAP Set? BM_SETIMAGE Called? Result
Yes Yes Show icon only.
No Yes Show icon and text.
Yes No Show text only.
No No Show text only
Login
Register
FAQ
Search
