Hi BarryG,
you have to change the #IMAGE_ICON to #IMAGE_BITMAP
Code: Select all
;SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_ICON, ImageID(0))
SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_BITMAP, ImageID(0))
and this is an running example (with a self made image!) ... I changed the window size to see the entire stuff!
Code: Select all
#BS_COMMANDLINK = $E
#BCM_SETNOTE = $1609
Procedure MakeTestImage(ImgID)
Protected k
If CreateImage(ImgID, 32, 32)
If StartDrawing(ImageOutput(ImgID))
DrawingMode(#PB_2DDrawing_Transparent)
Box(2,2,28,28, #Green)
Circle(4, 4,10, #Blue)
StopDrawing()
EndIf
EndIf
ProcedureReturn ImageID(ImgID)
EndProcedure
MakeTestImage(0)
OpenWindow(0, 100, 100, 250, 160, "Commandlink-Demo")
ButtonGadget(0, 10, 10, 225, 140, "Commandlink", #BS_COMMANDLINK)
SendMessage_(GadgetID(0), #BCM_SETNOTE, 0, "Subline(s)")
;SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_ICON, ImageID(0))
SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_BITMAP, ImageID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget :Debug "EventGadget: " + EventGadget()
EndSelect
ForEver
Mostly running PureBasic <latest stable version and current alpha/beta> (x64) on Windows 11 Home