Android Question Password in an EditText

[Alex_197]

Hi all.

Edit text has a property Password that you can check on and off in Designer.
Then if I generate it as Edittext I can turn on and off the PasswordMode

But if I generate it as B4XView this option is missing in a code

Is there any way how to di it in a code?

My client has asked me to do it the similar way when you enter a phone password when you click on an eye and you see the whole text you entered.

 

[emexes]

But if I generate it as B4XView this option is missing in a code

I thought that can't be right but it looks like you're correct. That is indeed a surprise.

Your best (and fastest and simplest) solution here might be to stand on the shoulders of giants, eg:

https://www.b4x.com/android/forum/t...prefix-suffix-icons-multiline.141337/#content

 

[Alex_197]

That is indeed a surprise. Your best solution here might be to stand on the shoulders of giants, eg:

https://www.b4x.com/android/forum/t...prefix-suffix-icons-multiline.141337/#content

Thanks.

 

[William Lancee]

B4XView is just a wrapper for the view it contains.

EditText1.As(EditText).PasswordMode = True

So you can turn it on and off in code.
You do have to provide your own 'Eye' button!

B4XFloatTextfield does have an eye incorporated. Try that as you input field. It is pretty good.

 

[emexes]

EditText1.As(EditText).PasswordMode = True

Can similar be done in B4J? (which is where I tried it, because I don't have B4A with me here)

 

[Daestrum]

Can similar be done in B4J? (which is where I tried it, because I don't have B4A with me here)

Most B4XViews can be cast back to their original and vice versa.

 

[William Lancee]

@Daestrum is correct.

There is no EditText in B4J. The Textfield can be defined as password in designer. But I can't do it in code.
This doesn't work.

    TextField1.As(Textfield).InitializePassword("xx")

If you do it in designer, it also doesn't have an eye.

However B4XFLoatTextfield is cross platform and works fine.
This custom contains a Textfield so I wonder how B4XFloatTextfield does it?

 

[emexes]

Most B4XViews can be cast back to their original and vice versa.

Agreed, but the (sub)issue is that the B4J equivalent of B4A EditText does not show a Password property:
(although it does have a checkbox for it in Designer)

 

[William Lancee]

I looked at the source code of B4XFloatTextfield. It is all done explicitly. Here is an excerpt.

Private Sub CreateRevealButton
    lblClear = CreateButton(Chr(0xE8F4))
    lblClear.Tag = "reveal"
End Sub

Private Sub SwitchFromPasswordToRegular (ToRegular As Boolean)
    Dim text As String = mTextField.Text
    Dim textcolor As Int = mTextField.TextColor
    Dim Font1 As B4XFont = mTextField.Font
    Dim oldfield As B4XView = mTextField
    
    CreateTextFieldAll(Not(ToRegular), Font1, textcolor)
    mTextField.Text = text
    If lblClear.IsInitialized Then
        If ToRegular = False Then
            lblClear.Text = Chr(0xE8F4)
            lblClear.Tag = "reveal"
        Else
            lblClear.Tag = "hide"
            lblClear.Text = Chr(0xE8F5)
        End If
        lblClear.BringToFront
    End If
    '....'
End Sub

 

[emexes]

There is no EditText in B4J.

You beat me to it.

However B4XFLoatTextfield is cross platform and works fine.

Yes, that is an excellent solution.

This custom contains a Textfield so I wonder how B4XFloatTextfield does it?

Must be magic!

 

[emexes]

I looked at the source code of B4XFloatTextfield.

You beat me to it (again).

I knew you're in a different time zone to me, but I'm starting to wonder if you're also in a different universe, parallel but ahead by 60 seconds.

 

[William Lancee]

From my perspective, I've always felt I was 60 seconds behind. Ah, relativity again.

 

[William Lancee]

The reveal code leads to this...

        Dim tf As TextField
        If Password Then tf.InitializePassword("tf") Else tf.Initialize("tf")

Try this in B4j. The password will be revealed in 5 seconds.

    Dim tf As TextField
    tf.InitializePassword("event")
    tf.Text = "abcdef"
    Root.AddView(tf, 100, 400, 300, 50)
   
    Sleep(5000)
   
    Dim text As String = tf.text
    tf.RemoveNodeFromParent
    Dim tf As TextField
    tf.Initialize("event")
    tf.Text = text
    Root.AddView(tf, 100, 400, 300, 50)