Sub Globals
Dim Manager As ManagerEvent
Private Label1 As Label
Private Label2 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
Manager.Initialize(Me)
Manager.SetEvent(Label1,"Label1").SetEvent(Label2,"Label2")
Manager.SetEvent(Label3,"Label3")
End Sub
Sub Label1_TouchEvent (action As Int, Coordinate() As TCoordinate)
Select action
Case Manager.Action_Down
Log($"Label1: Press"$)
Case Manager.Action_Drag ' Drag
Log($"Label1: Drag- X:${Coordinate(0).X} Y:${Coordinate(0).y}"$)
Case Manager.Action_Up ' Release click
Log($"Label1: Release "$)
Case Manager.Action_Click
Log($"Label1: Click"$)
Case Manager.Action_DoubleClick
Log($"Label1: DoubleClick"$)
Case Manager.Action_LongClick
Log($"Label1: LongClick"$)
Case Else
Log($"Label1: ${action}- X:${Coordinate(0).X} Y:${Coordinate(0).y}"$)
End Select
End Sub
Sub Label2_TouchEvent (action As Int, Coordinate() As TCoordinate)
Log($"Label2: ${action}- X:${Coordinate(0).X} Y:${Coordinate(0).y}"$)
ToastMessageShow("Label2",False)
End Sub
Sub Label3_TouchEvent (action As Int, Coordinate() As TCoordinate)
Log($"Label3: ${action}- X:${Coordinate(0).X} Y:${Coordinate(0).y}"$)
End Sub
