Code: Alles auswählen
#Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget
If InitSprite() = 0
MessageRequester("InitSprite fehlgeschlagen", "Programm endet")
EndIf
If OpenWindow(1,0,0,1366,700,"",#Flags) = 0
MessageRequester("OpenWindow fehlgeschlagen", "Programm endet")
EndIf
If OpenWindowedScreen(WindowID(1),0,0,1366,700) = 0
MessageRequester("OpenWindowedScreen fehlgeschlagen", "Programm endet")
EndIf
Repeat
Event = WindowEvent()
ClearScreen(RGB(0,0,0))
StartDrawing(ScreenOutput())
Box(0,0,1366,700,RGB(0,200,0)) ; grüner Hintergrund
StopDrawing()
UsePNGImageDecoder()
LoadSprite(1, "C:\Users\lenovo\Desktop\Vsl.png")
DisplaySprite(1,0,0)
FlipBuffers()
Until Event = #PB_Event_CloseWindow
End