Dim p As Phone
If p.SdkVersion == 28 Then
GD.SetOnGestureListener(CLV.sv, "GD")
End If
'--------------------
SubGD_onTouch(Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Return True 'True = Handle this touch event, False = Ignore it
End Sub
Sub GD_onScroll(distanceX As Float, distanceY As Float, MotionEvent1 As Object, MotionEvent2 As Object)
Dim scroller As ScrollView = CLV.sv
scroller.ScrollPosition = scroller.ScrollPosition + distanceY
End Sub
Sub GD_onFling(velocityX As Float, velocityY As Float, MotionEvent1 As Object, MotionEvent2 As Object)
Dim scroller As ScrollView = CLV.sv
scroller.ScrollPosition = scroller.ScrollPosition + velocityY / 5 'Not nice but better than nothing.
End Sub