B4J Question B4X view: text field with a button

peacemaker said:

Hi, All

Do we have a ready cross-platform view: a text edit field with an extra button (for custom click event) at the right side ?

Click to expand...

Erel said:

B4XFloatTextField shows several "buttons" (labels actually) at the right side.

Click to expand...

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
 
    B4XFloatTextField1.HintText = "Select folder"
    B4XFloatTextField1.Update
    B4XFloatTextField1.lblV.Text = Chr(0xE24D)
    B4XFloatTextField1.lblV.TextColor = xui.Color_Blue
    B4XFloatTextField1.Text = " "
    B4XFloatTextField1.RequestFocusAndShowKeyboard
End Sub

Private Sub B4XFloatTextField1_EnterPressed
    Dim DC As DirectoryChooser
    DC.Initialize
    Dim SelectedDir As String
    SelectedDir = DC.Show(B4XPages.GetNativeParent(Me))
    If SelectedDir.Length = 0 Then
        SelectedDir = " "
    End If
    B4XFloatTextField1.Text = SelectedDir
    B4XFloatTextField1.RequestFocusAndShowKeyboard
End Sub

LucaMs said:

'Note for Erel: the HintText property does not work (programmatically).

Click to expand...

peacemaker said:

Use B4XFloatTextField.Update method after B4XFloatTextField.HintText change.

Click to expand...