#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Type ItemValue1 (Lanel1 As Label, EditText1 As EditText)
End Sub
Sub Globals
Dim IME As IME
Private CLV As CustomListView
Private Label1 As Label
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
IME.Initialize("IME")
IME.AddHeightChangedEvent
For i=1 To 20
Dim iv1 As ItemValue1
iv1.Initialize
CLV.Add(CreateItem1(iv1,"test "&i),iv1)
Next
End Sub
Private Sub CreateItem1 (iv1 As ItemValue1, str As String) As B4XView
Dim p As Panel
p.Initialize("")
p.SetLayoutAnimated(0,0,0,100%x,20%y)
p.LoadLayout("card")
Label1.Text=str
Return p
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub IME_HeightChanged(NewHeight As Int, OldHeight As Int)
CLV.GetBase.SetLayoutAnimated(0,0,0,100%x,NewHeight)
CLV.Base_Resize (CLV.GetBase.Width, CLV.GetBase.Height)
End Sub