Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
IME.Initialize("IME")
IME.AddHeightChangedEvent
For i=0 To 15
clv.Add(CreateOkNotOk("Item "&i),"")
Next
End Sub
Sub CreateOkNotOk(Text As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, clv.AsView.Width, Activity.Height*0.20)
p.LoadLayout("Layout2")
lblTitle.Text=Text
tv.Color=Colors.White
Return p
End Sub
Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
clv.Base_Resize(100%x,NewHeight-Activity.Height*0)'clv Height = 100%y
End Sub