B4J Question [ABMaterial] ABMSmartWizard & ABMCombo

giannimaione

Well-Known Member
Licensed User
Longtime User
hi,
i made a ABMSmartWizard with some "TAB"
everything "TAB" work fine, but "TAB" which contains a ABMCombo show ONLY 3 items!
i have test ABMCombo from "DEMO", but only 3 items show.
B4X:
public Sub ConnectPage()
page.Cellr(1,1).AddComponent(gmWizard)
'
'
'
page.Refresh
page.FinishedLoading
page.RestoreNavigationBarPosition
End Sub
'
Sub gmWizard As ABMSmartWizard
    Dim wiza As ABMSmartWizard
    wiza.Initialize(page, "wiza", "Precedente", "Successivo", "Fine", "wizA")
    wiza.AddStep("field1", "Utente",    "Dati Utente",    "",    bc("field1c"), ABM.SMARTWIZARD_STATE_ACTIVE)
    wiza.AddStep("field2", "Periodo",    "Data Vendite",    "",    bc("field2c"), ABM.SMARTWIZARD_STATE_DISABLED)
    wiza.AddStep("field3", "Excel",        "File Vendite",    "",    bc("field3c"), ABM.SMARTWIZARD_STATE_DISABLED)
    Return wiza
End Sub
'
Sub bc (ID As String) As ABMContainer
    Dim cont As ABMContainer
    cont.Initialize(page, ID, "")
    Select Case ID
        Case "field1c"
        cont.AddRowsM(2, True, 0, 0, "").AddCells12(1, "")
            cont.BuildGrid ' IMPORTANT!
            Dim userlbl As ABMLabel = ABMShared.BuildHeader(page, ID & "user", "Utente")
            cont.Cell(1,1).AddComponent(userlbl)
            Dim combo1 As ABMCombo 
            combo1.Initialize(page, "combo1", "Selezionare un utente", 650, "")
            combo1.IconName = "mdi-action-account-circle"
            'here my code wich additem from query (table of users)
            'dim query as string = "select * from ........."
            'but here original demo code
            combo1.AddItem("combo1S1", "Mom", mkCombo("S1", "mdi-action-account-circle", "{NBSP}{NBSP}Mom"))
            combo1.AddItem("combo1S2", "Dad", mkCombo("S2", "mdi-action-account-circle", "{NBSP}{NBSP}Dad"))
            combo1.AddItem("combo1S3", "Brother", mkCombo("S3", "mdi-action-account-circle", "{NBSP}{NBSP}Brother"))
            combo1.AddItem("combo1S4", "Sister", mkCombo("S4", "mdi-action-account-circle", "{NBSP}{NBSP}Sister"))
            cont.Cell(2,1).AddComponent(combo1)
            'in "TAB Utente" ABMSmartWizard, show ONLY Mom - Dad - Brother !!!!!!
        case "......."
        '
        '
        case ".-.-.-.-.-'
        End Select
    Return cont
End Sub
'
Sub mkCombo (id As String, icon As String, Title As String) As ABMLabel
    Dim lbl As ABMLabel
    If icon <> "" Then
        lbl.Initialize(page, id, Title, ABM.SIZE_H6, True, "header")
    Else
        lbl.Initialize(page, id, Title, ABM.SIZE_H6, True, "")
    End If
    lbl.VerticalAlign = True
    lbl.IconName = icon
    Return lbl
End Sub
'
 
Top