B4J Library jSD_OpenMaps

As many currently know Googlemaps' Webapi do not work correctly on the webview because the latest versions use webgl

I decided to do a new library that uses OpenMap and Leaflet with the same methods and events of the Googlemaps bookshop. I also created a second OpenMapext class that adds some Googlemapsext commands to maintain compatibility and minimize changes to the existing code. The code we used with GMAPS with Javaobject to obtain extra functions is no longer usable. Tested with Java 19,

jSD_OpenMaps

Author: Star-Dust
Version: 1.10
  • CameraPosition
    • Functions:
      • Class_Globals As String
      • Initialize (Lat As Double, Lng As Double, Zoom As Float) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • Target As String
      • ToString As String
    • Properties:
      • Lat As Double [read only]
      • Lng As Double [read only]
      • Zoom As Float [read only]
  • LatLng
    • Fields:
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • Latitude As Double
      • Longitude As Double
    • Functions:
      • Initialize
        Inizializza i campi al loro valore predefinito.
  • MapCircle
    • Functions:
      • Class_Globals As String
      • Initialize (vCenter As LatLng, vRadius As Double, Visble As Boolean, id As String, WebView As JavaObject) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • Center As LatLng [read only]
      • ID As String [read only]
      • Radius As Double [read only]
      • Visible As Boolean
  • MapInfoWindow
    • Functions:
      • Class_Globals As String
      • Initialize (vContent As String, vPosition As LatLng, ID As String) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • Content As String [read only]
      • ID As String [read only]
      • Position As LatLng [read only]
  • MapLabel
    • Functions:
      • Class_Globals As String
      • Initialize (vPosition As LatLng, vText As String, vPermanent As Boolean, vID As String, WebView As JavaObject) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • ID As String [read only]
      • Permanent As Boolean [read only]
      • Position As LatLng [read only]
      • Text As String
  • MapPolygon
    • Functions:
      • Class_Globals As String
      • Initialize (Visble As Boolean, ID As String, Point As List, StrokeWidth As Int, StrokeColor As Paint, FillColor As Paint, Opacity As Double, WebView As JavaObject) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • FillColor As Paint [read only]
      • ID As String [read only]
      • LineColor As Paint [read only]
      • LineWidth As Int [read only]
      • Opacity As Float [read only]
      • Points As List [read only]
        List of LatLng
      • Visible As Boolean
  • MapPolyline
    • Functions:
      • Class_Globals As String
      • Initialize (Visble As Boolean, ID As String, Point As List, StrokeWidth As Int, StrokeColor As Paint, WebView As JavaObject) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
    • Properties:
      • ID As String [read only]
      • LineColor As Paint [read only]
      • LineWidth As Int [read only]
      • Points As List [read only]
        List of LatLng
      • Visible As Boolean
  • Marker
    • Functions:
      • Class_Globals As String
      • CreateLabel (Text As String) As String
        Create Label on Marker
      • Initialize (vPosition As LatLng, vTitle As String, vIconUri As String, vVisible As Boolean, vID As String, WebView As JavaObject) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • UpdateLabel (Text As String) As String
        Set Text empty for remove
    • Properties:
      • Draggable
      • IconUri As String [read only]
      • IconUrl As String [read only]
      • ID As String [read only]
      • Position As LatLng [read only]
      • Title As String [read only]
      • Visible As Boolean
  • OpenMaps
    • Events:
      • CameraChange (CamPosition As CameraPosition)
      • CircleClick (SelectedCircle As MapCircle)
      • Click (Point As LatLng)
      • MarkerClick (SelectedMarker As Marker)
      • MouseMove (Point As LatLng)
      • PolygonClick (SelectedPolygon As MapPolygon)
      • PolylineClick (SelectedPolyline As MapPolyline)
      • Ready
      • RightClick (Point As LatLng)
    • Fields:
      • MAP_TYPE_CARTO As Int
      • MAP_TYPE_ESI As Int
      • MAP_TYPE_HYBRID As Int
      • MAP_TYPE_NORMAL As Int
      • MAP_TYPE_SATELLITE As Int
      • MAP_TYPE_TERRAIN As Int
      • mBase As B4XView
      • Tag As Object
    • Functions:
      • AddCircle (ll As LatLng, Radius As Double, StrokeWidth As Float, StrokeColor As Paint, FillColor As Paint, Opacity As Double) As MapCircle
        Adds a circle To the map.
        Center - Position of the circle center.
        Radius - Circle radius.
        StrokeWidth - Stroke width.
        StrokeColor - Stroke color.
        FillColor - Inner color.
        Opacity - Inner color opacity. Value between 0 To 1.
      • AddInfoWindow (Content As String, Position As LatLng) As MapInfoWindow
        Opens an info window with the given HTML content at the specified position.
      • AddInfoWindow2 (Content As String, Position As LatLng, MaxWidth As Int) As MapInfoWindow
        Opens an info window with the given HTML content at the specified position. It cannot be larger than MaxWidth (in pixels).
      • AddMarker (Lat As Double, Lng As Double, Title As String) As Marker
        Adds a marker to the map.
      • AddMarker2 (Lat As Double, Lng As Double, Title As String, IconUri As String) As Marker
        Adds a marker To the map with a custom icon.
        The IconUri must point To an online image Or an image from the assets folder.
        In the later Case the custom icon will only appear in Release mode.
        Example:
        <code>gmap.AddMarker2(10, 10, "This is a test", _
        File.GetUri(File.DirAssets, "SomeIcon.png"))</code>
      • AddPolygon (Points As List, StrokeWidth As Float, StrokeColor As Paint, FillColor As Paint, Opacity As Double) As MapPolygon
        Adds a polygon To the map.
        Points - A list Or Array of LatLng points.
        es. array(array(41.90, 12.49),array(41.80, 12.50),array(41.85, 12.60))
        StrokeWidth - Stroke width.
        StrokeColor - Stroke color.
        FillColor - Inner color.
        Opacity - Inner color opacity. Value between 0 To 1.
      • AddPolyline (Points As List, StrokeWidth As Float, StrokeColor As Paint) As MapPolyline
        Adds a polyline To the map.
        Points - A list Or Array of LatLng points.
        Width - Line width.
        Color - Line color.
        CloseInfoWindow (InfoWindow As InfoWindow)
        Closes the specified info window.
      • AllVisibleMapObjects As String
      • CameraPosition As CameraPosition
        Returns the current camera position.
      • Class_Globals As String
      • ClearMap As String
      • DesignerCreateView (Base As Object, Lbl As Label, Props As Map) As String
        Base type must be Object
      • EditConfigure (Offset As Double, Tollerance As Int) As String
        Offset -> Map difference; Tollerance -> Editing Poly point
      • EditingActive As Boolean
      • EditingCircle (Circle As MapCircle, Active As Boolean) As Boolean
      • EditingPolygon (Polygon As MapPolygon, Active As Boolean) As Boolean
        If an element is already in editing, it is not possible to edit another at the same time.
        Dim Success As Boolean = OpenMap.EditingPolygon(Polygon,True)
      • EditingPolyline (Polyline As MapPolyline, Active As Boolean) As Boolean
      • filterVisibleMapObjects As String
        Makes only the objects visible inside the visible map (Bounds)
      • Initialize (Callback As Object, EventName As String) As String
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • IsReady As Boolean
      • LatLonToXY (ll As LatLng) As Double()
      • LoadMKL (Path As String, FileName As String) As Map
        Return Map as Object
        Key is ID , Value is Object (Marker,MapPolygon,MapPolyline)
        <code>ObjectMap = OpenMap.LoadMKL(Path, FileName)</code>
      • MapLoaded As Boolean
      • MessageToPanel (Text As String) As String
      • MoveCamera (cp As CameraPosition) As String
      • MoveCamera2 (ll As LatLng) As String
      • PanelOff As String
      • PanelOn As String
      • RedrawAllObj As String
      • RemoveCircle (vCircle As MapCircle) As String
        Removes the specified circle from the map.
      • RemoveInfoWindow (InfoWindow As MapInfoWindow) As String
      • RemoveMarker (vMarker As Marker) As String
        Removes the specified marker from the map.
      • RemovePolygon (vPolygon As MapPolygon) As String
        Removes the specified polygon from the map.
      • RemovePolyline (vPolyline As MapPolyline) As String
        Removes the specified polyline from the map.
      • SaveKML (MapObj As Map, Path As String, FileName As String) As String
      • UpdateCircleRadius (id As String, Radius As Double) As String
        NewPoint as List of LatLng
      • UpdatePolygon (Plg As MapPolygon, NewPoints As List) As String
      • UpdatePolyline (Pll As MapPolyline, NewPoints As List) As String
      • visibleObject (ID As String, Visible As Boolean) As String
        es. OpenMap.visibleObject(Polygon.ID)
      • ww As JavaObject
      • XYToLatLng (x As Double, y As Double) As LatLng
    • Properties:
      • MapBound As Map [read only]
        Return bound in map format:
        {"northEast":{"lat":45.123,"lon":12.456},"southWest":{"lat":40.987,"lon":10.321}}
        Dim Bound As Map = OMaps.MapBound
      • MapType
        get or set the zoom level.
      • NumberOfElements As Int [read only]
        Number Of Elements added
      • Zoom As Int
        Sets the zoom level.
  • OpenMapsExt
    • Functions:
      • AddressToLatLon (address As String) As ResumableSub
        <code>wait for (GMapExt.AddressToLatLon("Address number, City")) COMPLETE (ll as LatLng)</code>
      • Class_Globals As String
      • GetBearing (Point1 As LatLng, Point2 As LatLng) As Double
        Returns the bearing between two points, from point1 to point2- not exist
      • GetCircleIsDraggable (Cricle As MapCircle) As Boolean
      • GetDistance (Point1 As LatLng, Point2 As LatLng) As Double
        Returns the distance between two points in meters
      • GetMarkerIsDraggable (Mk As Marker) As Boolean
      • GetMarkerLabel (m As Marker) As String
        not available
      • GetMarkerPosition (m As Marker) As LatLng
        Returns the marker position as LatLng Object
      • GetMarkerTitle (m As Marker) As String
        Returns the title of a marker as string
      • GetPolygonIsDraggable (Polygon As MapPolygon) As Boolean
      • GetPolylineIsDraggable (Polyline As MapPolyline) As Boolean
      • Initialize (OpenMap As OpenMaps) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • LatLonToAddress (lat As Double, lon As Double) As ResumableSub
      • LatLonToXY (ll As LatLng) As Double()
        Returns the screen coordiantes for the given LatLng coordinates
      • LatLonToXY2 (ll As LatLng) As Double()
      • RemoveMarkerLabel (m As Marker) As String
        not available
        Removes the Marker Label for the given Marker
      • SetCircleDraggable (C As MapCircle, Draggable As Boolean) As String
        Sets the circle draggable property
      • SetGeodesic (shape As JavaObject) As String
        Sets a polygon or polyline to geodesic points - not exist
      • SetMarkerClickable (m As Marker, Clickable As Boolean) As String
        Always clickable - not necessary
        Sets the marker clickable property
      • SetMarkerDraggable (m As Marker, Draggable As Boolean) As String
        Sets the marker draggable property
      • SetMarkerIcon (m As Marker, URL As String) As String
        not available
      • SetMarkerLabel (m As Marker, Text As String, Color As String, TextSize As Double) As String
        not available
        Sets a MarkerLabel with the given values.
        Posible color values.
      • SetMarkerLabel2 (m As Marker, Text As String, Color As String, BackgroundColor As String, TextSize As Double) As String
        not available
      • SetMarkerOrigin (m As Marker, X As Double, y As Double) As String
        not available
        Sets the marker origin 'doesn't work!!!
      • SetPolygonClickable (pg As MapPolygon, Clickable As Boolean) As String
        Always clickable - not necessary
        Sets the polygon clickable property 'doesn't work!!!
      • SetPolygonDraggable (Polygon As MapPolygon, Draggable As Boolean) As String
        Sets the polygon draggable property
      • SetPolylineDraggable (Polyline As MapPolyline, Draggable As Boolean) As String
        Sets the polyline draggable property
      • XYToLatLng (x As Double, y As Double) As LatLng
        Returns the Lat/Lng coordinates for the given screen coordinates 'doesn't work!!!

  • 1.01
    • Added on OpenMapsExt: SetCircleDraggable, SetPolygonDraggable, SetPolylineDraggable
  • 1.02
    • Coordinated renewal after movement for circle, polygon and polyline
    • Update example
  • 1.03
    • Removal of lateral sliding bars
    • Additions EditingPolygon and EdgingPolyline Method to change the points
    • Added VisibleObject method to view or hide an object (markatore, circle, polygon, polyline)
    • Add the PanelOn and PanelOff functions to make a communication panel appear or hide
    • Added MessageToPanel method to send messages to the communication panel
  • 1.04
    • Fix bugs
    • Added method GetMarkerIsDraggable, GetCircleIsDraggable, GetPolygonIsDraggable, GetPolylineIsDraggable
    • Added method: EditingPolyline, EditingPolygon and function EditingActive
  • 1.05
    • Fix Bugs and update Demo
  • 1.06
    • Added method: RedrawAllObj, ClearMap, EditingCircle, updateCircleRadius
    • Added new TypeMap: MAP_TYPE_ESI, MAP_TYPE_CARTO - As an alternative to OSM tiles if they don't appear
  • 1.07
    • Added method: LoadKML, SaveKML
    • Removed Hyperlinks, Preserved Maps Elements after change Map_Type
    • Fix bugs
    • The algorithm reconstructed for the modification of the polygons, polylines and rims
  • 1.08
    • Added getMapBound, filterVisibleMapObjects, AllVisibleMapObjects, NumberOfElements
    • Added Label on Marker
  • 1.09
    • Fix bugs for LoadKML, AddMarker, AddCircle, AddPolygon, AddPolyline
    • Correct LatLng class field (Lat to Latitude, Lng to Longitude)
    • Update Sample
  • 1.10
    • Added method UpdatePolyline, UpdatePolygon
    • Update class Polyline, Polygon
    • Fix bugs
  • 1.11
    • Added method InsidePath, UpdateCircleCenter, UpdateMarkerPosition, ObjectIsEditing
    • Correct LatLng class method Initialize(Lat,Lng)
    • Update Sample
  • 1.12
    • Added method UpdatePolylineStroke, UpdatePolylineColor, UpdatePolygonStroke, UpdatePolygonColor
 

Attachments

  • jSD_OpenMaps 1.10.zip
    56.9 KB · Views: 25
Last edited:
Click to expand...
Star-Dust

Star-Dust

Expert
Licensed User
Longtime User
SampleOpenMap

B4X: 
Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private GMap As OpenMaps
    Private GMapExt As OpenMapsExt
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
     MainForm.RootPane.LoadLayout("MainLayout")
    MainForm.Show
 
    GMapExt.Initialize(GMap)
End Sub

Private Sub ButtonGo_Click
    wait for (GMapExt.AddressToLatLon("Piazza del Campidoglio, roma")) COMPLETE (ll As LatLng)
    GMap.Zoom=16
    GMap.MoveCamera2(ll)
           
    GMap.AddCircle(ll,50,2,fx.Colors.Red,fx.Colors.Yellow,0.5)
    GMap.AddInfoWindow2("Hallo my friend",ll, 50)
    Dim Mk As Marker=GMap.AddMarker2(ll.Lat,ll.Lng,"My Marker","https://cdn-icons-png.flaticon.com/512/684/684908.png")
    GMapExt.SetMarkerDraggable(Mk,True)
       
    GMap.AddPolyline(Array(pt(41.90, 12.49),pt(41.80, 12.50),pt(41.85, 12.60)),1,fx.Colors.Red)
   
End Sub

Public Sub pt(Lat As Double,Lng As Double) As LatLng
    Dim ll As LatLng
   
    ll.Initialize
    ll.Lat=Lat
    ll.Lng=Lng
   
    Return ll
End Sub

1741683376150.png
 

Attachments

  • SampleOpenMap.zip
    2.7 KB · Views: 18
Last edited:
Ralph Parkhurst

Ralph Parkhurst

Member
Licensed User
Longtime User
Great library Star-Dust!!!!! I am having much fun trying it out all the capabilities :D .

Could you please help me with the AddPolygon function - I am unclear how to pass a List of LatLng coordinates...
Passing a LIST to AddPolygon: 
Dim LST As List
LST.Initialize

Dim LL As LatLng
LL.Initialize

LL.Lat = -37.50
LL.Lng = 146.20
LST.Add(LL)

LL.Lat = -39.00
LL.Lng = 143.50
LST.Add(LL)

LL.Lat = -33.85
LL.Lng = 150.60
LST.Add(LL)


GMap.AddPolygon(LST, 3, fx.Colors.Red, fx.Colors.Blue, 0.25) 'this does not work

GMap.AddPolygon(Array(Array(-37.50, 146.20),Array(-39.00, 143.50),Array(-33.85, 150.60)),3,fx.Colors.Red,fx.Colors.Blue,0.25) 'this works

Similarly, when I click on a polygon, how do I access the list of coordinates?

Clicking on a Polygon: 
Private Sub GMap_PolygonClick (SelectedPolygon As MapPolygon)
    Log(SelectedPolygon.IsInitialized)  'this works and shows True
    Log(SelectedPolygon.ID)                'this works and shows the unique identifier
    Log(SelectedPolygon.Point)            'this returns an empty array without coordinates
End Sub
Many thanks again for all your effort!
 
Last edited:
Star-Dust

Star-Dust

Expert
Licensed User
Longtime User
Ralph Parkhurst said:
Great library Star-Dust!!!!! I am having much fun trying it out all the capabilities :D .

Could you please help me with the AddPolygon function - I am unclear how to pass a List of LatLng coordinates...
Passing a LIST to AddPolygon: 
Dim LST As List
LST.Initialize

Dim LL As LatLng
LL.Initialize

LL.Lat = -37.50
LL.Lng = 146.20
LST.Add(LL)

LL.Lat = -39.00
LL.Lng = 143.50
LST.Add(LL)

LL.Lat = -33.85
LL.Lng = 150.60
LST.Add(LL)


GMap.AddPolygon(LST, 3, fx.Colors.Red, fx.Colors.Blue, 0.25) 'this does not work

GMap.AddPolygon(Array(Array(-37.50, 146.20),Array(-39.00, 143.50),Array(-33.85, 150.60)),3,fx.Colors.Red,fx.Colors.Blue,0.25) 'this works

Similarly, when I click on a polygon, how do I access the list of coordinates?

Clicking on a Polygon: 
Private Sub GMap_PolygonClick (SelectedPolygon As MapPolygon)
    Log(SelectedPolygon.IsInitialized)  'this works and shows True
    Log(SelectedPolygon.ID)                'this works and shows the unique identifier
    Log(SelectedPolygon.Point)            'this returns an empty array without coordinates
End Sub
Many thanks again for all your effort!
Click to expand...
The coordinates are transmitted as array(or list) of arrays. Each point is defined by an array of dimension 2 (Lat, lon)

B4X: 
Dim Point1() As Double  = array As Double (40.1344,15.002)
Dim Point2() As Double  = array As Double (40.1544,15.022)
Dim Point3() As Double  = array As Double (40.1444,15.012)

'FOR Now
Gmap.AddPolygon(Array(Point1,Point2,Point3),3,fx.Colors.Red,fx.Colors.Blue,0.25)
' Next update array of LatLng

'ALSO
Dim Lp As List
Lp.Initialize
Lp.Add(Point1)
Lp.Add(Point2)
Lp.Add(Point3)
Gmap(Lp,3,fx.Colors.Red,fx.Colors.Blue,0.25)

In the next update the points must be added as a Latlng list or array
 
Last edited:
Star-Dust

Star-Dust

Expert
Licensed User
Longtime User
In fact it is my mistake, it was supposed to be an array or list of latlng as in the Googlemaps bookcase. I will correct the next update
 
J

javiers

Active Member
Licensed User
Longtime User
Hi, maybe this isn't the right time (I see you're still fine-tuning the libraries), but if you could draw lines, polylines, and polygons directly on the map, that would be great! Similar to GoogleMapsDemo by Klaus

I, for one, don't know how that code works, and I have no idea how to adapt it...

It's a proposal, although I understand other priorities come first...

Thanks again for all your efforts
 
Star-Dust

Star-Dust

Expert
Licensed User
Longtime User
Klaus has created some functions that allow you to draw objects on the screen. I have done many tests starting from that voice.

My library is 80% compatible with that source. It will get to be 99% compatible with jGoogleMaps and 90% globally because some methods that are called with JavaObject would not work, but I have added methods that replace them.

As soon as the library is completed, I will develop a similar example
 
Last edited:
J

javiers

Active Member
Licensed User
Longtime User
Star-Dust said:
Klaus has created some functions that allow you to draw objects on the screen. I have done many tests starting from that voice.

My library is 80% compatible with that source. It will get to be 90% compatible because some methods that are called with JavaObject would not work, but I have added methods that replace them.

As soon as the library is completed, I will develop a similar example
Click to expand...
Thanks again for all your work.
It will be great to have that similar example.
Note: Donation made!
Transaction ID
7UU84453040224938
 
Star-Dust

Star-Dust

Expert
Licensed User
Longtime User
javiers said:
Thanks again for all your work.
It will be great to have that similar example.
Note: Donation made!
Transaction ID
7UU84453040224938
Click to expand...
thank you, it's much appreciated
 
Star-Dust

Star-Dust

Expert
Licensed User
Longtime User
In the next update I added the possibility of making a dialog box appear on the map. It will be possible to send messages to the user or transmit information, coordinates or other.

Leaflet does not support the modification of the polygon and polyline points, I am testing a way that allows you to add this function, it will be available for the next update if it works.

1741846936126.png
 
You must log in or register to reply here.

Similar Threads

Erel
  • Question
Other [PyBridge] B4J v10.2 BETA is available for download
2 3 4
Replies
63
Views
4K
mcqueccu
mcqueccu
Star-Dust
  • Article
B4J Library [B4X] [XUI] [B4xLib] SD LoadingIndicator
2
Replies
36
Views
11K
Star-Dust
Star-Dust
Star-Dust
  • Article
B4A Library [B4X] [XUI] [B4XLib] SD TextView
4 5 6
Replies
106
Views
32K
Star-Dust
Star-Dust
Star-Dust
  • Article
B4J Library [B4X] SD_ImageView
2
Replies
21
Views
7K
max123
max123
Erel
  • Locked
  • Article
B4J Library jGoogleMaps library
4 5 6
Replies
106
Views
51K
Erel
Erel
Top