Sub Globals
Dim lv As ListView, rf As Reflector, tmr As Timer
End Sub
Sub Activity_Create(FirstTime As Boolean)
lv.Initialize("lv")
For i=0 To 2999:lv.AddSingleLine(i):Next
Activity.AddView(lv,0,0,100%x,100%y)
tmr.Initialize ("tmr",100)
tmr.Enabled=True
rf.Target=lv
End Sub
Sub tmr_tick
Dim firstVisible As Int
firstVisible=rf.RunMethod("getFirstVisiblePosition")
Log(firstVisible)
End Sub