Sub Globals
Dim scvTest As ScrollView2D
End Sub
Sub Activity_Create(FirstTime As Boolean)
scvTest.Initialize(100, 100, "")
Activity.AddView(scvTest, 0, 0, 100%x, 100%y)
Dim i, j As Int
For i = 0 To 20
For j = 0 To 4
Dim edt As EditText
edt.Initialize("edt")
scvTest.Panel.AddView(edt, 5dip + j * 155dip, 5dip + i * 55dip, 150dip, 50dip)
edt.Text = i * 5 + j
Next
Next
scvTest.Panel.Width = 5dip + 4 * 155dip
scvTest.Panel.Height = 5dip + 21 * 55dip
End Sub