Android Question It possible add click image in ImageSlider??

[nickysuwandi]

I had using Image Slider from Erel, very good

https://www.b4x.com/android/forum/threads/b4x-xui-imageslider.87128/

I had problem to display image description.

It possible to add click image in ImageSlider, so each time user click the selected image, we can display the description of the image?

Thanks

 

[aeric]

You can add a transparent panel on top of the image slider.

 

[Erel]

This code is responsible for the sliding gesture:

Private Sub WindowBase_Touch (Action As Int, X As Float, Y As Float)
   If Action = WindowBase.TOUCH_ACTION_DOWN Then
       MousePressedX = X
   Else If Action = WindowBase.TOUCH_ACTION_UP Then
       If X > MousePressedX + 50dip Then
           PrevImage
       Else if X < MousePressedX - 50dip Then
           NextImage
       Else '<------------------ add this
           CallSub(mCallback, mEventName & _Click")
       End If
   End If
End Sub

 

[nickysuwandi]

Thanks Erel, i follow you code and i add this line

Private Sub WindowBase_Touch (Action As Int, X As Float, Y As Float)
    If Action = WindowBase.TOUCH_ACTION_DOWN Then
        MousePressedX = X
    Else If Action = WindowBase.TOUCH_ACTION_UP Then
        If X > MousePressedX + 50dip Then
            PrevImage
        Else if X < MousePressedX - 50dip Then
            NextImage
        Else '<------------------ add this
            CallSub2(mCallBack,  mEventName & "_Click",CurrentIndex)
        End If
    End If
End Sub
'
Private Sub Click(index As Int)
    Return index
End Sub

I got the index of picture we clicked

 

[aeric]

Thanks Erel, i follow you code and i add this line

Private Sub WindowBase_Touch (Action As Int, X As Float, Y As Float)
    If Action = WindowBase.TOUCH_ACTION_DOWN Then
        MousePressedX = X
    Else If Action = WindowBase.TOUCH_ACTION_UP Then
        If X > MousePressedX + 50dip Then
            PrevImage
        Else if X < MousePressedX - 50dip Then
            NextImage
        Else '<------------------ add this
            CallSub2(mCallBack,  mEventName & "_Click",CurrentIndex)
        End If
    End If
End Sub
'
Private Sub Click(index As Int)
    Return index
End Sub

I got the index of picture we clicked

I thought can use like this in Form code:

Sub ImageSlider1_Click(Index As Int)
    Log (Index)
End Sub