Code: Select all
OpenWindow(0,0,0,300,300,"Test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
CanvasGadget(1,0,0,300,300)
CreateImage(2,300,300,32,#PB_Image_Transparent)
StartDrawing(ImageOutput(2))
Box(100,100,100,100,RGB(255,0,0))
StopDrawing()
StartDrawing(CanvasOutput(1))
Box(0,0,300,300,GetSysColor_(15))
DrawingMode(#PB_2DDrawing_AlphaBlend)
DrawImage(ImageID(2),0,0)
StopDrawing()
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow