Android Question [Solved] How to set the SingleLine to the TextField of B4XInputTemplate Dialog?

asales said:

I tried this 2 codes, without success:

B4X:

input.TextField1.As(EditText).SingleLine = True

B4X:

Dim et As EditText = input.TextField1
et.SingleLine = True

Both raises the same error:

B4X:

java.lang.NullPointerException: Attempt to invoke virtual method 'anywheresoftware.b4a.BA$IterableList anywheresoftware.b4a.objects.B4XViewWrapper.GetAllViewsRecursive()' on a null object reference

Thanks in advance for any help.

Click to expand...

asales said:

Changed this example from @Erel, with the code below, and get the same error:

B4X:

Private Sub btnSingleLine_Click
    Dim input As B4XInputTemplate
    input.Initialize
    input.lblTitle.Text = "SingleLine:"
   
'set singleline
'    input.TextField1.As(EditText).SingleLine = True
'OR
'    Dim et As EditText = input.TextField1
'    et.SingleLine = True
   
    Wait For (dialog.ShowTemplate(input, "OK", "", "CANCEL")) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dim res As Int = input.Text
        Log(res)
    End If  
End Sub

Click to expand...

TILogistic said:

test text} and Wrap

B4X:

    Dim input As B4XInputTemplate
    input.Initialize
    Dim rs As ResumableSub = dialog.ShowTemplate(input, "OK", "", "CANCEL")
    input.lblTitle.Text = "Text:"
    input.TextField1.As(EditText).SingleLine = False
    input.TextField1.As(EditText).Wrap = True
    Wait For (rs) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        dialog.Show($"${input.Text}"$, "OK", "", "")
    End If

Click to expand...

asales said:

Both raises the same error:

Click to expand...

private Sub btnSingleLine_Click
    Dim input As B4XInputTemplate
    input.Initialize
    input.lblTitle.Text = "SingleLine:"  
    Wait For (dialog.ShowTemplate(input, "OK", "", "CANCEL")) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dim res As Int = input.Text
        Log(res)
    End If   
End Sub