B4A Library [B4X] [XUI] HexMenu

Sub Globals
    Private XUI As XUI
    Private HexMMain As HexMenu
    Private GD As GradientDrawable
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Menu")
    Activity.Title = "HEX Menu"

    Dim TopColor As Long = 0xFFFF7DE1 '0xFF1798A2
    Dim BottomColor As Long = 0xFFFFED8C '0xFFECF0BC
    GD.Initialize("TOP_BOTTOM", Array As Int(TopColor, BottomColor))
    Activity.Background = GD

    For Each lbl As B4XView In HexMMain.labels
        lbl.Font = XUI.CreateFontAwesome(16)
    Next

    Dim Imaages() As Object = Array As Object(Chr(0xF15C), Chr(0xF0F6), Chr(0xF0C0), Chr(0xF07A), Chr(0xF15A), Chr(0xF0D6), Chr(0xF080))
    Dim Options() As String = Array As String("Invoice", "Quote", "Contacts", "Stock", "Sales", "Payments", "Charts")

    For i = 0 To 6
        HexMMain.Items.Add($"${Imaages(i)}${CRLF}${Options(i)}"$)
    Next
    HexMMain.Update
End Sub

    dim cs1 as csbuilder
    cs1.Initialize.Size(20).Typeface(Typeface.DEFAULT)
    cs1.Alignment("ALIGN_CENTER").color(Colors.RGB(62,62,62)).Typeface(Typeface.FONTAWESOME).Append(Chr(0xF1D8)).Append(CRLF)
    cs1.Alignment("ALIGN_CENTER").Size(20).color(Colors.RGB(107,142,35)).Append("VERIFY")
    cs1.popall

    adv_hex_menu.Items.AddAll(Array As String(cs1, "1","2","3","4","5","6"))

adv_hex_menu.Items.AddAll(Array(cs1, "1","2","3","4","5","6"))

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
    For i = 1 To 10
        Dim cs As CSBuilder
        HexMenu1.Items.Add(cs.Initialize.Size(i * 3).Append("test").PopAll)
    Next
    HexMenu1.Update
End Sub

Sub HexMenu1_Click (Index As Int, Text As Object) 'change type to object
    Activity.Title = Text
End Sub