prefdialog7.Title = devDetailsTxt
prefdialog7.CustomListView1.AddTextItem("devId",devNameTxt)
prefdialog7.CustomListView1.AddTextItem("devNumber",devNumberTxt)
prefdialog7.CustomListView1.AddTextItem("devPin",devPassTxt)
prefdialog7.GetPrefItem("devId").Required = True
prefdialog7.GetPrefItem("devNumber").Required = True
prefdialog7.GetPrefItem("devPin").Required = True
Dim devData As Map = CreateMap("devId": devName, "devNumber": devAdd, "devPin": devPass)
Dim dialog1 As Object = prefdialog7.ShowDialog(devData, okstr, canstr)
For i = 0 To prefdialog7.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog7.PrefItems.Get(i)
If pi.ItemType = prefdialog7.TYPE_TEXT Then
Dim ft As B4XFloatTextField = prefdialog7.CustomListView1.GetPanel(i).GetView(0).Tag
ft.TextField.SetTextAlignment("CENTER", "RIGHT")
End If
Next
Wait For (dialog1) Complete (Result As Int)