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