Sub Globals
Private gmap As GoogleMap
Private MapFragment1 As MapFragment
Private styler As GoogleMapStyler
End Sub
Sub Activity_Create(FirstTime As Boolean)
styler.Initialize("")
'Activity.LoadLayout("1")
Dim p As Panel
p.Initialize("Panel")
Activity.AddView(p,0,0,100%x,100%y)
p.LoadLayout("1")
If MapFragment1.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Please install Google Play Services.", True)
End If
End Sub
Sub MapFragment1_Ready
Log("MapFragment1_Ready")
gmap = MapFragment1.GetMap
styler.setAllMainTownTextColor(Colors.Red).setAllRoadBackgroundColor(Colors.Magenta)
' Set all colors like you wish before next line....
styler.build(gmap)
End Sub