ub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
Log(CLVH.AsView.Width)
CLVH.AsView.Width = CLVH.AsView.Width * 1.5
Private ii As Int
For ii = 0 To 10
CLVH.Add(CreateItemH(CLVH.AsView.Height,"",ii,""),"")
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
xui.MsgboxAsync("Hello world!", "B4X")
End Sub
Private Sub CreateItemH(Height As Int, Title As String, Item As String, Content As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
Dim Width As Int = Height *0.5
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("LH")
Return p
End Sub