Hi ,
i got a combo in the navigation bar, question is can expand this to see the items ?
thanks AH
i got a combo in the navigation bar, question is can expand this to see the items ?
thanks AH
B4X:
page.NavigationBar.AddSideBarComponent("comm",BuildSideBarComponent(page,"bardrop"),"Combo1")
Public Sub BuildSideBarComponent(pagex As ABMPage, id As String) As ABMContainer
Dim ItemCont As ABMContainer
ItemCont.Initialize(page, id, "")
ItemCont.SetFixedHeight("600")
ItemCont.AddRowsM(1,True,-20,0,"").AddCellsOS(1,0,0,0,7,7,12,"")
ItemCont.BuildGrid ' IMPORTANT!
Dim combo1 As ABMCombo
combo1.Initialize(page, "combo1", "Select a {B}person{/B}", 1600, "combo")
combo1.Valid = ABM.VALID_FALSE
'combo1.PlaceHolderText = "{NBSP}"
combo1.WrongMessage = "SELECT USER"
combo1.IconName = "mdi-action-account-circle"
combo1.AddItem("combo1S1", "Mom", BuildSimpleItem("S1", "mdi-action-account-circle", "{NBSP}{NBSP}Mom"))
combo1.AddItem("combo1S2", "Dad", BuildSimpleItem("S2", "mdi-action-account-circle", "{NBSP}{NBSP}Dad"))
combo1.AddItem("combo1S3", "Brother", BuildSimpleItem("S3", "mdi-action-dashboard", "{NBSP}{NBSP}Brother"))
combo1.AddItem("combo1S4", "Sister", BuildSimpleItem("S4", "mdi-action-dashboard", "{NBSP}{NBSP}Sister"))
ItemCont.Cell(1,1).AddComponent(combo1)
Return ItemCont
End Sub