Sub Menu
ListFlag = 1
'Change CustomListView from default to the Menu Size/Position
AllListView.getbase.Height = 200dip 'Sets height and top position of CLV
AllListView.getbase.Top = 100%y -AllListView.getbase.Height
' AllListView.sv.Height = AllListView.getbase.Height 'Sets sv to match CLV
' AllListView.sv.Top = AllListView.getbase.Top
'
AllListTitle.Top = AllListView.GetBase.Top - AllListTitle.Height 'Set title label at top of CLV
AllListBack.Top = AllListTitle.Top 'Sets back button at top of CLV
AllListTitle.Text = "MENU"
AllListBack.Text = "<<<"
AllListClear.Visible = False 'Hides clear button
AllListClear.Enabled = False
'Sets CLV as MENU)
AllListView.Clear 'Clear CLV before populating or else you get duplicates
'Load 5 items. Yes a loop would look better but ........
Public ALVitem As B4XView = XUI.createpanel("")
ALVitem.SetLayoutAnimated(100,0,0,100%x,40dip)
ALVitem.LoadLayout("CLVmenu") 'Loads layout from designer [One label 100%x * 40]
lblMenuItem.Text = "ABOUT"
lblMenuItem.Height = ALVitem.Height
AllListView.Add(ALVitem,0)
Public ALVitem As B4XView = XUI.createpanel("")
ALVitem.SetLayoutAnimated(100,0,0,100%x,40dip)
ALVitem.LoadLayout("CLVmenu")
lblMenuItem.Text = "HELP"
lblMenuItem.Height = ALVitem.Height
AllListView.Add(ALVitem,0)
Public ALVitem As B4XView = XUI.createpanel("")
ALVitem.SetLayoutAnimated(100,0,0,100%x,40dip)
ALVitem.LoadLayout("CLVmenu")
lblMenuItem.Text = "SETTINGS"
lblMenuItem.Height = ALVitem.Height
AllListView.Add(ALVitem,0)
Public ALVitem As B4XView = XUI.createpanel("")
ALVitem.SetLayoutAnimated(100,0,0,100%x,40dip)
ALVitem.LoadLayout("CLVmenu")
lblMenuItem.Text = "EXPORT FUNCTION"
lblMenuItem.Height = ALVitem.Height
AllListView.Add(ALVitem,0)
Public ALVitem As B4XView = XUI.createpanel("")
ALVitem.SetLayoutAnimated(100,0,0,100%x,40dip)
ALVitem.LoadLayout("CLVmenu")
lblMenuItem.Text = "IMPORT FUNCTION"
lblMenuItem.Height = ALVitem.Height
AllListView.Add(ALVitem,0)
PnlAllListView.Elevation = 4dip
End Sub