B4J Question [ABMaterial] How to let ABMList item as ABMInput

jinyistudio

Well-Known Member
Licensed User
Longtime User
Hi

I try to make listitem as a ABMInput but i don't how to get little font size and spacing.

My current code as following.
B4X:
Dim list1 As ABMList
       list1.Initialize(page, "list1", ABM.COLLAPSE_ACCORDION, "list1theme")
       list1.SubItemLeftPadding=16
       ' add items
       list1.AddItemWithTheme("H1", BuildFieldItem("L1H1","配方庫名稱",recipedir),"")
       list1.AddSubItem("H1", "S1", BuildItem("L1H1S1","修改"))
       page.Cell(1,1).AddComponent(list1)

Sub BuildFieldItem(id As String,Title As String,description As String) As ABMContainer
    Dim ItemCont As ABMContainer
    ItemCont.Initialize(page,id,"")
    ItemCont.AddRowsM(1,False,0,0,"").AddCellsOSMP(1,0,0,0,12,12,12,0,0,2,2,"")   
    ItemCont.AddRowsM(1,False,0,0,"").AddCellsOSMP(1,0,0,0,12,12,12,6,6,6,6,"")
    ItemCont.BuildGrid   
   
    Dim lbl1 As ABMLabel
    lbl1.Initialize(page, id&"lb1", Title, ABM.SIZE_PARAGRAPH,True, "")
    lbl1.VerticalAlign=True
    ItemCont.Cell(1,1).AddComponent(lbl1)
   
    Dim lbl2 As ABMLabel
    lbl2.Initialize(page, id&"lb2", description, ABM.SIZE_H5, True, "reddescription")
    lbl2.VerticalAlign=True
    ItemCont.Cell(2,1).AddComponent(lbl2)
   
    Return ItemCont
End Sub

5d449293065029479f01fc9febf53b67.png
 
Top