Sub Process_Globals
End Sub
Sub Globals
Dim sv As ScrollView
Dim test As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
setupViews
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Private Sub setupViews
' Make the scroll view height match the screen height
sv.Initialize(Activity.Height)
' Make the scrollview's panel (that holds its views) twice screen height, for example
sv.Panel.Height = Activity.Height * 2
' Add the scrollview to the activity
Activity.AddView(sv, 0, 0, Activity.Width, Activity.Height)
' Set up a demonstration view
test.Initialize("")
' Make the test panel half screen height and add it to overlap the bottom of the screen, say
sv.Panel.AddView(test, 0, 3 * Activity.Height / 4, Activity.Width, Activity.Height / 2)
test.Color = Colors.Red
test.TextColor = Colors.Black
test.Text = "Scrollable label"
End Sub