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 - 65%x, lbl.Top, 200dip, lbl.Height)
End If
Next
Wait For (sf) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
PrintOptions(Options3, TextArea3)
End If
End Sub