Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
If Root.Width = 0 Then
Wait For B4XPage_Resize (Width As Int, Height As Int)
End If
Root.LoadLayout("MainPage")
TextEngine.Initialize(Root)
For i = 1 To 30
Dim pnl As B4XView = xui.CreatePanel("")
pnl.SetLayoutAnimated(0, 0, 0, CustomListView1.AsView.Width, 100dip)
pnl.LoadLayout("Item")
Dim BB As BBListItem = pnl.GetView(BBListItemIndexInItems).Tag
Dim orig As Int = BB.mBase.Height
BB.TextEngine = TextEngine
Dim btn As Button '<-------
btn.Initialize("btn")
btn.Text = "button #" & i
btn.SetLayoutAnimated(0, 0, 0, 100dip, 50dip)
BB.Views.Put("btn1", btn)
BB.Text = CreateItemText(i)
pnl.SetLayoutAnimated(0, 0, 0, pnl.Width, Max(pnl.Height, pnl.Height + BB.mBase.Height - orig))
CustomListView1.Add(pnl, "")
Next
CustomListView1_ScrollChanged(0)
End Sub
Private Sub CreateItemText(index As Int) As String
Dim sb As StringBuilder
sb.Initialize
sb.Append($"[alignment=center][b]Item #${index}[/b][/alignment]
[view=btn1/]"$)'<-------------
For i = 1 To Rnd(1, 20)
sb.Append(CRLF).Append($"[u]Line ${i}[/u]: [color=red]alksd[/color] [url="https://www.b4x.com"]jalksd jklasd[/url] kalsd "$)
Next
Return sb.ToString
End Sub