B4A Library [B4X] B4XGifView - Cross platform animated gif view

Erel said:

You need to download B4A-dependencies.zip, unzip it and copy the files to the additional libraries folder. It is attached to the first post.

Click to expand...

Erel said:

Which platform?

Click to expand...

AZKANSOY said:

Can I Start & Stop Animation ?

Click to expand...

Erel said:

View attachment 95135

I was missing a cross platform, animated gif view, so created one.

Usage is simple:
Add with the visual designer and call SetGif to set the gif file.


The B4i implementation depends on FLAnimatedImage open source project: https://github.com/Flipboard/FLAnimatedImage
The FLAnimatedImage library was uploaded to the hosted builders. If you are using a local Mac then download FLAnimatedImage-Mac and copy the files to the Libs folder.
The B4A implementation is based on this open source project: https://github.com/koral--/android-gif-drawable
The two dependent aars are attached. Copy them to B4A additional libraries folder.

Updates:

1.11 - GIF image ratio is preserved.
1.10 - New B4A implementation based on Android GIF Drawable. It provides better performance. Note that the Activity_Resume method has been removed. Don't miss the B4A-Dependencies zip file.

Click to expand...

Unobtainius said:

it could be other languages I am used to but
mEventName&"_Click"
in a continuous line looks odd to me
does
mEventName & "_Click" work?

Click to expand...

Unobtainius said:

Also, it's best not to post questions directly at Erel, as we are all here to help if we can.
plus @klaus will tell you off

Click to expand...

Daica said:

I tried editing the source code and added:

B4X:

#Event: Click

Private Sub iv_Click
If xui.SubExists(mCallBack,mEventName&"_Click",0) Then
CallSub(mCallBack,mEventName&"_Click")
End If
End Sub

Nothing happens when I click the view. I think I might be doing something wrong?

Click to expand...

Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    mBase = Base
    Tag = mBase.Tag
    mBase.Tag = Me
    #if B4J
    iv.Initialize("iv") '<--------- here
    mBase.AddView(iv, 0, 0, mBase.Width, mBase.Height)
    #Else If B4i
    Dim no As NativeObject
    AnimatedImageView = no.Initialize("FLAnimatedImageView").RunMethod("new", Null)
    mBase.AddView(AnimatedImageView, 0, 0, mBase.Width, mBase.Height)
    Dim iv As ImageView = AnimatedImageView
    iv.ContentMode = iv.MODE_FIT
    #Else If B4A
    iv.Initialize("iv") ' <--------- here
    mBase.AddView(iv, 0, 0, mBase.Width, mBase.Height)
    #End If
End Sub

LucaMs said:

The wrong thing is that you should also set the event name when the ImageView is initialized, within the DesignerCreateView routine:

Click to expand...

LucaMs said:

The wrong thing is that you should also set the event name when the ImageView is initialized, within the DesignerCreateView routine:

B4X:

Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    mBase = Base
    Tag = mBase.Tag
    mBase.Tag = Me
    #if B4J
    iv.Initialize("iv") '<--------- here
    mBase.AddView(iv, 0, 0, mBase.Width, mBase.Height)
    #Else If B4i
    Dim no As NativeObject
    AnimatedImageView = no.Initialize("FLAnimatedImageView").RunMethod("new", Null)
    mBase.AddView(AnimatedImageView, 0, 0, mBase.Width, mBase.Height)
    Dim iv As ImageView = AnimatedImageView
    iv.ContentMode = iv.MODE_FIT
    #Else If B4A
    iv.Initialize("iv") ' <--------- here
    mBase.AddView(iv, 0, 0, mBase.Width, mBase.Height)
    #End If
End Sub

As you can see I did it and it works but I couldn't do it for B4i.

I'm attaching a version (1.12) that works with B4A and B4J; Erel will probably be able to fix it to work with B4i as well.
View attachment 115395

Click to expand...