Android Question [Solved] how to make Options value to take full width of preference dialog ?

[AnandGupta]

The value of "Options" is show on the right within a little space, see image, (the value is "Anand Gupta")


how to make it to take full width of preference dialog ?

 

[asales]

Try this:

If pi.ItemType = prefdialog.TYPE_SHORTOPTIONS Then
    Dim Parent As B4XView = prefdialog.CustomListView1.GetPanel(i).GetView(1)
    Parent.Left = (Parent.Left + Parent.Width) - 250dip
    Parent.Width = 250dip
    Dim view As B4XView = Parent.GetView( 0)
    view.Width = Parent.Width
End If

 

[AnandGupta]

Try this:

If pi.ItemType = prefdialog.TYPE_SHORTOPTIONS Then
    Dim Parent As B4XView = prefdialog.CustomListView1.GetPanel(i).GetView(1)
    Parent.Left = (Parent.Left + Parent.Width) - 250dip
    Parent.Width = 250dip
    Dim view As B4XView = Parent.GetView( 0)
    view.Width = Parent.Width
End If

Thanks, but I need it for OPTIONS

I did changed it , but gives error

        If pi.ItemType = pref.TYPE_OPTIONS Then
            Dim Parent As B4XView = pref.CustomListView1.GetPanel(i).GetView(1)
            Parent.Left = (Parent.Left + Parent.Width) - 250dip
            Parent.Width = 250dip
            Dim view As B4XView = Parent.GetView( 0)
            view.Width = Parent.Width
        End If

Error occurred on line: 183 (BlankPage)
java.lang.RuntimeException: Type does not match (class android.widget.TextView)
    at anywheresoftware.b4a.objects.B4XViewWrapper.typeDoesNotMatch(B4XViewWrapper.java:405)
    at anywheresoftware.b4a.objects.B4XViewWrapper.asPanelWrapper(B4XViewWrapper.java:111)
    at anywheresoftware.b4a.objects.B4XViewWrapper.GetView(B4XViewWrapper.java:335)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:732)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:348)
    at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:157)
    at anywheresoftware.b4a.keywords.Common.CallSub4(Common.java:1114)
    at anywheresoftware.b4a.keywords.Common.CallSubNew2(Common.java:1069)
    at b4a.example.preferencesdialog._raisebeforedialogdisplayed(preferencesdialog.java:3119)
....

this is line 183

Dim view As B4XView = Parent.GetView( 0)

 

[Mahares]

Mr. Gupta: I have a thought on this, but since I am not sure of the question, I like to see a small project demonstrating it, unless of course someone else knows what you want and volunteers their answer.

 

[AnandGupta]

Mr. Gupta: I have a thought on this, but since I am not sure of the question, I like to see a small project demonstrating it, unless of course someone else knows what you want and volunteers their answer.

Thanks, will make a small project.

 

[AnandGupta]

Hi @Mahares I have taken below sample, project attached

[B4X] B4XPreferencesDialog - Cross platform forms

B4XPreferencesDialog makes it easy to create dialogs with all kinds of input fields. The main steps required to use these dialogs are: 1. Define the list of fields. The recommended way to do it is with Forms Builder tool...

www.b4x.com

When selecting "Options" from list with longer text, it shows truncated text as below,


See, "Albuquerque, NM" or "Colorado Springs, CO" shows truncated.
How to increase the text area full width so that they are not truncated ?

 

[asales]

Here the code to the Options3 button:

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