.
Last edited:
Sub Process_Globals
End Sub
Sub Globals
Dim ScrollView1 As ScrollView
Dim height As Int
height = 50dip ' <= Height of each line in the scroll view
End Sub
Sub Activity_Create(FirstTime As Boolean)
ScrollView1.Initialize(0)
Dim pnl As Panel
pnl = ScrollView1.Panel
Activity.AddView(ScrollView1, 0, 0, 100%x, 100%y)
For i = 1 To 10
Dim lbl1 As Label
lbl1.Initialize("")
lbl1.Text = "Line number " & i ' <= Here you can write what you actually want to see on the screen
pnl.AddView(lbl1, 0, height * (i - 1), 100%x, height) ' <= Position and size of the label on the panel
Next
pnl.Height = 10 * height
End Sub