B4J Question [B4X] [SOLVED] Change width of Specific Item at PreferencesDialog

Private Sub SetWidthItem (Pref As PreferencesDialog, Key As String, wwidth As Double)
    For i = 0 To Pref.CustomListView1.Size - 1
        Log(i)
        Dim pi As B4XPrefItem = prefdialog.CustomListView1.GetValue(i)
        Log(pi.Key)
        If pi.Key = Key Then
            Pref.CustomListView1.GetPanel(i).GetView(1).Width=wwidth
        End If
    Next
End Sub

Private Sub SetWidthItem (Pref As PreferencesDialog, Key As String, wwidth As Double) 'Changes the Width of combo.. etc
    For i = 0 To Pref.PrefItems.Size - 1
        Dim pi As B4XPrefItem = Pref.PrefItems.Get(i)
        If pi.key = Key Then
        Dim oldx As Double=Pref.CustomListView1.GetPanel(i).GetView(1).Left
        Dim oldw As Double=Pref.CustomListView1.GetPanel(i).GetView(1).width
        Pref.CustomListView1.GetPanel(i).GetView(1).Left=(oldx + oldw)-wwidth
        Pref.CustomListView1.GetPanel(i).GetView(1).width=wwidth
        End If
    Next
End Sub

Private Sub SetAlignmentItem (Pref As PreferencesDialog, Key As String, aligntext As String) 'not works - i wanna at number fields text to be at right side...
    For i = 0 To Pref.PrefItems.Size - 1
        Dim pi As B4XPrefItem = Pref.PrefItems.Get(i)
        If pi.key = Key Then
        Pref.CustomListView1.GetPanel(i).GetView(1).SetTextAlignment("CENTER", aligntext)
        End If
    Next
End Sub


Private Sub SetDisableItem (Pref As PreferencesDialog, Key As String, disable As Boolean) ' This works very good - suprisely..
    For i = 0 To Pref.PrefItems.Size - 1
        Dim pi As B4XPrefItem = Pref.PrefItems.Get(i)
        If pi.key = Key Then
        Pref.CustomListView1.GetPanel(i).GetView(0).Enabled=disable
        End If
    Next
End Sub

'All can be run at..
Private Sub PrefDialog_BeforeDialogDisplayed (Template As Object)

'for example:
    SetDisableItem(prefdialog,"idsyn",False)
    SetAlignmentItem(prefdialog,"idsyn","RIGHT") '  --->not works
    SetAlignmentItem(prefdialog,"codesyn","RIGHT") '  --->not works
    SetWidthItem(prefdialog,"howpay",300dip)

'name it ClassKeyborad.bas (class)
Sub Class_Globals
    Private fx As JFX
    Private mParent As Object
    Private sendk As AWTRobot
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize ( Parent As Object )
    mParent = Parent
End Sub

Public Sub Enter2TAB(ctl As Object)
    Dim r As Reflector
    r.Target = ctl
    r.AddEventFilter("keypressed","javafx.scene.input.KeyEvent.KEY_PRESSED")
End Sub

Private Sub KeyPressed_Filter (e As Event)
    Dim jo As JavaObject = e
    Dim keycode As String = jo.RunMethod("getCode", Null)
    'Log(keycode)
    If keycode = "ENTER" Then
        e.Consume
        sendk.RobotKeyPressByKeyCode(9)
    End If
End Sub

    ClassKeyborad1.Enter2TAB(B4XPages.GetNativeParent(Me).RootPane)

Public Sub Initialize As Object
    ClassKeyborad1.Initialize(Me)
    Return Me
End Sub

    ClassKeyborad1.Initialize(Me)

    prefdialog.ShowDialog(Options1, "OK", "CANCEL") 'add this line
    Sleep(0) 'add this line
    Wait For (prefdialog.ShowDialog(Options1, "OK", "CANCEL")) Complete (Result As Int)
...

Private Sub SetAlignmentItem (Pref As PreferencesDialog, Key As String, aligntext As String)
    For i = 0 To Pref.PrefItems.Size - 1
        Dim pi As B4XPrefItem = Pref.PrefItems.Get(i)
        If pi.key = Key And pi.ItemType=Pref.TYPE_TEXT Or pi.ItemType=Pref.TYPE_NUMBER Then

            #If B4A
            Dim ft As B4XFloatTextField = Pref.CustomListView1.GetPanel(i).GetView(0).Tag            
            ft.TextField.SetTextAlignment("CENTER", aligntext)
            #end if
            #if B4J
            Dim ft As B4XFloatTextField = Pref.CustomListView1.GetPanel(i).GetView(0).tag
            CSSUtils.SetStyleProperty(ft.TextField.As(TextField), "-fx-alignment", aligntext)
            #End If

        End If
    Next
End Sub

    PD.AddSeparator("Text")
    PD.AddNumericRangeItem("ItemQty", "Qty", 0, 10, 1)
    Dim ls As List
    ls.Initialize
    ls.AddAll(Array As String("opt 1", "opt 2", "opt 3"))
    PD.AddShortOptionsItem("MotiveID", "Motive", ls)
    SetWidthItem(PD, "MotiveID", 180dip)

'All can be run at..
Private Sub PrefDialog_BeforeDialogDisplayed (Template As Object)