Code: Select all
Enumeration
#tempimage
#window
#apic
EndEnumeration
OpenWindow(#window,0,0,800,600,"Test")
SetWindowColor(#window,RGB(200,20,20))
If CreateImage(#tempimage, 24, 24,32, #PB_Image_Transparent )
StartDrawing(ImageOutput(#tempimage))
Circle(12,12,12,RGB(0,200,0))
StopDrawing()
EndIf
ImageGadget(#apic,10,30,ImageWidth(#tempimage),ImageHeight(#tempimage),ImageID(#tempimage))