Private Sub btnOptions3_Click
Dim sf As Object = prefdialog.ShowDialog(Options3, "OK", "CANCEL")
For i = 0 To prefdialog.PrefItems.Size - 1
Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
If pi.ItemType = prefdialog.TYPE_OPTIONS Then
Dim lbl As B4XView = prefdialog.CustomListView1.GetPanel(i).GetView(1)
lbl.SetLayoutAnimated(0, lbl.Parent.Width - 75%x, lbl.Top, 400dip, lbl.Height)
Dim myoptions As B4XView = prefdialog.CustomListView1.GetPanel(i).GetView(0)
Dim y As Int = myoptions.Top
myoptions.setLayoutAnimated(0,0,y-20dip, myoptions.Width, myoptions.Height)
myoptions.TextSize = 12 'can be changed
End If
Next
Wait For (sf) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
PrintOptions(Options3, TextArea3)
End If
End Sub