Sub Process_Globals
Dim sc As ScrollView
Dim pp As Int
EndSub
PrivateSub Application_Start (Nav AsNavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("main")
Timer.Initialize("TimerX", 700)
sc.ScrollTo(0,Round(pp / Dyy ) *Dyy,True)
EndSub
Sub TimerX_Tick
Dim ti AsTimer
ti=Sender
sc.ScrollTo(0,Round(pp / Dyy ) *Dyy ,True)
Timer.Enabled = False
EndSub
Sub SC_ScrollChanged (OffsetX AsInt, OffsetY AsInt)
Dim SV1 AsScrollView
SV1=Sender
Timer.Enabled = True
pp=OffsetY
Dim r As Reflector ----> b4i no reflector
r.Target =SV1
r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
EndSub