Hello.
I encountered a problem. I have the html content that I want to display in the AddSubItem as ABMEditor. I do not have any errors, but it does not show me, it does not even develop after clicking on the list item. As I will give it in the AddSubItem ABMLabel it works perfectly but you can see html markups and want the formatted html text from ABMEditor to display.
What am I doing wrong and maybe there is some other way around this problem.
I encountered a problem. I have the html content that I want to display in the AddSubItem as ABMEditor. I do not have any errors, but it does not show me, it does not even develop after clicking on the list item. As I will give it in the AddSubItem ABMLabel it works perfectly but you can see html markups and want the formatted html text from ABMEditor to display.
What am I doing wrong and maybe there is some other way around this problem.
B4X:
public Sub ConnectPage()
....
....
....
Dim list As ABMList
list.Initialize(page, "list", ABM.COLLAPSE_EXPANDABLE, "")
Dim wynik As List
wynik = DBMh.SQLSelect("select * from faq")
For i =0 To wynik.Size-1
Dim m As Map = wynik.Get(i)
list.AddItem(m.Get("idx"),tytul(m.Get("title")))
list.AddSubItem(m.Get("idx"),"a"&m.Get("idx"),odpowiedz(m.Get("value")))
Next
page.Cell(3,1).AddComponent(list)
page.Refresh
page.FinishedLoading
End Sub
Sub tytul(value As String) As ABMLabel
Dim a As ABMLabel
a.Initialize(page,"1",value, ABM.SIZE_H5,True,"")
a.Clickable = True
Return a
End Sub
Sub odpowiedz(value As String) As ABMEditor
Dim ed As ABMEditor
ed.Initialize(page,"1",False,False,"")
ed.SetHTML(value)
Return ed
End Sub