Sub Globals
Dim ListView1 As ListView
Dim StringUtil As StringUtils
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim i As Int
Dim minItemHeight, txtHeight, minTextHeight, txtPadding As Float
Dim lbl As Label
ListView1.Initialize("ListView1")
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
lbl = ListView1.SingleLineLayout.Label
lbl.TextSize = 15
lbl.Color = Colors.LightGray
lbl.Width = ListView1.Width
txtHeight = StringUtil.MeasureMultilineTextHeight(lbl, "Ag")
minItemHeight = 45dip
txtPadding = 0.07 * minItemHeight
minTextHeight = minItemHeight - 2 * txtPadding
If txtHeight < minTextHeight Then
lbl.TextSize = 100
txtHeight = StringUtil.MeasureMultilineTextHeight(lbl, "Ag")
Do Until txtHeight < minTextHeight
lbl.TextSize = lbl.TextSize - 1
txtHeight = StringUtil.MeasureMultilineTextHeight(lbl, "Ag")
Loop
End If
lblHeight = Max(minTextHeight, txtHeight)
lbl.Top = txtPadding
ListView1.SingleLineLayout.ItemHeight = lblHeight + 2 * txtPadding
lbl.Gravity = Gravity.CENTER_VERTICAL
For i = 1 To 20
ListView1.AddSingleLine(i & " Test1 text1 Test2 text2 Test3 text3 Test4 text4 Test5 text5 Test6 text6")
Next
End Sub