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

 

[Star-Dust]

I added page routing, pop-up side menu and 3D view

 

[Star-Dust]

 

[Star-Dust]

A small change in plaining, it is possible to implode elements. Added seekbar and rangebar

 

[alwaysbusy]

Looks like a cool calendar component! Quite original functionality I've never really seen in such an component. Well done!

 

[Star-Dust]

New example: Car maintenance management.
Added Cartesian digraphs and added new methods to existing elements

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

 

[LucaMs]

@Star-Dust , crea dei video mp4 e sfrutta qualche spazio gratuito, perché vedere quella roba, così "sgranata"...!

@Star-Dust , create some mp4 videos and use some free space, because watching that stuff, so "grainy"...!

 

[Star-Dust]

@Star-Dust , crea dei video mp4 e sfrutta qualche spazio gratuito, perché vedere quella roba, così "sgranata"...!

@Star-Dust , create some mp4 videos and use some free space, because watching that stuff, so "grainy"...!

I have space on YouTube but I prefer the grainy image

 

[Star-Dust]

Updated the graphics... I created a new PLATE element