New custom view for menus

[Star-Dust]

I'm working on a new menu that you can insert both text and images. They are rounded and added a light effect.

It can also rotate

For i=1 To 4
    SD_CosmosMenu1.SetItem(i,"Prova " & I,xui.CreateDefaultFont(14),True)
Next
SD_CosmosMenu1.SetItemImage(6,xui.LoadBitmap(File.DirAssets,"cocacola.png"),True)
SD_CosmosMenu1.SetItemImage(7,xui.LoadBitmap(File.DirAssets,"barilla.png"),True)
   
For i=0 To 72
    SD_CosmosMenu1.RotateDegree=i*5
    Sleep(100)
Next

Private Sub SD_CosmosMenu1_Click (ID As String)
    Log(ID)
End Sub

 

[Star-Dust]

[XUI] [B4X] SD_CosmosMenu

Log Rel. 1.01 Possibility to choose whether to add a light effect or not Rel. 1.02 Possibility to insert the first sphere in the center Rel. 1.03 Button animated SD_CosmosMenu Author: Star-Dust Version: 1.03 SD_CosmosMenu Events: Click (ID As String) LongClick (ID As String) Fields...

www.b4x.com