Expect that be useful for something, showing my code
Sub Globals
Private ppanel As Panel
Private x1,y1 As Float
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ppanel_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_MOVE
ToastMessageShow("Touched",False)
Log(X&Y)
End Select
End Sub
Private ppanel As Panel
Private x1,y1 As Float
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ppanel_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_MOVE
ToastMessageShow("Touched",False)
Log(X&Y)
End Select
End Sub