Sub MapFragment1_Ready
gmap = MapFragment1.GetMap
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
gmap.MyLocationEnabled = True
Else
Log("No permission!")
Return
End If
Dim extra As GoogleMapsExtras
Dim iwa As InfoWindowAdapter
iwa.Initialize("iwa")
extra.SetInfoWindowAdapter(MapFragment1.GetMap,iwa)
MapPanel.Initialize("")
Activity.AddView(MapPanel, 0, 0, 300dip, 300dip)
MapPanel.LoadLayout("itemMarkerHarta")
MapPanel.RemoveView
End Sub
......
Sub iwa_GetInfoContents(Marker1 As Marker) As View
GetInfoMarker(Marker1.Snippet)
LabelInfo1.Text = ?????
Return MapPanel
End Sub
......
Sub GetInfoMarker(aidiMarker As String)
Dim jobDownload As HttpJob
jobDownload.Initialize("jobLoadInfo", Me)
ProgressDialogShow2("Operatie in progres...", False)
................................. reading data from server .....................................................
ProgressDialogHide
jobDownload.Release()
End Sub