Banano one step ahead

'......
SDfunc.ShowModal(Me,"Modal","Title","This is test or text. Boh!","Cancel","Confirm","")
'......'

Private Sub Modal_ModalClick(btn As String)
    SDfunc.ShowToast("Answer : " & btn,SDfunc.TpeAlert,1000,True)
End Sub

Private Sub SDgoogleMap1_Ready (Success As Boolean)
    If Success Then
        Dim ListCoordinate As List
        ListCoordinate.Initialize2(Array (CreateMap("lat":41.9038,"lng":12.4954),CreateMap("lat":41.9014,"lng":12.4989),CreateMap("lat":41.9020,"lng":12.4925)))
        SDgoogleMap1.AddPolygon("#000000","#FFFF00",ListCoordinate)
        SDgoogleMap1.AddPolyline("#FF0000",Array(CreateMap("lat":41.9041,"lng":12.4954),CreateMap("lat":41.9054,"lng":12.4989),CreateMap("lat":41.9034,"lng":12.4989),CreateMap("lat":41.9041,"lng":12.4954)))
        SDgoogleMap1.AddMarker("Roma",41.9028, 12.4934,"")
        SDgoogleMap1.AddInfoWindow("Roma",41.9028, 12.5004)
        SDgoogleMap1.AddCircle(41.9028, 12.4964,100,"black","red")
    End If
End Sub

Private Sub SDgoogleMap1_PolygonClick (PolygonObject As BANanoObject)
    SDfunc.ShowToast($"Click PolyGon"$,SDfunc.TpeAlert,1500,False)
End Sub

Private Sub SDgoogleMap1_PolygonDblClick (PolygonObject As BANanoObject)
    Dim Drgb As Boolean = Not(SDgoogleMap1.GetObjDaggable(PolygonObject))
    SDfunc.ShowModalTimed("Circle","Polygon Double Click - DRAGGABLE " & BANano.ToString(Drgb),1500)
    SDgoogleMap1.SetObjDaggable(PolygonObject,Drgb)
End Sub

Private Sub SDgoogleMap1_MarkerClick (Title As String, MarkerObject As BANanoObject)
    SDfunc.ShowToast($"Click Marker"$,SDfunc.TpeAlert,1500,False)
End Sub

Private Sub SDgoogleMap1_InfoWindowCloseClick(InfoWindow As BANanoObject)
    SDfunc.ShowToast($"Info cloded"$,SDfunc.TpeAlert,1500,False)
End Sub

Public Sub Show
    SDfunc.MainLayout.LoadLayout("Historical")
    
    SDstat1.AddPoint("2015",100)
    SDstat1.AddPoint("2016",100)
    SDstat1.AddPoint("2017",150)
    SDstat1.AddPoint("2018",700)
    SDstat1.AddPoint("2019",300)
    SDstat1.AddPoint("2020",1400)
    SDstat1.AddPoint("2021",500)
    SDstat1.AddPoint("2022",2000)
    SDstat1.AddPoint("2023",300)
    SDstat1.AddPoint("2024",950)
    SDstat1.Draw
    
    SDstat2.AddPoint("2015",500).AddPoint("2016",550).AddPoint("2017",570).AddPoint("2018",600)
    SDstat2.AddPoint("2019",540).AddPoint("2020",590).AddPoint("2021",650).AddPoint("2022",700)
    SDstat2.AddPoint("2023",710).AddPoint("2024",750)
    SDstat2.Draw
End Sub