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 library. 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,

B4i and B4i version here

jSD_OpenMaps

Author: Star-Dust
Version: 1.19
  • 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:
      • Latitude As Double
      • Longitude As Double
    • Functions:
      • Class_Globals As String
      • Initialize (Lat As Double, Lng As Double) As String
        Initializes the object. You can add parameters to this method if needed.
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
  • 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.
      • GetHole As List
      • SetHole (HolePoints As List) As Boolean
    • 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_ESI_SATELLITE 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>
        see https://kml4earth.appspot.com/icons.html for icons
      • AddMarker2Label (Lat As Double, Lng As Double, Title As String, Label As String, IconUri As String) As Marker
        Adds a marker To the map with a custom icon and label
        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>
      • AddMarker3 (Lat As Double, Lng As Double, Title As String, IconUri As String, Width As Int, Height As Int) 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",32,32))</code>
        see https://kml4earth.appspot.com/icons.html for icons
      • AddMarker3bis (Lat As Double, Lng As Double, Title As String, IconUri As String, Width As Int, Height As Int) As Marker
        Adds the marker, hitting it in height in the coordinate indicated
      • AddMarker3Label (Lat As Double, Lng As Double, Title As String, Label As String, IconUri As String, Width As Int, Height As Int) As Marker
        Adds a marker To the map with a custom icon and label.
        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",32,32))</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.
      • AddPolygonHole (OuterPoints As List, HolePoints As List, StrokeWidth As Float, StrokeColor As Paint, FillColor As Paint, Opacity As Double) As MapPolygon
        Adds a polygon To the map. with hole
      • 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
      • AlternativeMap (url As String, maxZoom As Int, attribution As String) 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()
      • LoadKML (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
      • ObjectIsEditing (IDobject As String) As Boolean
      • 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
      • UpdateCircleCenter (id As String, Lat As Double, Lng As Double) As String
        Update position Radius
      • UpdateCircleRadius (id As String, Radius As Double) As String
        New Radius
      • UpdateMarkerPosition (id As String, Lat As Double, Lng As Double) As String
        update marker posizion
      • UpdatePolygon (Plg As MapPolygon, NewPoints As List) As String
        NewPoint as List of LatLng
      • UpdatePolygonColor (Plg As MapPolygon, Color As Paint) As String
        Change color
      • UpdatePolygonFillColor (Plg As MapPolygon, Color As Paint, Opacity As Float) As String
        1.12
        Update FillColor - Opacity 0-1
      • UpdatePolygonStroke (Plg As MapPolygon, Width As Int) As String
        Change StrokeWidth
      • UpdatePolyline (Pll As MapPolyline, NewPoints As List) As String
        NewPoint as List of LatLng
      • UpdatePolylineColor (Pll As MapPolyline, Color As Paint) As String
        Change color
      • UpdatePolylineStroke (Pll As MapPolyline, Width As Int) As String
        Change StrokeWidth
      • 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>
      • bestRouteTSP (points As List) As List
        Algoritm Nearest Neighbor
        points array as LatLng
      • Class_Globals As String
      • GetBearing (Point1 As LatLng, Point2 As LatLng) As Double
        Returns the bearing between two points, from point1 to point2
      • 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.
      • InsidePath (point As LatLng, LatLngList As List) As Boolean
      • IsInitialized As Boolean
        Verifica se l'oggetto sia stato inizializzato.
      • LatLonToAddress (lat As Double, lon As Double) As ResumableSub
        Returns the address from coordiantes
        WAIT FOR (GMapExt.LatLonToAddress(Latitude,Longitude)) COMPLETE (Address As String)
      • LatLonToXY (ll As LatLng) As Double()
        Returns the screen coordiantes for the given LatLng coordinates
      • LatLonToXY2 (ll As LatLng) As Double()
      • ObjectIsEditing (IDobject As String) As Boolean
      • RemoveMarkerLabel (m As Marker) As String
        not available
        Removes the Marker Label for the given Marker
      • RouteDistance (route As List) As Double
        Calcola la distanza totale di un percorso
      • 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 PopUp 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
    • Added type map MAP_TYPE_ESI_SATELLITE (zoom 20x)
  • 1.13
    • Added method UpdatePolygonFillColor, AddMarker3, AddMarker2Label, AddMarker3Label to OpenMaps class
    • Added method bestRouteTSP to OpenMapsExt class
    • Fix bugs Label / icon marker
  • 1.14
    • Added AlternativeMap method to be able to insert other maps that require API KEY
    • Polygon/Polyline editor improve
  • 1.15
    • added AddMarker3bis - Adds the marker, hitting it in height in the coordinate indicated
    • The possibility of the escape seques in the panel text (GMap.MessageToPanel)
    • Fixed the bug that prevented having more openmaps classes started at the same time
  • 1.16
    • Fixed the bug that prevented having more openmaps classes started at the same time
  • 1.17
    • LatLonToAddress Returns the address from coordiantes
  • 1.18
    • added OpenMpas.AddPolygonHole, MapPolygon.SetHole, GetHole
  • 1.19
    • Fix bugs
 

Attachments

Last edited:
Click to expand...
Star-Dust said:
Yes it is a bug, known.

When you insert the Markers you must put a pause of at least 20 milliseconds between one and the other especially when it is inside a cycle so that in its internal table all the marks are inserted correctly. subsequently the deletion will happen as expected.

The bug will be solved in the next versions
Click to expand...
Thanks for the quick response!!!

I've changed the image associated with the marker to 512x512 pixels and it looks good now. I understand this is the size marker images should be, right?
 
javiers said:
Thanks for the quick response!!!

I've changed the image associated with the marker to 512x512 pixels and it looks good now. I understand this is the size marker images should be, right?
Click to expand...
Yes
 
What about a multi-platform version?

ok.png
 
Release 1.09
  • Fix bugs for LoadKML, AddMarker, AddCircle, AddPolygon, AddPolyline
  • Correct LatLng class field (Lat to Latitude, Lng to Longitude)
  • Update Sample


P.S. I started the adaptation for B4A and B4i but the management of JS is asynchronous compared to the synchronous of B4J. So you have to make several changes. It will spend some time before seeing the multi-platform version
 
javiers said:
Hi, I can't remove some markers from the map. For example, I create them like this...


Code: 
Sub CargaHidrantes
    Private MiHidrante(10)  As Marker
 
    MiHidrante(0) = OMaps.AddMarker2(pt(48.8575703, 2.292737).lat, pt(48.8575703, 2.292737).lng, "Hidrante" , File.GetUri(File.DirAssets,"H.png"))
    MiHidrante(1) = OMaps.AddMarker2(pt(48.8561703, 2.293637).lat, pt(48.8561703, 2.293637).lng, "Hidrante" , File.GetUri(File.DirAssets,"H.png"))
    MiHidrante(3) = OMaps.AddMarker2(pt(48.8561703, 2.291837).lat,pt(48.8561703, 2.291837).lng, "Hidrante" , File.GetUri(File.DirAssets,"H.png"))


End Sub

When I change the camera position and the zoom is less than 14, I use the following code to delete them... but it doesn't!

Code: 
Private Sub OMaps_CameraChange (CamPosition As CameraPosition)
    LabelLat.Text=CamPosition.lat
    LabelLon.Text=CamPosition.lNG
    LabelZoom.Text=CamPosition.Zoom
 
    If OMaps.Zoom < 14 Then
        For i=0 To 3

            If MiHidrante(i).IsInitialized = True Then
                Log(i)
                OMaps.RemoveMarker(MiHidrante(i))
            End If
        Next
    End If
End Sub
Click to expand...
With version 1.9 it is no longer necessary to insert a pause (Sleep) after inserting an object

javiers said:
Hi, I don't know if this is interesting to you or if it's part of your plans...

In an app, I create many markers (hydrants), but to avoid overloading the map, depending on the zoom, I only make visible those within the visible map boundaries. For this, I need the Bounds function, and I also need the marker's visible property to not be read-only.

I'm not sure if I'm explaining myself correctly. I'll include an image and part of the code...

Code: 
'''    If GMap.IsReady = True Then
'''        LatLngB = GMap.Bounds    'Visible region bounds
'''        Log( "Norte " & LatLngB.NorthEast & " SUR   " & LatLngB.SouthWest)
'''        Dim DeltaX As Double = LatLngB.NorthEast.Lat - LatLngB.SouthWest.Lat
'''        Dim DeltaY As Double = LatLngB.NorthEast.Longitude - LatLngB.SouthWest.Longitude
'''    End If
'''
'''    If newzoom <= 14 Then 'Con un zoom lejano, oculta todos los marcadores
'''        Dim cursorHidra As ResultSet
''''        cursorHidra = SQL1.ExecQuery("SELECT rowid,idMarcador, identificador FROM markerHidra WHERE idMarcador <> 0")
''''        cursorHidra = SQL1.ExecQuery("SELECT rowid FROM hidrantes ")
'''        cursorHidra = SQL1.ExecQuery("SELECT rowid FROM hidrantes")
'''        Do While cursorHidra.NextRow
'''            If MiHidrante(cursorHidra.GetString("rowid")).IsInitialized = True Then
'''                MiHidrante(cursorHidra.GetString("rowid")).Visible = False
'''            End If
'''        Loop
'''        cursorHidra.Close
'''    End If
'''
'''
'''    If newzoom > 14 Then
'''        Dim cursorHidra As ResultSet
''''        (Y - " & LatLngB.SouthWest.Lat &") < "& DeltaX &" AND  (X - "& LatLngB.SouthWest.Longitude &")  <"& DeltaY &")"
''''        cursor = SQL1.ExecQuery("SELECT rowid,ID, X, Y, TIPO, POBLACION FROM hidrantes WHERE (Y - " & LatLngB.SouthWest.Lat &") < "& DeltaX &" AND  (X - ("& LatLngB.SouthWest.Longitude &"))  <"& DeltaY &"")
'''        cursorHidra = SQL1.ExecQuery("SELECT rowid FROM hidrantes WHERE (Y - " & LatLngB.SouthWest.Latitude &") < "& DeltaX &" AND  (X - ("& LatLngB.SouthWest.Longitude &"))  <"& DeltaY)
'''
'''        Do While cursorHidra.NextRow
'''            If MiHidrante(cursorHidra.GetString("rowid")).IsInitialized = True Then
'''                MiHidrante(cursorHidra.GetString("rowid")).Visible = True
'''            End If
'''        Loop
'''        cursorHidra.Close
'''    End If

Sorry, the markers are displayed too large...the image I'm using in this case is a 16x16 pixel PNG file. I've tried changing it to 8x8, but the result is the same...

View attachment 162633
Click to expand...
With Filtervisiblemapobjects only visible objects visible at the time inside the boud. If the room changes it must be recalled again.
With Allvisiblemapobjects all objects will be loaded on the map even if you win from visibility
 
Last edited:
aminoacid said:
Would love to see the capability to add a label to a marker by implementing SetMarkerLabel, RemoveMarkerLabel, GetMarkerLabel in OpenMapsExt

In leaflet you could use L.tooltip to create a standalone label instead of binding it to a marker. That would be the same as adding a label to a marker that is always visible:

B4X: 
var tooltip = L.tooltip()
    .setLatLng(latlng)
    .setContent('A sweet static label!')
    .addTo(map);


View attachment 162635
Click to expand...
Inside the marker, you now have new methods to create a label and modify it. If when you modify it, put an empty text the label will be removed
 
Hi, sorry to continue with the marker images. Since they're square (512x512), images with a different aspect ratio (e.g., rectangular) appear very distorted. And if you change the original image to 512x512, the marker becomes very small...
It's not significant, but in my case, some icons don't display visually correctly

The important thing is that the map library works very well. And thanks again for all the work you're doing!
 

Attachments

  • icons.jpg
    icons.jpg
    40.8 KB · Views: 447
javiers said:
Hi, sorry to continue with the marker images. Since they're square (512x512), images with a different aspect ratio (e.g., rectangular) appear very distorted. And if you change the original image to 512x512, the marker becomes very small...
It's not significant, but in my case, some icons don't display visually correctly

The important thing is that the map library works very well. And thanks again for all the work you're doing!
Click to expand...
I can't tell you because you have this problem. It is certainly linked to Leatlef. Sometimes I do not appear to me for some reason, restart the application and works properly.
If I understand the reason I will look for a solution.
 
javiers said:
Since they're square (512x512), images with a different aspect ratio (e.g., rectangular) appear very distorted.
Click to expand...

I don't understand this. Don't you just fit the image to your square, applying the same scale in both x and y directions?

eg if your rectangle was 3 times as wide as it is high, then you would scale it to be 512 pixels wide and (512 / 3) = 171 pixels high, and then vertically center that within the square target ie 171 down from the top of the square.

or to use what I think is your example of a problem:

start with your rectangular 71x29 marker (which I found to be either 70x28 without the black border or 72x30 with the black border, so I went with the one including the black border to make it easier to see what's happening) :

1742696094991.png


and scale that to be 512 pixels wide (ie 512x213) :

1742696163509.png


and then center that within the 512x512 pixel marker size (here using cyan as transparent) :

1742696274624.png


Obviously that image would be a lot sharper if we started from a vector or larger image rather than the 71x29 image from your example.
 
Last edited:
emexes said:
I don't understand this. Don't you just fit the image to your square,
Click to expand...

I'm making the bold assumption that the marker images can have an alpha channel or transparent color, and that the displayed marker is not necessarily a full 512x512 square.

Like with these blue drop markers, that are clearly not squarish:

1742696947518.png


and I've just noticed they have shadows (nice touch!) and thus must have an alpha (opaqueness) channel.
 
emexes said:
I don't understand this. Don't you just fit the image to your square, applying the same scale in both x and y directions?

eg if your rectangle was 3 times as wide as it is high, then you would scale it to be 512 pixels wide and (512 / 3) = 171 pixels high, and then vertically center that within the square target ie 171 down from the top of the square.

or to use what I think is your example of a problem:

start with your rectangular 71x29 marker (which I found to be either 70x28 without the black border or 72x30 with the black border, so I went with the one including the black border to make it easier to see what's happening) :

View attachment 162842

and scale that to be 512 pixels wide (ie 512x213) :

View attachment 162843

and then center that within the 512x512 pixel marker size (here using cyan as transparent) :

View attachment 162844

Obviously that image would be a lot sharper if we started from a vector or larger image rather than the 71x29 image from your example.
Click to expand...


Yes, I'd already done the process you described to adapt the image to 512x512, but as I said, the marker image is visually small, as you can see in the image. Thanks for the replies anyway!
 

Attachments

  • icons.jpg
    icons.jpg
    43.3 KB · Views: 424
Star-Dust said:
I can't tell you because you have this problem. It is certainly linked to Leatlef. Sometimes I do not appear to me for some reason, restart the application and works properly.
If I understand the reason I will look for a solution.
Click to expand...

Using Gemma3 (something I've never done before), he suggests this code to control the icon size... I have no idea if this can help or not. I certainly don't know how to do it!

I don't want to distract you any further with this issue. I'm sure that if there's a solution, you'll find it.

Congratulations again for this great work.

JavaScript: 
var myIcon = L.icon({
    iconUrl: 'my-icon.png',
    iconSize: [32, 32], // Ancho y alto en píxeles
    iconAnchor: [16, 16], // Punto de anclaje del icono (opcional)
});

var marker = L.marker([lat, lng], {icon: myIcon}).addTo(map);
 
Is it possible to display a ToolTip or InfoWindow when you hover over a Marker? This feature is available in GoogleMaps and Leaflet - Any possibility of adding it if it does not already exist (if so, I could not figure out how to do it). Thanks!

PS: The Library looks great so far. I have completely converted over my GoogleMaps application to OpenMaps and the process has been quite simple thanks to your ensuring compatibility.
 
Could I please add one more request?? Is it possible to add a method to edit a polygon's linecolor, linewidth and fillcolor? At the moment I do this by adding a new polygon with the required settings, and then remove the previous polygon. This gets hard to manage when you have a lot of polygons because the ID changes each time.

I agree with @aminoacid - I have now implemented jSD_OpenMaps into my app and found it very easy and straightforward to make the changes.
 
I adapted an application based on the example of @klaus and written for jGoogleMap.
Of course there are still many differences and there are different methods, as I wrote before you have to be patient because I have returned to work and I can work there slowly.

I am aware of all that is missing, have patience

1743022936514.png
 
Last edited:
Hi, I don't know if the hybrid map is from Google Maps. If so, is it possible to zoom in further than the current one?
If not, I don't know if it's possible to have the Google Maps as an option within OpenMap. Perhaps you're already familiar with a LeafletJS plugin to use Google Maps basemaps.

https://gitlab.com/IvanSanchez/Leaflet.GridLayer.GoogleMutant/

https://ivansanchez.gitlab.io/Leaflet.GridLayer.GoogleMutant/demo.html

I don't know if it's possible to implement it, or maybe there are other ways. I need a hybrid map that can zoom in very closely.
 
javiers said:
Hi, I don't know if the hybrid map is from Google Maps. If so, is it possible to zoom in further than the current one?
If not, I don't know if it's possible to have the Google Maps as an option within OpenMap. Perhaps you're already familiar with a LeafletJS plugin to use Google Maps basemaps.

https://gitlab.com/IvanSanchez/Leaflet.GridLayer.GoogleMutant/

https://ivansanchez.gitlab.io/Leaflet.GridLayer.GoogleMutant/demo.html

I don't know if it's possible to implement it, or maybe there are other ways. I need a hybrid map that can zoom in very closely.
Click to expand...

These maps are loaded with Google tiles.
  • MAP_TYPE_HYBRID As Int
  • MAP_TYPE_SATELLITE As Int
  • MAP_TYPE_TERRAIN As Int
The magnification is at most
 
You must log in or register to reply here.

Similar Threads

D
  • Question Question
B4J Question jSD_OpenMaps - EditingPolygon/EditingPolyline
Replies
10
Views
3K
Star-Dust
Star-Dust
Star-Dust
  • Article Article
B4J Library [B4X] [XUI] SD FlexGrid (Table)
10 11 12
Replies
231
Views
139K
Sylou
Sylou
Star-Dust
  • Article Article
B4A Library [B4X] [XUI] SD XUIView2
2
Replies
33
Views
25K
Star-Dust
Star-Dust
Star-Dust
  • Article Article
B4J Library [B4X] [XUI] SD XUIView
3 4 5
Replies
80
Views
60K
Star-Dust
Star-Dust
Erel
  • Locked
  • Article Article
B4J Library jGoogleMaps library
4 5 6
Replies
106
Views
85K
Erel
Erel
Back
Top