Sub Process_Globals
End Sub
Sub Globals
Dim lstTest As ListView
Dim pnlTop As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
addViews
pnlTop.BringToFront
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub addViews
lstTest.Initialize("")
Activity.AddView(lstTest, 0dip, 0dip, Activity.Width, Activity.Height)
pnlTop.Initialize("panel")
Activity.AddView(pnlTop, 0dip, 0dip, Activity.Width, Activity.Height)
For i = 1 To 100
lstTest.AddSingleLine("Test Data line " & i)
Next
End Sub
Sub panel_Touch (Action As Int, X As Float, Y As Float) As Boolean
ToastMessageShow("Touched", False)
Return True ' Signal that the event is "consumed"
End Sub
End Sub