Habe mir eine eigene Procedure geschrieben.
Code: Alles auswählen
;-IconButton Procedure
Procedure CreateIconButton(win_hwnd,x,y,xicon,yicon,widt,heig,ico,BText$,iconadr)
img=CreateImage(#PB_Any,widt,heig)
BIcon=CatchImage(#PB_Any,iconadr)
StartDrawing(ImageOutput(img))
Box(0,0,widt,heig,GetSysColor_(#COLOR_BTNFACE))
DrawingMode(#PB_2DDrawing_Transparent)
DrawImage(ImageID(BIcon),xicon,yicon)
DrawText(xicon+20,heig/2-8,BText$)
StopDrawing()
UseGadgetList(WindowID(win_hwnd))
Buttonerg=ButtonImageGadget(#PB_Any,x,y,widt,heig,ImageID(img))
ProcedureReturn Buttonerg
EndProcedure
;-End ButtonIcon
Das hier kommt in die Gadgetlist:
Code: Alles auswählen
iconbutt1=CreateIconButton(#Window_0,10,340,5,8,100,30,0,"Speichern",?iconsav)