Dim sf As Object = p.ShowDialog(d, "OK", "CANCEL")
p.CustomListView1.AnimationDuration = 0
For i = 0 To p.PrefItems.Size - 1
Dim pi As B4XPrefItem = p.PrefItems.Get(i)
If pi.ItemType = p.TYPE_BOOLEAN Then
p.CustomListView1.ResizeItem(i, 70dip)
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
pnl.Height = pnl.Parent.Height
pnl.GetView(0).Height = pnl.Height - 20dip
pnl.GetView(1).Top = 20dip
End If
Next
Wait For (sf) Complete (Result As Int)