B4A Library [Lib] Gesture Detector

This library adds the detection of standard gestures (press, single-tap, double-tap, long tap, drag, scroll, fling, pinch, rotation) to B4A. Instead of using the Touch events to figure out what the user really did, now you just set 15 different listeners with one line of code and you get the gestures as events with all the useful values (scrolling distance, fling velocity, pinch variation, rotation angle...).
With this library, you can also know easily the pressure or the size of a touch event.

It works with any view.

Note: you have to create an instance of GestureDetector (with Dim) for each view you want to bind to the detector with SetOnGestureListener.

v2.2:
- Freeware.

v2.3:
- I fixed an issue with the boolean value returned by the OnTouch event with some views (e.g. ListView or ScrollView);
- I added a new demo (GD_SwipeLV);
- The OnDown event is now raised before OnDoubleTap.

v2.4:
- I fixed an issue when a view is dragged after one of the pointer is up (delta values were computed according to the pointer 0, not to the remaining pointer).

Incompatible with Android versions < 2.

 

[Erel]

Search Results

www.b4x.com

 

[TelKel81]

How should I transition from a LongPress to "immediately being able to drag" right after the long press ?
The goal is to drag a view towards a new parent after a long press.

 

[tufanv]

I have a little problem here. I bind the gesture detector to scrollview. My scrollview has panels like a listview and each have a click eventwhich navigates to another page. I can get swipe msgbox When I swipe scrollview where there is no panel but if there are panels at the area where I swipe, I dont get messages and everytime panel inside the scrollview click event triggers. How can I solve this?

 

[Erel]

Have you seen this: https://www.b4x.com/android/forum/t...pe-actions-and-pull-to-refresh.98252/#content

 

[frutuopa]

Hello ... I've been trying this library and it looks really fantastic .....
I wanted to take advantage of it to create dynamic buttons and be able to drag them over a picture ....

Thanks

Sub Globals
Private pnlFilho2 As Panel
Dim GD As GestureDetector
end sub
Sub Activity_Create(FirstTime As Boolean)

For b=0 To 2

Dim btnDrag As Button
btnDrag.Initialize("btnDrag" & b)

pnlFilho2.AddView(btnDrag,5%x+b*50 , pnlFilho2.Height*0.8, 40dip,40dip)
btnDrag.Text = "B" & (b+1)
btnDrag.TAG = "t" & b
btnDrag.Color=Colors.Yellow
btnDrag.TextColor = Colors.Black

btnDrag.Visible=True
GD.SetOnGestureListener(btnDrag, "Gesture")
Next

end sub

Sub Gesture_onTouch(Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Log("onTouch action=" & Action & ", x=" & X & ", y=" & Y & ", ev=" & MotionEvent)
Return True
End Sub
Sub Gesture_onDown(X As Float, Y As Float, MotionEvent As Object)
Log(" onDown x = " & X & ", y = " & Y & ", ev = " & MotionEvent)
Log(" pressure = " & GD.getPressure(MotionEvent, 0))
Log(" size = " & GD.getSize(MotionEvent, 0))
End Sub
Sub Gesture_onDrag(deltaX As Float, deltaY As Float, MotionEvent As Object)
Log(" onDrag deltaX = " & deltaX & ", deltaY = " & deltaY & ", ev = " & MotionEvent)
Dim butdrag As Button
butdrag = Sender
Log(butdrag.tag)
butdrag.Left = Max(0, Min(butdrag.Left + deltaX, 100%x - butdrag.Width))
butdrag.Top = Max(0, Min(butdrag.Top + deltaY, 100%y - butdrag.Height))
End Sub
Sub Gesture_onFling(velocityX As Float, velocityY As Float, MotionEvent1 As Object, MotionEvent2 As Object)
Log(" onFling velocityX = " & velocityX & ", velocityY = " & velocityY & ", ev1 = " & MotionEvent1 & ", ev2 = " & MotionEvent2)
End Sub

 

[ehsan211]

Hello ... I've been trying this library and it looks really fantastic .....
I wanted to take advantage of it to create dynamic buttons and be able to drag them over a picture ....

Thanks

Sub Globals
Private pnlFilho2 As Panel
Dim GD As GestureDetector
end sub
Sub Activity_Create(FirstTime As Boolean)

For b=0 To 2

Dim btnDrag As Button
btnDrag.Initialize("btnDrag" & b)

pnlFilho2.AddView(btnDrag,5%x+b*50 , pnlFilho2.Height*0.8, 40dip,40dip)
btnDrag.Text = "B" & (b+1)
btnDrag.TAG = "t" & b
btnDrag.Color=Colors.Yellow
btnDrag.TextColor = Colors.Black

btnDrag.Visible=True
GD.SetOnGestureListener(btnDrag, "Gesture")
Next

end sub

Sub Gesture_onTouch(Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Log("onTouch action=" & Action & ", x=" & X & ", y=" & Y & ", ev=" & MotionEvent)
Return True
End Sub
Sub Gesture_onDown(X As Float, Y As Float, MotionEvent As Object)
Log(" onDown x = " & X & ", y = " & Y & ", ev = " & MotionEvent)
Log(" pressure = " & GD.getPressure(MotionEvent, 0))
Log(" size = " & GD.getSize(MotionEvent, 0))
End Sub
Sub Gesture_onDrag(deltaX As Float, deltaY As Float, MotionEvent As Object)
Log(" onDrag deltaX = " & deltaX & ", deltaY = " & deltaY & ", ev = " & MotionEvent)
Dim butdrag As Button
butdrag = Sender
Log(butdrag.tag)
butdrag.Left = Max(0, Min(butdrag.Left + deltaX, 100%x - butdrag.Width))
butdrag.Top = Max(0, Min(butdrag.Top + deltaY, 100%y - butdrag.Height))
End Sub
Sub Gesture_onFling(velocityX As Float, velocityY As Float, MotionEvent1 As Object, MotionEvent2 As Object)
Log(" onFling velocityX = " & velocityX & ", velocityY = " & velocityY & ", ev1 = " & MotionEvent1 & ", ev2 = " & MotionEvent2)
End Sub

hello . its my question Too . i try different method but cant solve it

 

[Janusz Chmiel]

This library is really what I have even wanted to achieve. I would be able to monitor finger movements, angle and even pressure strenght on some display place. But I have one programmers plea to all of us.

Because I do not see at all, I AM dependent on Android screen readerandEspecially on Explore by touch Android build in service. This service is not The part of GOogle Accessibility suite. It is Android service which can be called by every app. But it was strongdisadvantage. If Explore by touch service is being actively used, libraryes or code, which detect gestures related feetback can not work.Does somebody of us think,that this long time limitation of ANdroid could be overcomed on future Android versions? Now, visually impaired user must always suspend Android accessibilitysuite or disable Explore by touch feature of this screen reader. In this case, screen reader will never interact with Explore by touch Android service. In this case user can use what ever app he or she is wanting even with gestures feetback.

But one developer from our country have invented one work around. His app can detect, if visually impaired user has used two or three fingers and even The direction of those finger tips movement. I do notknow, if is it because Android accessibility suite export some external APIS of if Explore by touch service allow this.
COuld somebody look at this problem related to conflict between Explore by touch Android service and other apps, which would want to get gestures feetback?
Thank you very very much and thank You for yours very useful library.

 

[Kita]

I wish your library can detect "pinch to zoom" action

Its by default

 

[dlh_007]

My example tests three ways to drag:


1. Drag the OverlayWindow through the Touch event of the OverlayWindow class . Refer to your example OverlayInfo.b4a .


2. Drag the panel in the activity through the OnDrag event of GestureDetector class . Refer to your example GestureDetector_Drag.b4a .


3. Drag the OverlayWindow through the OnDrag event of GestureDetector class . The reason why I try to use OverlayWindow + GestureDetector is that: in addition to dragging, I also need to perform pinch/fling and other gesture operations on OverlayWindow .

In the third way, the drag is not smooth, using a real device for test. I think the reason may be that the dragging changes the X/Y coordinates of the OverlayWindow, causing the GestureDetector.OnDrag event to get discontinuous X/Y parameters. My suggestion is to add the ScreenX/Y parameter to GestureDetector.OnDrag event, like the OverlayWindow.Touch event .

Sub InitWindow    
    MaxWidth = GetDeviceLayoutValues.Width
    MaxHeight = GetDeviceLayoutValues.Height
    OW.Initialize2(MaxWidth-80dip, MaxHeight-80dip, 64dip, 64dip, "Pnl")
    Dim Pnl As Panel = OW.Panel

    Dim drwColor As ColorDrawable
    drwColor.Initialize2(Colors.ARGB(180, 150, 150, 150),32dip,0,Colors.ARGB(180, 150, 150, 150))
    Pnl.Background=drwColor
    Dim btn As Button 
   'Your button Initialize code
    GD.SetOnGestureListener(btn, "Gesture")
End Sub

Sub Gesture_onTouch(Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
    Select Action
        Case GD.ACTION_DOWN
            Log($"onDown  X,Y:(${x},${y})"$)
            preX=x
            preY=Y
            Animation=DateTime.Now
        Case GD.ACTION_MOVE
            If DateTime.Now - Animation>50 Then                       
                Animation=DateTime.Now
                Log($"onMove  X,Y:(${x},${y})"$)
                OW.X = Max(0, Min(OW.X + x - preX, MaxWidth - OW.Width))
                OW.Y = Max(0, Min(OW.Y + y - preY, MaxHeight - OW.Height))
            End If
        Case GD.ACTION_UP
            Log($"onUp   X,Y:(${x},${y})"$)
            OW.X = Max(0, Min(OW.X + x - preX, MaxWidth - OW.Width))
            OW.Y = Max(0, Min(OW.Y + y - preY, MaxHeight - OW.Height))
    End Select
    Return True
End Sub

I added a Button in OverlayWindow, I need to use the Button Touch to move OverlayWindow. But I also encountered the same problem, I have temporarily solved it by the above code.