Dim sf As Object = p.ShowDialog(d, "OK", "CANCEL")
For i = 0 To p.PrefItems.Size - 1
Dim pi As B4XPrefItem = p.PrefItems.Get(i)
p.CustomListView1.AnimationDuration = 0
If pi.ItemType = p.TYPE_TEXT Then
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
Dim ft As B4XFloatTextField = pnl.GetView(0).Tag
ft.lblClear.Left = -100dip
ft.lblV.Left = -100dip
End If
Next
Wait For (sf) Complete (Result As Int)
No. The two buttons become visible when the field is focused and are hidden again when it loses focus, so we need to actually move them out of sight. It might be possible to remove them from the parent view however it is better like I did.
Dim sf As Object = p.ShowDialog(d, "OK", "CANCEL")
For i = 0 To p.PrefItems.Size - 1
Dim pi As B4XPrefItem = p.PrefItems.Get(i)
p.CustomListView1.AnimationDuration = 0
If pi.ItemType = p.TYPE_TEXT Then
Dim pnl As B4XView = p.CustomListView1.GetPanel(i)
Dim ft As B4XFloatTextField = pnl.GetView(0).Tag
ft.lblClear.Left = -100dip
ft.lblV.Left = -100dip
End If
Next
Wait For (sf) Complete (Result As Int)