j'ai cherché et effectuer un ti code en mettant l'image ci-dessous dans le même dossier que le code
mais: le prog passe en page blanche apres 4/5 secondes , de plus l'effacement de l'image (dont le fond PAS totalement noir (?)) laisse à désirer
kkun peut m'aider?

[/img]
Code : Tout sélectionner
ecranx = GetSystemMetrics_(#SM_CXSCREEN)
ecrany = GetSystemMetrics_(#SM_CYSCREEN)
InitSprite()
InitKeyboard()
InitMouse()
OpenWindow(0,0,0,ecranx,ecrany,"testimage",#PB_Window_ScreenCentered|#PB_Window_SystemMenu )
OpenWindowedScreen(WindowID(0),0,0,ecranx,ecrany,0,0,0)
Enumeration
#fond
#obj1
EndEnumeration
UsePNGImageDecoder()
CreateSprite(#fond,EcranX,EcranY)
StartDrawing(SpriteOutput(#fond))
Box(0,0,EcranX,EcranY,RGB(0,0,0))
StopDrawing()
LoadSprite(#obj1,"flame.png")
Repeat
ExamineMouse()
DisplayTransparentSprite(#obj1,MouseX(),MouseY())
FlipBuffers()
Delay(1)
DisplaySprite(#fond,ecranx,ecrany)
Until MouseButton(2)