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

Cleanup GIFPlay API and update documentation

Browse source
This commit is contained in:
Samuel Gomes 2023-11-20 08:48:12 +05:30
parent e576210b9e
commit b5bb8a6f5c
6 changed files with 151 additions and 113 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

76
InForm/docs/GIFPlay.md Normal file
View file

@ -0,0 +1,76 @@
# Animated GIF Decoder
`By Zom-B` ([QB64-PE Wiki](https://qb64phoenix.com/qb64wiki/index.php/GIF_Images))
`Adapted for use with InForm's PictureBox controls by @FellippeHeitor`
`Refactored and enhanced by a740g to use include guards, conditional compiles and cleaner API`
## Usage instructions
Your form must contain a PictureBox control that'll serve as a container for
the GIF file you'll load with this library.
In the *External modules* section of the .bas file generated by InForm,
`$INCLUDE` both `GIFPlay.bi` and `GIFPlay.bas`. The first must come before the
line that includes `InForm.ui` and the second must come after that, as in
the sample below:
```vb
': External modules: --------------------------------
'$INCLUDE:'InForm\extensions\GIFPlay.bi'
'$INCLUDE:'InForm\InForm.ui'
'$INCLUDE:'InForm\xp.uitheme'
'$INCLUDE:'gifplaySample.frm'
'$INCLUDE:'InForm\extensions\GIFPlay.bm'
```
## API
```vb
FUNCTION GIF_Open%% (ID AS LONG, fileName AS STRING)
```
GIF_Open is a function that takes a PictureBox control ID and a GIF file name and returns True if loading the animation is successful.
```vb
FUNCTION GIF_GetTotalFrames~& (ID AS LONG)
```
GIF_GetTotalFrames returns the total number of frames in a loaded gif. If not an animated GIF, returns 1.
```vb
SUB GIF_Update(ID AS LONG)
```
GIF_Update must be called from within the __UI_BeforeUpdateDisplay event. That's where the frames will be updated in your PictureBox control.
```vb
FUNCTION GIF_IsPlaying%% (ID AS LONG)
```
Returns True is the PictureBox control contains a GIF that's currently being played.
```vb
SUB GIF_Play(ID AS LONG), SUB GIF_Pause(ID AS LONG), SUB GIF_Stop(ID AS LONGD)
```
Starts, pauses or stops playback of a GIF file loaded into the specified PictureBox control.
```vb
SUB GIF_Close(ID AS LONG)
```
Closes the GIF file loaded in the specified PictureBox control and frees the memory used by the frame data buffer attached to it.
```vb
FUNCTION GIF_GetGeight~% (ID AS LONG)
```
Returns the height of the GIF in pixes.
```vb
FUNCTION GIF_GetWidth~% (ID AS LONG)
```
Returns the width of the GIF in pixels.

51
InForm/docs/README-GIFPlay.txt
View file

@ -1,51 +0,0 @@
Animated GIF decoder v1.0
By Zom-B
http://www.qb64.org/wiki/GIF_Images
Adapted for use with InForm's PictureBox controls by @FellippeHeitor
* Usage instructions:
Your form must contain a PictureBox control that'll serve as a container for
the GIF file you'll load with this library.
In the "External modules" section of the .bas file generated by InForm,
$INCLUDE both GIFPlay.bi and GIFPlay.bas. The first must come before the
line that includes InForm.ui and the second must come after that, as in
the sample below:
': External modules: --------------------------------
'$INCLUDE:'InForm\extensions\GIFPlay.bi'
'$INCLUDE:'InForm\InForm.ui'
'$INCLUDE:'InForm\xp.uitheme'
'$INCLUDE:'gifplaySample.frm'
'$INCLUDE:'InForm\extensions\GIFPlay.bm'
* Methods:
- FUNCTION OpenGif(ID, file$)
OpenGif is a function that takes a PictureBox control ID and a GIF
file name and returns True if loading the animation is successful.
- FUNCTION TotalFrames(ID AS LONG)
TotalFrames returns the total number of frames in a loaded gif.
If not an animated GIF, returns 1.
- SUB UpdateGif(ID)
UpdateGif must be called from within the __UI_BeforeUpdateDisplay event.
That's where the frames will be updated in your PictureBox control.
- FUNCTION IsPlaying(ID)
Returns True is the PictureBox control contains a GIF that's currently
being played.
- SUB PlayGif(ID), SUB PauseGif(ID), SUB StopGif(ID)
Starts, pauses or stops playback of a GIF file loaded into the specified
PictureBox control.
- SUB CloseGif(ID)
Closes the GIF file loaded in the specified PictureBox control and frees
the memory used by the frame data buffer attached to it.

88
InForm/extensions/GIFPlay.bas
View file

@ -4,27 +4,29 @@
'# # '# #
'# https://qb64phoenix.com/qb64wiki/index.php/GIF_Images # '# https://qb64phoenix.com/qb64wiki/index.php/GIF_Images #
'####################################################################################### '#######################################################################################
'
' Adapted for use with InForm's PictureBox controls by @FellippeHeitor ' Adapted for use with InForm's PictureBox controls by @FellippeHeitor
' Refactored by a740g to use include guards and conditional compiles '
' Refactored and enhanced by a740g to use include guards, conditional compiles and cleaner API
$IF GIFPLAY_BAS = UNDEFINED THEN $IF GIFPLAY_BAS = UNDEFINED THEN
$LET GIFPLAY_BAS = TRUE $LET GIFPLAY_BAS = TRUE
'$INCLUDE:'GIFPlay.bi' '$INCLUDE:'GIFPlay.bi'
SUB UpdateGif (ID AS LONG) SUB GIF_Update (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
STATIC GifOverlay AS LONG STATIC GifOverlay AS LONG
DIM i AS LONG, newFrame AS LONG DIM i AS LONG, newFrame AS LONG
i = GetGifIndex(ID) i = __GIF_GetIndex(ID)
IF i = 0 THEN EXIT SUB IF i = 0 THEN EXIT SUB
IF GifOverlay = 0 THEN IF GifOverlay = 0 THEN
GifOverlay = LoadGIFOverlayImage GifOverlay = __GIF_LoadOverlayImage
END IF END IF
IF __GIFData(i).IsPlaying OR __GIFData(i).LastFrameServed = 0 THEN IF __GIFData(i).IsPlaying OR __GIFData(i).LastFrameServed = 0 THEN
@ -41,7 +43,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
BeginDraw ID BeginDraw ID
$END IF $END IF
newFrame = GetGifFrame&(i) newFrame = __GIF_GetFrame(i)
IF newFrame THEN _PUTIMAGE , newFrame IF newFrame THEN _PUTIMAGE , newFrame
IF __GIFData(i).IsPlaying = FALSE AND __GIFData(i).HideOverlay = FALSE AND __GIFData(i).totalFrames > 1 THEN IF __GIFData(i).IsPlaying = FALSE AND __GIFData(i).HideOverlay = FALSE AND __GIFData(i).totalFrames > 1 THEN
_PUTIMAGE (_WIDTH / 2 - _WIDTH(GifOverlay) / 2, _HEIGHT / 2 - _HEIGHT(GifOverlay) / 2), GifOverlay _PUTIMAGE (_WIDTH / 2 - _WIDTH(GifOverlay) / 2, _HEIGHT / 2 - _HEIGHT(GifOverlay) / 2), GifOverlay
@ -53,79 +55,79 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
END SUB END SUB
FUNCTION GifIsPlaying%% (ID AS LONG) FUNCTION GIF_IsPlaying%% (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
GifIsPlaying = __GIFData(i).IsPlaying GIF_IsPlaying = __GIFData(i).IsPlaying
END FUNCTION END FUNCTION
FUNCTION GifWidth% (ID AS LONG) FUNCTION GIF_GetWidth~% (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
GifWidth = __GIFData(i).width GIF_GetWidth = __GIFData(i).width
END FUNCTION END FUNCTION
FUNCTION GifHeight% (ID AS LONG) FUNCTION GIF_GetHeight~% (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
GifHeight = __GIFData(i).height GIF_GetHeight = __GIFData(i).height
END FUNCTION END FUNCTION
FUNCTION TotalFrames& (ID AS LONG) FUNCTION GIF_GetTotalFrames~& (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
TotalFrames = __GIFData(i).totalFrames GIF_GetTotalFrames = __GIFData(i).totalFrames
END FUNCTION END FUNCTION
SUB HideGifOverlay (ID AS LONG) SUB GIF_HideOverlay (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
__GIFData(i).HideOverlay = TRUE __GIFData(i).HideOverlay = TRUE
END SUB END SUB
SUB PlayGif (ID AS LONG) SUB GIF_Play (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
__GIFData(i).IsPlaying = TRUE __GIFData(i).IsPlaying = TRUE
END SUB END SUB
SUB PauseGif (ID AS LONG) SUB GIF_Pause (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
__GIFData(i).IsPlaying = FALSE __GIFData(i).IsPlaying = FALSE
END SUB END SUB
SUB StopGif (ID AS LONG) SUB GIF_Stop (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
DIM i AS LONG: i = GetGifIndex(ID) DIM i AS LONG: i = __GIF_GetIndex(ID)
__GIFData(i).IsPlaying = FALSE __GIFData(i).IsPlaying = FALSE
__GIFData(i).Frame = 1 __GIFData(i).Frame = 1
END SUB END SUB
FUNCTION OpenGif%% (ID AS LONG, filename$) FUNCTION GIF_Open%% (ID AS LONG, filename$)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
SHARED __GIFFrameData() AS __GIFFrameDataType SHARED __GIFFrameData() AS __GIFFrameDataType
SHARED __TotalGIFLoaded AS LONG, __TotalGIFFrames AS LONG SHARED __TotalGIFLoaded AS LONG, __TotalGIFFrames AS LONG
@ -137,14 +139,14 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
IF Control(ID).Type <> __UI_Type_PictureBox THEN ERROR 5: EXIT FUNCTION IF Control(ID).Type <> __UI_Type_PictureBox THEN ERROR 5: EXIT FUNCTION
$END IF $END IF
Index = GetGifIndex&(ID) Index = __GIF_GetIndex(ID)
IF Index = 0 THEN IF Index = 0 THEN
__TotalGIFLoaded = __TotalGIFLoaded + 1 __TotalGIFLoaded = __TotalGIFLoaded + 1
Index = __TotalGIFLoaded Index = __TotalGIFLoaded
REDIM _PRESERVE __GIFData(1 TO __TotalGIFLoaded) AS __GIFDataType REDIM _PRESERVE __GIFData(1 TO __TotalGIFLoaded) AS __GIFDataType
ELSE ELSE
CloseGif ID GIF_Close ID
END IF END IF
__GIFData(Index).ID = ID __GIFData(Index).ID = ID
@ -215,14 +217,14 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
'Unsupported disposalMethod 'Unsupported disposalMethod
GOTO LoadError GOTO LoadError
END IF END IF
SkipGIFBlocks __GIFData(Index).file __GIF_SkipBlocks __GIFData(Index).file
CASE &H3B ' Trailer CASE &H3B ' Trailer
EXIT DO EXIT DO
CASE &H21 ' Extension Introducer CASE &H21 ' Extension Introducer
GET __GIFData(Index).file, , byte~%% ' Extension Label GET __GIFData(Index).file, , byte~%% ' Extension Label
SELECT CASE byte~%% SELECT CASE byte~%%
CASE &HFF, &HFE ' Application Extension, Comment Extension CASE &HFF, &HFE ' Application Extension, Comment Extension
SkipGIFBlocks __GIFData(Index).file __GIF_SkipBlocks __GIFData(Index).file
CASE &HF9 CASE &HF9
IF __TotalGIFFrames > UBOUND(__GIFFrameData) THEN IF __TotalGIFFrames > UBOUND(__GIFFrameData) THEN
REDIM _PRESERVE __GIFFrameData(0 TO __TotalGIFFrames * 2) AS __GIFFrameDataType REDIM _PRESERVE __GIFFrameData(0 TO __TotalGIFFrames * 2) AS __GIFFrameDataType
@ -237,7 +239,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
GET __GIFData(Index).file, , delay~% GET __GIFData(Index).file, , delay~%
IF delay~% = 0 THEN __GIFFrameData(__TotalGIFFrames).delay = 0.1 ELSE __GIFFrameData(__TotalGIFFrames).delay = delay~% / 100 IF delay~% = 0 THEN __GIFFrameData(__TotalGIFFrames).delay = 0.1 ELSE __GIFFrameData(__TotalGIFFrames).delay = delay~% / 100
GET __GIFData(Index).file, , __GIFFrameData(__TotalGIFFrames).transColor GET __GIFData(Index).file, , __GIFFrameData(__TotalGIFFrames).transColor
SkipGIFBlocks __GIFData(Index).file __GIF_SkipBlocks __GIFData(Index).file
CASE ELSE CASE ELSE
'Unsupported extension Label 'Unsupported extension Label
GOTO LoadError GOTO LoadError
@ -251,7 +253,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
REDIM _PRESERVE __GIFFrameData(0 TO __TotalGIFFrames) AS __GIFFrameDataType REDIM _PRESERVE __GIFFrameData(0 TO __TotalGIFFrames) AS __GIFFrameDataType
__GIFData(Index).IsPlaying = FALSE __GIFData(Index).IsPlaying = FALSE
OpenGif = TRUE GIF_Open = TRUE
EXIT FUNCTION EXIT FUNCTION
LoadError: LoadError:
@ -265,26 +267,26 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
END FUNCTION END FUNCTION
FUNCTION GetGifIndex& (ID AS LONG) FUNCTION __GIF_GetIndex& (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
SHARED __TotalGIFLoaded AS LONG SHARED __TotalGIFLoaded AS LONG
DIM i AS LONG: FOR i = 1 TO __TotalGIFLoaded DIM i AS LONG: FOR i = 1 TO __TotalGIFLoaded
IF __GIFData(i).ID = ID THEN IF __GIFData(i).ID = ID THEN
GetGifIndex = i __GIF_GetIndex = i
EXIT FOR EXIT FOR
END IF END IF
NEXT i NEXT i
END FUNCTION END FUNCTION
SUB CloseGif (ID AS LONG) SUB GIF_Close (ID AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
SHARED __GIFFrameData() AS __GIFFrameDataType SHARED __GIFFrameData() AS __GIFFrameDataType
DIM i AS LONG, Index AS LONG DIM i AS LONG, Index AS LONG
Index = GetGifIndex(ID) Index = __GIF_GetIndex(ID)
IF Index = 0 THEN EXIT SUB IF Index = 0 THEN EXIT SUB
@ -303,7 +305,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
END SUB END SUB
SUB SkipGIFBlocks (file AS INTEGER) SUB __GIF_SkipBlocks (file AS INTEGER)
DIM byte~%% DIM byte~%%
DO DO
GET file, , byte~%% ' Block Size GET file, , byte~%% ' Block Size
@ -312,7 +314,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
END SUB END SUB
FUNCTION GetGifFrame& (Index AS LONG) FUNCTION __GIF_GetFrame& (Index AS LONG)
SHARED __GIFData() AS __GIFDataType SHARED __GIFData() AS __GIFDataType
SHARED __GIFFrameData() AS __GIFFrameDataType SHARED __GIFFrameData() AS __GIFFrameDataType
@ -345,7 +347,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
actualFrame& = _NEWIMAGE(__GIFData(Index).width, __GIFData(Index).height, 256) actualFrame& = _NEWIMAGE(__GIFData(Index).width, __GIFData(Index).height, 256)
_DEST img& _DEST img&
DecodeFrame __GIFData(Index), __GIFFrameData(frame) __GIF_DecodeFrame __GIFData(Index), __GIFFrameData(frame)
_DEST actualFrame& _DEST actualFrame&
IF __GIFFrameData(frame).localColorTableFlag THEN IF __GIFFrameData(frame).localColorTableFlag THEN
@ -380,11 +382,11 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
_DEST prevDest _DEST prevDest
END IF END IF
GetGifFrame& = __GIFFrameData(frame).addr __GIF_GetFrame = __GIFFrameData(frame).addr
END FUNCTION END FUNCTION
SUB DecodeFrame (gifdata AS __GIFDataType, __GIfFRAMEDATA AS __GIFFrameDataType) SUB __GIF_DecodeFrame (gifdata AS __GIFDataType, __GIfFRAMEDATA AS __GIFFrameDataType)
DIM byte AS _UNSIGNED _BYTE DIM byte AS _UNSIGNED _BYTE
DIM prefix(4095), suffix(4095), colorStack(4095) DIM prefix(4095), suffix(4095), colorStack(4095)
DIM startCodeSize AS INTEGER, clearCode AS INTEGER DIM startCodeSize AS INTEGER, clearCode AS INTEGER
@ -523,7 +525,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
END SUB END SUB
FUNCTION LoadGIFOverlayImage& FUNCTION __GIF_LoadOverlayImage&
CONST SIZE_GIFOVERLAYIMAGE_BMP_16506 = 16506 CONST SIZE_GIFOVERLAYIMAGE_BMP_16506 = 16506
CONST COMP_GIFOVERLAYIMAGE_BMP_16506 = -1 CONST COMP_GIFOVERLAYIMAGE_BMP_16506 = -1
CONST DATA_GIFOVERLAYIMAGE_BMP_16506 = _ CONST DATA_GIFOVERLAYIMAGE_BMP_16506 = _
@ -540,7 +542,7 @@ $IF GIFPLAY_BAS = UNDEFINED THEN
"HQu2IAVDJrIlq8uKd/8TmfxqrMT3v2ndBsm526v7X6v7n6v736vnH6rnX6rnnzI+HmYCeP5tBqeW8PnH63A8wOdfX4L0yUvm+ddQq4a78QokpVdw" + _ "HQu2IAVDJrIlq8uKd/8TmfxqrMT3v2ndBsm526v7X6v7n6v736vnH6rnX6rnnzI+HmYCeP5tBqeW8PnH63A8wOdfX4L0yUvm+ddQq4a78QokpVdw" + _
"N2rIY+nz70tYxZN431x3/g7v40msYmlQz7//BcxY2A4=" "N2rIY+nz70tYxZN431x3/g7v40msYmlQz7//BcxY2A4="
LoadGIFOverlayImage = _LOADIMAGE(Base64_LoadResourceString(DATA_GIFOVERLAYIMAGE_BMP_16506, SIZE_GIFOVERLAYIMAGE_BMP_16506, COMP_GIFOVERLAYIMAGE_BMP_16506), 32, "memory") __GIF_LoadOverlayImage = _LOADIMAGE(Base64_LoadResourceString(DATA_GIFOVERLAYIMAGE_BMP_16506, SIZE_GIFOVERLAYIMAGE_BMP_16506, COMP_GIFOVERLAYIMAGE_BMP_16506), 32, "memory")
END FUNCTION END FUNCTION
'$INCLUDE:'Base64.bas' '$INCLUDE:'Base64.bas'

9
InForm/extensions/GIFPlay.bi
View file

@ -2,9 +2,12 @@
'# Animated GIF decoder v1.0 # '# Animated GIF decoder v1.0 #
'# By Zom-B # '# By Zom-B #
'# # '# #
'# http://www.qb64.org/wiki/GIF_Images # '# https://qb64phoenix.com/qb64wiki/index.php/GIF_Images #
'####################################################################################### '#######################################################################################
'Adapted for use with InForm's PictureBox controls by @FellippeHeitor '
' Adapted for use with InForm's PictureBox controls by @FellippeHeitor
'
' Refactored and enhanced by a740g to use include guards, conditional compiles and cleaner API
$IF GIFPLAY_BI = UNDEFINED THEN $IF GIFPLAY_BI = UNDEFINED THEN
$LET GIFPLAY_BI = TRUE $LET GIFPLAY_BI = TRUE
@ -30,7 +33,7 @@ $IF GIFPLAY_BI = UNDEFINED THEN
numColors AS _UNSIGNED INTEGER numColors AS _UNSIGNED INTEGER
palette AS STRING * 768 palette AS STRING * 768
firstFrame AS LONG firstFrame AS LONG
totalFrames AS LONG totalFrames AS _UNSIGNED LONG
IsPlaying AS _BYTE IsPlaying AS _BYTE
Frame AS LONG Frame AS LONG
LoadedFrames AS LONG LoadedFrames AS LONG

14
InForm/extensions/MessageBox.bas
View file

@ -2,11 +2,11 @@
' These basically emulate the legacy InForm MessageBox routines ' These basically emulate the legacy InForm MessageBox routines
' All it does is calls the new QB64-PE _MESSAGEBOX$ function ' All it does is calls the new QB64-PE _MESSAGEBOX$ function
'$INCLUDE:'MessageBox.bi'
$IF MESSAGEBOX_BAS = UNDEFINED THEN $IF MESSAGEBOX_BAS = UNDEFINED THEN
$LET MESSAGEBOX_BAS = TRUE $LET MESSAGEBOX_BAS = TRUE
'$INCLUDE:'MessageBox.bi'
FUNCTION MessageBox& (message AS STRING, caption AS STRING, setup AS LONG) FUNCTION MessageBox& (message AS STRING, caption AS STRING, setup AS LONG)
DIM dialogType AS STRING DIM dialogType AS STRING
@ -69,9 +69,9 @@ $IF MESSAGEBOX_BAS = UNDEFINED THEN
END SELECT END SELECT
END IF END IF
DIM __caption AS STRING DIM __caption AS STRING: __caption = caption
IF caption = "" THEN $IF INFORM_BI = DEFINED THEN
IF __UI_CurrentTitle <> "" THEN IF __UI_CurrentTitle <> "" THEN
__caption = __UI_CurrentTitle __caption = __UI_CurrentTitle
ELSEIF _TITLE$ <> "" THEN ELSEIF _TITLE$ <> "" THEN
@ -79,9 +79,13 @@ $IF MESSAGEBOX_BAS = UNDEFINED THEN
ELSE ELSE
__caption = COMMAND$(0) __caption = COMMAND$(0)
END IF END IF
$ELSE
IF _TITLE$ <> "" THEN
__caption = _TITLE$
ELSE ELSE
__caption = caption __caption = COMMAND$(0)
END IF END IF
$END IF
_DELAY 0.2 ' delay a bit so that the interface can redraw before the messagebox kicks in _DELAY 0.2 ' delay a bit so that the interface can redraw before the messagebox kicks in
DIM returnValue AS LONG: returnValue = _MESSAGEBOX(__caption, message, dialogType, iconType, defaultButton) DIM returnValue AS LONG: returnValue = _MESSAGEBOX(__caption, message, dialogType, iconType, defaultButton)

22
examples/GIFPlaySample/GIFPlaySample.bas
View file

@ -4,6 +4,9 @@
': https://github.com/FellippeHeitor/InForm ': https://github.com/FellippeHeitor/InForm
'----------------------------------------------------------- '-----------------------------------------------------------
DEFLNG A-Z
OPTION _EXPLICIT
': Controls' IDs: ------------------------------------------------------------------ ': Controls' IDs: ------------------------------------------------------------------
DIM SHARED gifplaySample AS LONG DIM SHARED gifplaySample AS LONG
DIM SHARED PictureBox1 AS LONG DIM SHARED PictureBox1 AS LONG
@ -13,11 +16,11 @@ DIM SHARED PlayBT AS LONG
': External modules: --------------------------------------------------------------- ': External modules: ---------------------------------------------------------------
'$INCLUDE:'../../InForm/InForm.bi' '$INCLUDE:'../../InForm/InForm.bi'
'$INCLUDE:'../../InForm/extensions/GIFPlay.bi' '$INCLUDE:'../../InForm/extensions/GIFPlay.bi'
'$INCLUDE:'../../InForm/extensions/MessageBox.bi'
'$INCLUDE:'GIFPlaySample.frm' '$INCLUDE:'GIFPlaySample.frm'
': Event procedures: --------------------------------------------------------------- ': Event procedures: ---------------------------------------------------------------
SUB __UI_BeforeInit SUB __UI_BeforeInit
END SUB END SUB
SUB __UI_OnLoad SUB __UI_OnLoad
@ -25,7 +28,7 @@ SUB __UI_OnLoad
END SUB END SUB
SUB __UI_BeforeUpdateDisplay SUB __UI_BeforeUpdateDisplay
UpdateGif PictureBox1 GIF_Update PictureBox1
END SUB END SUB
SUB __UI_BeforeUnload SUB __UI_BeforeUnload
@ -38,9 +41,9 @@ SUB __UI_Click (id AS LONG)
CASE LoadBT CASE LoadBT
'file 'globe.gif' comes from: 'file 'globe.gif' comes from:
'https://en.wikipedia.org/wiki/GIF#/media/File:Rotating_earth_(large).gif 'https://en.wikipedia.org/wiki/GIF#/media/File:Rotating_earth_(large).gif
IF OpenGif(PictureBox1, "globe.gif") THEN IF GIF_Open(PictureBox1, "globe.gif") THEN
Control(PlayBT).Disabled = False Control(PlayBT).Disabled = False
IF TotalFrames(PictureBox1) > 1 THEN IF GIF_GetTotalFrames(PictureBox1) > 1 THEN
Caption(PlayBT) = "Play" Caption(PlayBT) = "Play"
ELSE ELSE
Caption(PlayBT) = "Static gif" Caption(PlayBT) = "Static gif"
@ -49,18 +52,18 @@ SUB __UI_Click (id AS LONG)
Caption(LoadBT) = "globe.gif loaded" Caption(LoadBT) = "globe.gif loaded"
Control(LoadBT).Disabled = True Control(LoadBT).Disabled = True
ELSE ELSE
_DELAY 0.2: _MESSAGEBOX "GIFPlay Sample", "File 'globe.gif' could not be found.", "error" MessageBox "File 'globe.gif' could not be found.", "", MsgBox_Exclamation
END IF END IF
CASE PlayBT CASE PlayBT
IF GifIsPlaying(PictureBox1) THEN IF GIF_IsPlaying(PictureBox1) THEN
PauseGif PictureBox1 GIF_Pause PictureBox1
Caption(PlayBT) = "Play" Caption(PlayBT) = "Play"
ELSE ELSE
PlayGif PictureBox1 GIF_Play PictureBox1
Caption(PlayBT) = "Pause" Caption(PlayBT) = "Pause"
END IF END IF
CASE PictureBox1 CASE PictureBox1
HideGifOverlay PictureBox1 GIF_HideOverlay PictureBox1
END SELECT END SELECT
END SUB END SUB
@ -97,3 +100,4 @@ END SUB
'$INCLUDE:'../../InForm/InForm.ui' '$INCLUDE:'../../InForm/InForm.ui'
'$INCLUDE:'../../InForm/xp.uitheme' '$INCLUDE:'../../InForm/xp.uitheme'
'$INCLUDE:'../../InForm/extensions/GIFPlay.bas' '$INCLUDE:'../../InForm/extensions/GIFPlay.bas'
'$INCLUDE:'../../InForm/extensions/MessageBox.bas'