Private Sub PrefDialog_BeforeDialogDisplayed (Template As Object)
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_TEXT Then
Dim pnl As B4XView = prefDialog.CustomListView1.GetPanel(i)
Dim ft As B4XFloatTextField = pnl.GetView(0).Tag
ft.lblClear.Left = -100dip
ft.lblV.Left = -100dip
else If pi.ItemType = prefDialog.TYPE_MULTILINETEXT Then
Dim pnl As B4XView = prefDialog.CustomListView1.GetPanel(i)
Dim ft As B4XFloatTextField = pnl.GetView(0).Tag
ft.lblClear.Left = -100dip
ft.lblV.Left = -100dip
End If
Next
End Sub