B4J Question PreferenceDialog - Options field - center/left/right

Erel said:

B4X:

'p is the B4XPreferencesDialog
Dim rs As Object = p.ShowDialog(Data(0), "Ok", "CANCEL")

For i = 0 To p.PrefItems.Size - 1
    Dim pi As B4XPrefItem = p.PrefItems.Get(i)
    If pi.ItemType = p.TYPE_OPTIONS Then
        Dim lbl As B4XView = p.CustomListView1.GetPanel(i).GetView(1)
        lbl.SetLayoutAnimated(0, lbl.Parent.Width - 300dip, lbl.Top, 290dip, lbl.Top)
        lbl.SetTextAlignment("CENTER", "CENTER")
    End If
Next

Wait For (rs) Complete (Result As Int)

View attachment 142673

Click to expand...