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.
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
'