Banano one step ahead

[alwaysbusy]

That is why LoadLayoutArray exists

 

[Star-Dust]

That is why LoadLayoutArray exists

I should have told myself this before, I've wasted an afternoon now

 

[alwaysbusy]

I wouldn't say wasted. You probably learned al lot about BANanoElement that is going to be useful in the future

 

[Star-Dust]

I have recently added a more complete form of modal window which can be with one, two or three buttons, but I think I will bring it to 4

'......
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

 

[Star-Dust]

Now I'm working on a calendar.. that's a challenge

 

[Star-Dust]

GoogleMap component

 

[Alexander Stolte]

I'm working on a calendar.. that's a challenge

I feel this statement very..

 

[LucaMs]

Now I'm working on a calendar.. that's a challenge

... and don't "forget" to add this:

 

[Star-Dust]

I have completed Calendar and GMap. For the moment I'm only sending a calendar video. Gmap is full of features and I'll see if I can summarize them in a short video

 

[Star-Dust]

Component GoogleMap

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

Clearly there is still a lot to implement and I won't do everything at once, but I will break it down into stages. For the moment I'm working on developing only the things I need immediately

 

[Star-Dust]

From the statistics, 14 people are interested in Banano bookstores, 4 of them would be willing to pay or donate another 8 only if it is free.

Of course, 14 users are too few to put so much effort into, but if interest grows I will consider the possibility of releasing a free part and one with the donation method.

You can currently download the alpha version from here.

 

[Star-Dust]

Added horizzontal menu, Date and time picker, New larger ToastMessage

The side menu for Hamburger, chips, card, flexgrid, pager remains to be created