1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2024-07-21 11:15:13 +00:00

Update GIFPlayer to use new 3.10 CLS syntax

This commit is contained in:
Samuel Gomes 2024-01-11 19:18:38 +05:30
parent 33f896aaaa
commit fa00fa0f9b
2 changed files with 29 additions and 9 deletions

View file

@ -335,20 +335,13 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
__GIFPlay(idx).lastFrameRendered = lastFrameRendered
' Take appropriate action based on the disposal method of the previous frame
DIM oldDest AS LONG: oldDest = _DEST ' this is needed for CLS. CLS in v3.9.1 does not support using image handles (can remove with v4.0)
IF __GIFPlay(idx).frame = __GIFPlay(idx).firstFrame THEN
' If this is the first frame, then we do not have any previous disposal method
_DEST __GIFPlay(idx).image
'CLS , __GIFPlay(idx).bgColor, __GIFPlay(idx).image ' clear the render image using the BG color
CLS , __GIFPlay(idx).bgColor
_DEST oldDest
CLS , __GIFPlay(idx).bgColor, __GIFPlay(idx).image ' clear the render image using the BG color
ELSE
SELECT CASE __GIFPlayFrame(__GIFPlayFrame(__GIFPlay(idx).frame).prevFrame).disposalMethod
CASE 2 ' Restore to background color
_DEST __GIFPlay(idx).image
'CLS , __GIFPlay(idx).bgColor, __GIFPlay(idx).image
CLS , __GIFPlay(idx).bgColor
_DEST oldDest
CLS , __GIFPlay(idx).bgColor, __GIFPlay(idx).image
_CLEARCOLOR __GIFPlay(idx).bgColor, __GIFPlay(idx).image
CASE 3 ' Restore to previous

View file

@ -90,30 +90,57 @@ SUB __UI_Click (id AS LONG)
END SUB
SUB __UI_MouseEnter (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_MouseLeave (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_FocusIn (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_FocusOut (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_MouseDown (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_MouseUp (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_KeyPress (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_TextChanged (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_ValueChanged (id AS LONG)
SELECT CASE id
CASE ELSE
END SELECT
END SUB
SUB __UI_FormResized