Dim d As Map=CreateMap()
d.Initialize
Dim sf As Object = prefdialog.ShowDialog(d, "OK""CANCEL")
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
prefdialog.CustomListView1.AnimationDuration = 0
If pi.ItemType = prefdialog.TYPE_NUMERICRANGE Then
If pi.Key=2 Then
Dim pnl As B4XView = prefdialog.CustomListView1.GetPanel(i)
pnl.Visible=False
i=prefdialog.PrefItems.Size - 1
End If
End If
Next
Wait For (sf) Complete (Result As Int)