Code: Select all
window_ID=OpenWindow(#PB_Any, 0, 0, 400, 400, "")
canvas_ID=CanvasGadget(#PB_Any, 0, 0, 400, 400)
image_ID=CreateImage(#PB_Any, 400, 400, 32, $FF)
SetGadgetAttribute(canvas_ID, #PB_Button_Image, ImageID(image_ID))
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow