B4i Library [class]GoogleMapsExtra

This class extends GoogleMaps library.
Currently it supports:
- AddCircle - Adds a circle at a give point.
- AddGroundOverlay - Adds an image at the given bounds.
- ZoomToPoints
- SetSelectedMarker
- SetMarkerRotation
- SetGroundAnchor - sets the marker anchor.
- AddPolygon


Example:

gextra.Initialize(gmap)
Dim ne, sw As LatLng
ne.Initialize(20, 20)
sw.Initialize(00, 00)
Dim bounds As Object = gextra.CreateBounds(ne, sw)
gextra.AddGroundOverlay(bounds, LoadBitmap(File.DirAssets, "up76.png"))

Note that the bundle in the special folder is not included. You need to download it from the tutorial.

Updates:

v2.15 - New AnimateCameraWithDuration method. Same as gmap.AnimateCamera with configurable duration.
v2.10 - Adds support for custom info windows (appear when the user clicks on a marker).

You need to add this event sub and create the custom panel or return Null:

'Return Null for the default marker layout
Sub gmap_MarkerInfoWindow (OMarker As Object) As Object
   Dim SelectedMarker As Marker = OMarker
   Dim p As Panel
   p.Initialize("")
   p.Color = Colors.Red
   p.SetLayoutAnimated(0, 1, 0, 0, 200, 200)
   Dim lbl As Label
   lbl.Initialize("")
   lbl.Text = SelectedMarker.Title
   p.AddView(lbl, 10, 10, 200, 200)
   Return p
End Sub

 

[iCAB]

Thanks Erel,
Amazing... I can't thank you enough.

 

[iCAB]

Hi All
I am looking for the equivalent of:

GoogleMapsExtras.Snapshot

as in B4A.

Any help is greatly appreciated.

 

[Erel]

Have you tried to draw it with Canvas.DrawView? Call it after the map is fully drawn. I haven't tested it myself.

 

[iCAB]

Canvas.DrawView works perfect
Thanks a lot

 

[iCAB]

Hi all
Does anyone know how to show/hide the traffic layer.

Thanks in advance

 

[Erel]

Please post questions in the questions forum.

You can set the GoogleMap.TrafficEnabled property.

 

[iCAB]

Thanks Erel,
Unbelievable I was so focused on GoogleMapsExtra (as this is what I used with B4A) to the point that forgot to check GoogleMaps

 

[Christian Abate]

Hi, I have some 3000 markers. is there a way to cluster markers?

 

[Erel]

Currently no as cluster markers are not part of the SDK. It is included in a utility library that is not wrapped in B4i.

 

[Christian Abate]

Thanks, is there any trick I can use to achieve it?

 

[Erel]

I don't think so.

 

[Paul Leischow]

After upgrading to lastest B4I v4.00, the GoogleMapsExtra command AddCircle now returns an empty string.
What am I missing?

 

[Erel]

AddCircle doesn't return anything. It adds the circle to the map (see the code).

 

[Paul Leischow]

Oops... Right you are
Turns out I modified the GoogleMapsExtra.bas file so AddCircle returned a value and when I updated to latest version I lost the Mod.

Any chance we can have this SUB changed in the official file to make it more useful ??

Public Sub AddCircle (Lat As Double, Lon As Double, Radius As Double, Color As Int) As NativeObject
Dim circle As NativeObject = no.RunMethod("createCircle:::", Array(Lat, Lon, Radius))
circle.SetField("map", gm)
circle.SetField("strokeWidth", 5)
circle.SetField("fillColor", circle.ColorToUIColor(Color))
circle.SetField("strokeColor", circle.ColorToUIColor(Color))
Return Circle
End Sub​

 

[Erel]

I will add it.

 

[Erel]

V2.10 released. See first post.

 

[Arnaud]

Hello,

Is it possible to display a polygone "open" and no close? or maybe to display a single line?

Thanks

 

[Erel]

Please start a new thread for any question you have.

 

[Erel]

v2.15 - New AnimateCameraWithDuration method. Same as gmap.AnimateCamera with configurable duration.