Sub Process_Globals
End Sub
Sub Globals
Dim pnlTest As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
pnlTest.Initialize("test")
Activity.AddView(pnlTest,10dip,10dip,200dip,200dip)
pnlTest.Color = Colors.Red
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub test_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case pnlTest.ACTION_DOWN
Log("Down -> X: "&X&" Y: "&Y)
Case pnlTest.ACTION_UP
Log("UP -> X: "&X&" Y: "&Y)
Case pnlTest.ACTION_MOVE
Log("Moving -> X: "&X&" Y: "&Y)
Case Else
Log("other action")
End Select
Return True
End Sub