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
Dim tf As TextField = mTextField
tf.PasswordMode = Not(ToRegular)
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
ToRegular = Not(ToRegular)
' 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
'
'
' If lblV.IsInitialized Then lblV.BringToFront
' HintImageView.BringToFront
' Base_Resize(mBase.Width, mBase.Height)
' #if B4J
' Dim tf As TextField = mTextField
' tf.SetSelection(mTextField.Text.Length, mTextField.Text.Length)
' #else if B4A
' Dim et As EditText = mTextField
' et.SelectionStart = mTextField.Text.Length
' #end if
' LastSwitchTextFieldTime = DateTime.Now
' mTextField.RequestFocus
' oldfield.RemoveViewFromParent
End Sub