QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00
Code Issues Releases Wiki Activity

Clear surface before drawing final GIF frame

Browse source
This commit is contained in:
Samuel Gomes 2023-11-29 23:43:14 +05:30
parent 85fec0c0fc
commit e02474e09f
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
InForm/extensions/GIFPlay.bas
View file

@ -230,6 +230,9 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
' Get the rendered image handle ' Get the rendered image handle
DIM renderedFrame AS LONG: renderedFrame = GIF_GetFrame(Id) DIM renderedFrame AS LONG: renderedFrame = GIF_GetFrame(Id)
' Clear the surface
CLS
' Blit the rendered frame ' Blit the rendered frame
_PUTIMAGE , renderedFrame _PUTIMAGE , renderedFrame