Code: Alles auswählen
UsePNGImageDecoder()
OpenWindow(0,100,100,500,400,"Bilder",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
If FileSize("_Encore.png") > 0
Bild = LoadImage(0, "Encore.png")
ImageGadget(1,20,60,300,300,Bild)
Else
MessageRequester("Sch...","Warum nur?",0)
EndIf
Repeat
event = WaitWindowEvent()
If event = #PB_Event_CloseWindow
quit = 1
EndIf
Until quit = 1
End
Habs noch etwas abgeändert, da bei nicht vorhandensein des Bildes wie bei der vorrigen Abfrage der Debuger anspringt

Ein
Code: Alles auswählen
If LoadImage(0, "Incore.png")
Es wird beim debugen Image Not found ausgegeben. was beim obigen
Source nicht passiert.
Code: Alles auswählen
UsePNGImageDecoder()
OpenWindow(0,100,100,500,400,"Bilder",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
If LoadImage(0, "Encore.png")
ImageGadget(1,20,60,300,300,ImageID(0))
Else
MessageRequester("Sch...","Warum nur?",0)
EndIf
Repeat
event = WaitWindowEvent()
If event = #PB_Event_CloseWindow
quit = 1
EndIf
Until quit = 1
End
Funktioniert wohl wenn die Datei vorhanden ist. Bei nicht Vorhandensein
wird der Elsezweig beim Debugging noch nichteinmal angesprungen.
Eigendlich müsste es genauso wie beim vorherigen Source funktionieren, oder?