'Activity module
Sub Process_Globals
End Sub
Sub Globals
Private gmap As GoogleMap
Private MapFragment1 As MapFragment
Private CLV1 As CustomListView
Private ImageView1 As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("CLV")
CLV1.AddTextItem($"s ;ldfk ;sldf wef
w eglw gkw
gkw;elg w
eg wekfer
re
g
erg
erg
g lwkgl;w keg
;we lkgw;l g"$, "")
Dim p As Panel
p.Initialize("")
Activity.AddView(p, 0, 0, 100%x, 300dip) 'just to set the panel dimensions
p.LoadLayout("1")
p.RemoveView
CLV1.Add(p, p.Height, "")
CLV1.AddTextItem($"s ;ldfk ;sldf wef
w eglw gkw
gkw;elg w
eg wekfer
re
g
erg
erg
g lwkgl;w keg
;we lkgw;l g"$, "")
Dim r As Reflector
r.Target = ImageView1
r.SetOnTouchListener("ImageView1_Touch")
ImageView1.Color = Colors.Transparent
If MapFragment1.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Please install Google Play Services.", True)
End If
End Sub
Sub ImageView1_Touch (ViewTag As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Dim sv As ScrollView = CLV1.AsView
Dim jo As JavaObject = sv
jo.RunMethod("requestDisallowInterceptTouchEvent", Array(Action = Activity.ACTION_DOWN Or Action = Activity.ACTION_UP))
Return Action = Activity.ACTION_UP
End Sub
Sub MapFragment1_Ready
gmap = MapFragment1.GetMap
End Sub