Sub Process_Globals
Dim PosicionScroll As Int
End Sub
Sub Globals
Private ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("LayoutMain")
ScrollView1.Initialize(700dip)
pContent.AddView(ScrollView1,0,0,100%x,100%y)
ScrollView1.Panel.LoadLayout("LayoutCont")
End Sub
Sub ScrollView1_ScrollChanged(Position As Int)
PosicionScroll = Position
End Sub
Sub Activity_Resume
ScrollView1.ScrollPosition = PosicionScroll
End Sub