Code: Alles auswählen
#xx = 200
#yy = 200
#image = 5
CreateImage(#image, #xx, #yy)
#flags = #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered
Window = OpenWindow(0, 0, 0, #xx + 10, #yy + 10, #flags, "Test")
CreateGadgetList(Window)
ImageGadget(0, 5, 5, #xx, #yy, UseImage(#image))
StartDrawing(ImageOutput())
LineXY(0, 0, #xx, #yy, RGB(255,255,0))
StopDrawing()
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow