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