Sub Globals
Dim hv As HorizontalScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
hv.Initialize(5000dip, "hv")
Activity.AddView(hv, 0, 0, 100%x, 100%y)
hv.Panel.Color = Colors.Blue
hv_ScrollChanged(0)
End Sub
Sub hv_ScrollChanged(Position As Int)
Dim moreRight, moreLeft As Boolean
moreLeft = Position > 0
moreRight = Position + hv.Width < hv.Panel.Width
Activity.Title = "MoreLeft = " & moreLeft & ", MoreRight = " & moreRight
End Sub