@Trond:
You are right!
Here is some modified code i test for using 48x48 images.
Code: Select all
;Modified from Sparkie's code
#TB_SETIMAGELIST = #WM_USER + 48
#TB_GETIMAGELIST = #WM_USER + 49
UsePNGImageDecoder()
Procedure MakeLong(lo.w, hi.w)
ProcedureReturn (hi * $10000) | (lo & $FFFF)
EndProcedure
;Your own 48x48 png images for toolbar with alpha showing
LoadImage(0, "F:\Inconos Alta Calidad\48x48\accept.png")
LoadImage(1, "F:\Inconos Alta Calidad\48x48\add.png")
LoadImage(2, "F:\Inconos Alta Calidad\48x48\attachment.png")
If OpenWindow(0, 0, 0, 350, 250,"", #PB_Window_SystemMenu |#PB_Window_SizeGadget | #PB_Window_ScreenCentered)
hTB = CreateToolBar(0, WindowID(0))
hOldIList = SendMessage_(hTB, #TB_GETIMAGELIST, 0, 0);
hNewIList = ImageList_Duplicate_(hOldIList)
ImageList_Destroy_(hOldIList)
ImageList_SetIconSize_(hNewIList, 48, 48)
SendMessage_(hTB, #TB_SETIMAGELIST, 0, hNewIList)
SendMessage_(hTB, #TB_SETBITMAPSIZE, 0, MakeLong(48,48))
SendMessage_(hTB, #TB_SETBUTTONSIZE, 0, MakeLong(48,48))
SendMessage_(hTB, #TB_AUTOSIZE, 0, 0)
ToolBarImageButton(0, ImageID(0))
ToolBarImageButton(1, ImageID(1))
ToolBarImageButton(2, ImageID(2))
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Menu
EndIf
Until EventID = #PB_Event_CloseWindow
ImageList_Destroy_(hNewIList)
EndIf