B4A Library [XUI] [B4A] [B4I] xSD_OpenMaps

Star-Dust · 2025-11-20T20:14:05+0000

NOTE
In B4A add in manifest

B4X:

CreateResourceFromFile(Macro, Core.NetworkClearText)

xSD_OpenMaps

Author: Star-Dust
Version: 1.00

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
  - GetCenter As ResumableSub
    <code>wait for (Circle.GetCenter) COMPLETE (Position As LatLng)</code>
  - GetRadius As ResumableSub
    <code>wait for (Circle.GetRadius) COMPLETE (Radius As Double)</code>
  - Initialize (vCenter As LatLng, vRadius As Double, Visble As Boolean, id As String, WebView As WebView) 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]
  - 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 WebView) 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
  - GetFillColor As ResumableSub
    <code>wait for (MapPolygon.GetFillColor) COMPLETE(FillColor As Int)</code>
  - GetLineColor As ResumableSub
    <code>wait for (MapPolygon.GetLineColor) COMPLETE(LineColor As Int)</code>
  - GetLineWidth As ResumableSub
    <code>wait for (MapPolygon.GetLineWidth) COMPLETE(LineWidth As Int)</code>
  - GetPoints As ResumableSub
    List of LatLng
    <code>wait for (MapPolygon.GetPoints) COMPLETE(Points As List)</code>
  - Initialize (Visble As Boolean, ID As String, Point As List, StrokeWidth As Int, StrokeColor As Int, FillColor As Int, Opacity As Double, WebView As WebView) 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]
  - Opacity As Float [read only]
  - Visible As Boolean
MapPolyline
- Functions:
  - Class_Globals As String
  - GetLineColor As ResumableSub
    <code>Wait For (MapPoly.GetLineColor) COMPLETE (Color As Int)</code>
  - GetLineWidth As ResumableSub
    <code>Wait For (MapPoly.GetLineWidth) COMPLETE (LineWidth As Int)</code>
  - GetPoints As ResumableSub
    List of LatLng
    <code>Wait For (MapPoly.GetPoints) COMPLETE (ListPoints As List)</code>
  - Initialize (Visble As Boolean, ID As String, Point As List, StrokeWidth As Int, StrokeColor As Int, WebView As WebView) 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]
  - Visible As Boolean
Marker
- Functions:
  - Class_Globals As String
  - CreateLabel (Text As String) As String
    Create Label on Marker
  - GetIconUrl As ResumableSub
    <code>wait for (MK.GetIconUrl) COMPLETE (URL As String)</code>
  - GetPosition As ResumableSub
    <code>wait for (MK.GetPosition) COMPLETE (Position As LatLng)</code>
  - GetTitle As ResumableSub
    <code>wait for (Mk.GetTitle) COMPLETE (Title As String)</code>
  - Initialize (vPosition As LatLng, vTitle As String, vIconUri As String, vVisible As Boolean, vID As String, WebView As WebView) 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:
  - IconUri As String [read only]
  - ID As String [read only]
  - Visible As Boolean
OpenMaps
- Events:
  - CameraChange (CamPosition As CameraPosition)
  - CircleClick (SelectedCircle As MapCircle)
  - Click (Point As LatLng)
  - DblClick (Point As LatLng)
  - MarkerClick (SelectedMarker As Marker)
  - PolygonClick (SelectedPolygon As MapPolygon)
  - PolylineClick (SelectedPolyline As MapPolyline)
  - Ready
  - TouchMove (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 Int, FillColor As Int, 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 ResumableSub
    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>WAIT FOR (gmap.AddMarker2(10, 10, "This is a test", IconUrl)) COMPLETE (MK as Marker)</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 ResumableSub
    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>WAIT FOR (gmap.AddMarker2(10, 10, "This is a test", "http:address.ico")) COMPLETE (Mk As Marker)</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
  - 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 Int, FillColor As Int, 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 Int) 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 ResumableSub
    Returns the current camera position.
    <code>wait for (OM.GetTitle) CameraPosition (cp As CameraPosition)</code>
  - 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 ResumableSub
    <code>wait for (OM.EditingCircle(Circle,True)) COMPLETE (Success As Boolean)</code>
    OR
    <code>OM.EditingCircle(Circle,True)</code>
  - EditingPolygon (Polygon As MapPolygon, Active As Boolean) As ResumableSub
    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)
    <code>Wai For (OpenMaps.EditingPolygon(Polygon, True)) COMPLETE (Success As Boolean)</code>
  - EditingPolyline (Polyline As MapPolyline, Active As Boolean) As ResumableSub
    <code>Wait For (OM.EditingPolyline(PolyLine,True)) COMPLETE (Success As Boolean)</code>
  - 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 ResumableSub
    <code>wait for (OM.LatLonToXY(ll)) COMPLETE (XY() As Double)</code>
    {XY(0) = x (XY(1) = y}
  - LoadImageFromUrl (Url As String) As ResumableSub
  - LoadMKL (Path As String, FileName As String) As ResumableSub
    Return Map as Object
    Key is ID , Value is Object (Marker,MapPolygon,MapPolyline)
    <code>WAIT FOR (OpenMap.LoadMKL(Path, FileName)) COMPLETE (ObjectMap As Map)</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)
  - SetZoom (z As Int) As String
    Sets the zoom level.
  - 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 Int) As String
    Change color
  - UpdatePolygonFillColor (Plg As MapPolygon, Color As Int, 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 Int) 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 WebView
  - XYToLatLng (x As Double, y As Double) As ResumableSub
    <code>wait for (OM.XYToLatLng(x,y)) COMPLETE (Position As LatLng)</code>
- Properties:
  - MapBound As ResumableSub [read only]
    <code>wait for (OM.getMapBound) COMPLETE (Bound As Map)</code>
    Return bound in map format: {"northEast":{"lat":45.123,"lon":12.456},"southWest":{"lat":40.987,"lon":10.321}}
  - MapType
    get or set the zoom level.
  - NumberOfElements As ResumableSub [read only]
    Number Of Elements added
    <code>wait for (OM.getNumberOfElements) COMPLETE (N As Int)</code>
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
  - GetDistance (Point1 As LatLng, Point2 As LatLng) As Double
    Returns the distance between two points in meters
  - GetMarkerLabel (m As Marker) As String
    not available
  - GetMarkerPosition (m As Marker) As ResumableSub
    <code>wait for (OME.GetMarkerPosition) COMPLETE (Position As LatLng)</code>
  - GetMarkerTitle (m As Marker) As ResumableSub
    <code>wait for (OME.GetMarkerTitle) COMPLETE (Title As String)</code>
  - 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
  - LatLonToXY (ll As LatLng) As ResumableSub
    <code>wait for (OME.LatLonToXY(ll)) COMPLETE (XY As Double)</code>
  - 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
  - SetMarkerClickable (m As Marker, Clickable As Boolean) As String
    Always clickable - not necessary
    Sets the marker clickable 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!!!
  - XYToLatLng (x As Double, y As Double) As ResumableSub
    Returns the Lat/Lng coordinates for the given screen coordinates 'doesn't work!!!
    <code>wait for (OME.XYToLatLng(x,y)) COMPLETE (ll As LatLng)</code>

Star-Dust · 2025-11-20T20:18:05+0000

SAMPLE B4xPages

B4X:

Sub Class_Globals
    'These global variables will be redeclared each time the activity is created.
    Private OMaps As OpenMaps
    Private OMapsExt As OpenMapsExt
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainLayout")

    OMapsExt.Initialize(OMaps)
End Sub

Private Sub OMaps_Ready
    wait for (OMaps.getZoom) COMPLETE (Zoom As Int)
    LabelZoom.Text=Zoom
 
    wait for (OMapsExt.AddressToLatLon("Torre Eiffel")) COMPLETE (ll As LatLng)
    OMaps.setZoom(16)
    OMaps.MoveCamera2(ll)
      
    Dim Cr As MapCircle = OMaps.AddCircle(ll,50,2, xui.Color_Red,xui.Color_Yellow,0.5)
    Dim Pl As MapPolyline = OMaps.AddPolyline(Array(pt(48.8586973, 2.296136), pt(48.8572973, 2.297036), pt(48.8572973, 2.295236)),4,xui.Color_Red)
    Dim Pg As MapPolygon =  OMaps.AddPolygon(Array(pt(48.8575703, 2.292737), pt(48.8561703, 2.293637), pt(48.8561703, 2.291837)),1,xui.Color_Red,xui.Color_Yellow,0.3)

    WAIT FOR (OMaps.AddMarker2(ll.Latitude,ll.Longitude,"My Marker","https://cdn-icons-png.flaticon.com/512/684/684908.png")) COMPLETE (Mk As Marker)
End Sub

B4A Library [XUI] [B4A] [B4I] xSD_OpenMaps

Attachments

Star-Dust

Expert

Attachments

B4A Library [XUI] [B4A] [B4I] xSD_OpenMaps

Attachments

Star-Dust

Expert

Attachments

Privacy & Transparency

Privacy & Transparency