#Region Project Attributes
#ApplicationLabel: GoogleMapDemo
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
#AdditionalRes: C:\Programme\Android\android-sdk\extras\google\google_play_services\libproject\google-play-services_lib\res, com.google.android.gms
Sub Process_Globals
Dim GoogleMapsExtras1 As GoogleMapsExtras
End Sub
Sub Globals
Dim mFragment As MapFragment
Dim gmap As GoogleMap
Dim MapPanel As Panel
Dim cp As CameraPosition
'Dim GoogleMapsExtras1 As GoogleMapsExtras
End Sub
Sub Activity_Create(FirstTime As Boolean)
MapPanel.Initialize("")
Activity.AddView(MapPanel, 0, 0, 100%x, 100%y)
If mFragment.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Google Play services not available.", True)
Else
mFragment.Initialize("Map", MapPanel)
End If
End Sub
Sub Map_Ready
Log("map ready")
gmap = mFragment.GetMap
If gmap.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
Dim MarkerOptions1 As MarkerOptions
MarkerOptions1.Initialize
Dim tmpMarker As Marker
MarkerOptions1.Draggable(True)
MarkerOptions1.Position2(64.79619, 18.3980).Snippet("pkt").Title("1")
tmpMarker=GoogleMapsExtras1.AddMarker(gmap, MarkerOptions1)
Dim markerDragListener As OnMarkerDragListener
markerDragListener.Initialize("markerDragListener")
GoogleMapsExtras1.SetOnMarkerDragListener(gmap,markerDragListener)
Dim cp As CameraPosition
cp.Initialize(64, 18, gmap.CameraPosition.Zoom)
gmap.AnimateCamera(cp)
End If
End Sub
Sub markerDragListener_Drag(Marker1 As Marker)
Log("Drag")
End Sub
Sub markerDragListener_DragEnd(Marker1 As Marker)
Log("DragEnd")
End Sub
Sub markerDragListener_DragStart(Marker1 As Marker)
Log("DragStart")
End Sub