B4J Question [ABMaterial} ABMcombo in NavigationBar

alienhunter

Active Member
Licensed User
Hi ,
i got a combo in the navigation bar, question is can expand this to see the items ?
thanks AH
combo.JPG


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
 

Harris

Expert
Licensed User
Pardon moi? Never heard of such possibility...

ab... What do you make of such? ABMCombo - I guess it is possible.
Well beyond my scope of comprehension of what is being asked...
 

alienhunter

Active Member
Licensed User
Pardon moi? Never heard of such possibility...

ab... What do you make of such? ABMCombo - I guess it is possible.
Well beyond my scope of comprehension of what is being asked...
Hi
so the scope is not to have all users listed in the navbar but still have them all in the navbar in a combo, makes sense ? :)
@ Mashiane thanks i will try
 
Top