' Declare your menu
Dim menu As B4XDaisyMenu
' Initialize the component (passing the callback activity/class and event name)
menu.Initialize(Me, "menu")
' Configure basic layout and style properties
menu.Orientation = "vertical"
menu.Size = "md"
menu.Dividers = True
menu.BackgroundColor = xui.Color_RGB(248, 247, 251)
' Add a header title
menu.AddTitle("Main Menu")
' Add basic items and items with icons/badges
menu.AddItem("item-home", "Home")
menu.AddIconItem("item-profile", "Profile", "user-solid.svg")
menu.AddIconBadgeItem("item-inbox", "Inbox", "inbox.svg", "120", "neutral")
' Create a collapsible submenu
Dim parent As B4XDaisyMenu = menu.AddSubmenu("item-settings", "Settings", False)
parent.AddItem("sub-security", "Security")
parent.AddItem("sub-notifications", "Notifications")
' Add the constructed menu to a host panel (pnlHost) at X=12dip, Y=10dip
' The width is set to 250dip, and the menu auto-calculates its preferred height
menu.AddToParent(pnlHost, 12dip, 10dip, 250dip, menu.GetPreferredHeight)