#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: SoundPool
#VersionCode: 1
#VersionName:
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
End Sub
Sub Globals
Private Panel2 As Panel
Private Panel3 As Panel
Private gd As Gestures
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
gd.SetOnTouchListener(Panel2, "GesturesTouch")
gd.SetOnTouchListener(Panel3, "GesturesTouch2")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub GesturesTouch(View As Object, PointerID As Int, Action As Int, X As Float, Y As Float) As Boolean
Panel2.Color = Colors.RGB(200,200,200)
If Action = 1 Then Panel2.Color = Colors.RGB(255,255,255)
Return True
End Sub
Sub GesturesTouch2(View As Object, PointerID As Int, Action As Int, X As Float, Y As Float) As Boolean
Panel3.Color = Colors.RGB(200,200,200)
If Action = 1 Then Panel3.Color = Colors.RGB(255,255,255)
Return True
End Sub