#Region Project Attributes
#ApplicationLabel: Nereu Bus Tracker
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#AdditionalJar: com.google.android.gms:play-services-maps
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
'Activity module
Sub Process_Globals
End Sub
Sub Globals
Private gmap As GoogleMap
Private MapFragment1 As MapFragment
Private Button1 As Button
Private Button1_n As Button
Private bmp As Bitmap
End Sub
Sub Button1_n_click
Activity.LoadLayout("1")
End Sub
Sub Button1_Click
Activity.LoadLayout("2")
End Sub
Sub Activity_Create(FirstTime As Boolean)
bmp = LoadBitmapResize(File.DirAssets, "bus_icon_redlow.png", 32dip, 32dip, True)
Log(File.DirAssets)
Activity.LoadLayout("1")
If MapFragment1.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Please install Google Play Services.", True)
End If
Dim width = Activity.Width
Dim height = Activity.Height
Log("width = "&width)
Log("height = "&height)
End Sub
Sub MapFragment1_Ready
gmap = MapFragment1.GetMap
gmap.MyLocationEnabled = True
Dim m1 As Marker = gmap.AddMarker3(10, 40, "test",bmp) 'When i add bmp icon dont appear marker
m1.Snippet = "This is the snippet"
End Sub
Sub gmap_MarkerClick (SelectedMarker As Marker) As Boolean
Log(SelectedMarker.Snippet)
Return True
End Sub