PureBoard

Verfasst: **24.09.2006 19:45**

Das hätte schon gereicht:

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

[edit]
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")

sollte bei eine If-Else-Bedingung korrekt arbeiten, was es aber nicht tut.
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?