Private Sub TouchPanel_OnInterceptTouchEvent (Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
If HandlingSwipe Or WaitingForRefreshToComplete Then Return True
Select Action
Case Base.TOUCH_ACTION_DOWN
TouchXStart = X
TouchYStart = Y
HandlingSwipe = False
Case Base.TOUCH_ACTION_MOVE
Dim dx As Float = Abs(x - TouchXStart)
Dim dy As Float = Abs(y - TouchYStart)
If mPullToRefreshPanel.IsInitialized And mCLV.sv.ScrollViewOffsetY = 0 And y - TouchYStart > 3dip Then
HandlingSwipe = True
PullToRefreshSwipe = True
mPullToRefreshPanel.Visible = True
CloseLastSwiped
Else If dy < 20dip And dx > 10dip Then
If HandlingSwipe = False Then
Dim NewSwipeItem As Int = mCLV.FindIndexFromOffset(TouchYStart + mCLV.sv.ScrollViewOffsetY) <-----------
If NewSwipeItem <> LastSwipedItem Then CloseLastSwiped
LastSwipedItem = NewSwipeItem
End If
HandlingSwipe = True
PullToRefreshSwipe = False
End If
End Select
Return HandlingSwipe
End Sub
