Sub Globals
Private clvAdaugaLucrare As CustomListView
Dim keyboard As IME
Dim px As B4XView
End Sub
Sub keyboard_HeightChanged(NewHeight As Int, OldHeight As Int)
px = clvAdaugaLucrare.GetPanel(0)
If NewHeight > OldHeight Then
px.SetLayoutAnimated(0,0,0,Activity.Width, 480dip + NewHeight)
End If
End Sub