Private p As B4XView = CreateSizingItem(clv.AsView.Width,txt)
clv.Add(p,act)
private Sub CreateSizingItem(wid As Int, txt as string) As B4XView
Private p As B4XView = xui.CreatePanel("")
Root.AddView(p,0,0,wid,300dip)
p.LoadLayout("ResizingTextComponentSingle")
p.RemoveViewFromParent
RTCS.SetPadding(20dip,10dip,20dip,10dip)
RTCS.SetBackColor(Globals.gcol_midcol)
RTCS.SetCorners(10dip)
RTCS.Text = txt
p.Height = RTCS.GetHeight
Return p
End Sub