Code: Alles auswählen
If OpenWindow(0,0,0,300,300,"",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered) = 0
MessageRequester("OpenWindow failed", "")
EndIf
CreateImage(0,300,300)
StartDrawing(ImageOutput(0))
Box(100,100,100,100,RGB(100,100,220))
StopDrawing()
Repeat
event = WaitWindowEvent(5)
Until event = #PB_Event_CloseWindow