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

Asks before including the GIF extension when adding an animated GIF.

Browse source
This commit is contained in:
FellippeHeitor 2018-11-07 17:23:13 -02:00
parent c796991f34
commit 80a50fb01a
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
InForm/UiEditor.bas
View file

@ -3753,7 +3753,14 @@ SUB LoadPreview
IF LoadedWithGifExtension = 1 THEN LoadedWithGifExtension = False
IF PrevTotalGifLoaded <> TotalGifLoaded THEN
IF PrevTotalGifLoaded = 0 THEN
Control(AddGifExtensionToggle).Value = True
Answer = MessageBox("You loaded an animated GIF file.\nDo you want to include the GIF extension?", "", MsgBox_YesNo + MsgBox_Question)
IF Answer = MsgBox_Yes THEN
Control(AddGifExtensionToggle).Value = True
ELSE
b$ = "PAUSEALLGIF>" + "<END>"
Send Client, b$
Control(AddGifExtensionToggle).Value = False
END IF
END IF
PrevTotalGifLoaded = TotalGifLoaded
END IF