Jetzt mit PNG-Sprite geht es, Danke!!
P.S.: Zu früh gefreut, war mein Fehler. Ich hatte zunächst ein anderes PNG-Sprite verwendet. Das eigentliche PNG-Sprite, was ich verwenden will (schwarzes Musik-Zeichen mit weißem Hintergrund) wird zwar geladen, aber nur als schwarze Fläche angezeigt. Beschädigt ist das Sprite aber wohl nicht, in LibreOfficeDraw wird das einwandfrei angezeigt. Wie kommt das? Danke.
Hier jetzt der veränderte Code:
Code:
#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
UsePNGImageDecoder()
If LoadSprite(1,"C:/Users/lenovo/Desktop/kr.png",#PB_Sprite_AlphaBlending) = 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
DisplayTransparentSprite(1,250,150,200,RGB(0,0,0))
FlipBuffers()
Until schliessen = 1
End