Sprite verändern geht nicht
Verfasst: 19.04.2020 13:25
Hallo, folgender Testcode lädt ein Sprite (Musik-Vorzeichen) und zeigt es an. Allerdings dann zunächst natürlich so, daß nicht nur das Musik-Vorzeichen angezeigt wird, sondern auch der weiße Hintergrund dazu. Kann man den irgendwie weg bekommen? Ich habe es versucht mit TransparentSpriteColor und mit DisplayTransparentSprite, aber nichts davon wirkte auch nur die Bohne. Das Handbuch präsentiert sich allerdings auch so wortkarg in dem Fall, daß ich daraus gar nicht erst entnehmen kann, wozu TransparentSpriteColor und DisplayTransparentSprite wirklich da sind. Falls es eine Lösung gibt, wie man den weißen Hintergrund in einem Sprite weg bekommt, vielen Dank. Hier der Testcode:
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