Android Example [B4X] AS PopupMenu with icons

[B4X] [XUI] AS Popup Menu

This is a simple cross platform Popup Menu. I spend a lot of time in creating views, like this and to create a high quality view cost a lot of time. If you want to support me and further views, then you can do it here by Paypal or with a coffee. :) Left: B4J Right: B4A...

www.b4x.com

Private Sub ShowMenu
    
    aspm_Main.Initialize(Root,Me,"aspm_Main")
 
    aspm_Main.MenuCornerRadius = 10dip
    aspm_Main.ItemLabelProperties.TextAlignment_Horizontal = aspm_Main.OrientationHorizontal_LEFT
    aspm_Main.ItemLabelProperties.LeftRightPadding = 10dip
 
    aspm_Main.IconProperties.HorizontalAlignment = aspm_Main.OrientationHorizontal_RIGHT
 
    aspm_Main.AddMenuItemWithIcon("Item #1",aspm_Main.FontToBitmap(Chr(0xE3C9),True,20,xui.Color_White),"Item1")
    aspm_Main.AddMenuItemWithIcon("Item #2",aspm_Main.FontToBitmap(Chr(0xE192),True,20,xui.Color_White),"Item2")
 
    aspm_Main.ItemLabelProperties.BackgroundColor = xui.Color_ARGB(200,0,0,0)'black
 
    aspm_Main.OpenMenuAdvanced(Root.Width/2 - 200dip/2,Root.Height/2 - aspm_Main.MenuHeight/2,200dip)

    Wait For aspm_Main_ItemClicked(Index As Int,Tag As Object)
    
    Select Tag.As(String)
        Case "Item1"
            
        Case "Item2"

    End Select
    
End Sub