QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2024-05-12 06:50:12 +00:00
Code Issues Releases Wiki Activity

Improve compatibility with InForm-PE TIMERS

Browse source
This commit is contained in:
Samuel Gomes 2023-11-29 12:08:44 +05:30
parent 006980987f
commit 6ecde5b106
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
InForm/extensions/GIFPlay.bas
View file

@ -600,7 +600,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
__GIFPlay(idx).frame = -1
__GIFPlay(idx).frameCount = 0
__GIFPlay(idx).frameNumber = 0
__GIFPlay(idx).isPlaying = TRUE ' we'll set this to true to render the first frame
__GIFPlay(idx).isPlaying = FALSE
__GIFPlay(idx).loops = 0
__GIFPlay(idx).loopCounter = 0
__GIFPlay(idx).duration = 0
@ -778,6 +778,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
'__GIF_PrintDebugInfo idx
' Render the first frame and then pause
__GIFPlay(idx).isPlaying = TRUE
__GIFPlay(idx).lastTick = __GIF_GetTicks
DIM dummy AS LONG: dummy = GIF_GetFrame(Id)
__GIFPlay(idx).isPlaying = FALSE