Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private clvProducts1 As CustomListView
Private clvProducts2 As CustomListView
Private CLVs As List
Type LastMovedType (CLV As CustomListView, Time As Long)
Private LastMoved As LastMovedType
End Sub
Public Sub Initialize As Object
LastMoved.Initialize
Return Me
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
CLVs = Array(clvProducts1,clvProducts2)
Root.LoadLayout("Consumer2")
End Sub
Sub clvProducts1_ScrollChanged (Offset As Int)
[B][I]Log("clvProducts1_ScrollChanged:"&Offset)[/I][/B]
HandleScrollChanged(Sender, Offset)
End Sub
Sub clvProducts2_ScrollChanged (Offset As Int)
Log("clvProducts2_ScrollChanged:"&Offset)
HandleScrollChanged(Sender, Offset)
End Sub
Sub HandleScrollChanged (CLV As CustomListView, offset As Int)
If LastMoved.Time + 100 < DateTime.Now Then
[I][B]Log("new movement")[/B][/I]
[B][I] [/I][/B]LastMoved.Time = DateTime.Now
LastMoved.CLV = CLV
Else if LastMoved.CLV <> CLV Then
Log("different CLV")
Return
End If
For Each c As CustomListView In CLVs
[I][B]Log("[I][B]CLVs.Size:"&[I][B]CLVs.Size[/B][/I][/B][/I])[/B][/I]
[B][I] [/I][/B] If c <> LastMoved.CLV Then
[U][B]c.sv.ScrollViewOffsetY = offset[/B][/U]
End If
Next
End Sub