Code: Alles auswählen
#Window1 = 1
#Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered
If InitSprite() = 0
MessageRequester("InitSprite fehlgeschlagen", "Programm endet")
EndIf
If InitMouse() = 0
MessageRequester("InitMouse fehlgeschlagen", "Programm endet")
EndIf
If InitKeyboard() = 0
MessageRequester("InitKeyboard fehlgeschlagen", "Programm endet")
EndIf
If OpenWindow(1,0,0,800,412,"",#Flags) = 0
MessageRequester("OpenWindow fehlgeschlagen", "Programm endet")
EndIf
If OpenWindowedScreen(WindowID(1),0,0,800,412) = 0
MessageRequester("OpenWindowedScreen fehlgeschlagen", "Programm endet")
EndIf
UseJPEGImageDecoder()
If LoadSprite(1,"C:/Users/lenovo/Desktop/kr.jpg") = 0
MessageRequester("InitSprite fehlgeschlagen", "Programm endet")
EndIf
ZoomSprite(1,50,50)
StartDrawing(ScreenOutput())
Box(0,0,800,412,RGB(0,150,0))
StopDrawing()
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_CloseWindow
schliessen = 1
EndSelect
DisplaySprite(1,250,150)
FlipBuffers()
Until schliessen = 1
End