Spanish Personalizar vista B4XFloatTextField

    If FloatTextField.TextField Is TextArea And xui.IsB4J Then
        Dim ta As TextArea = FloatTextField.TextField
        ta.WrapText = False
        ta.Style = $"
                    -fx-background-image: url(${File.GetUri(File.DirAssets, "img.jpg")});
                    -fx-background-repeat: stretch;
                    -fx-background-size: 100% 100%;
                    -fx-background-position: center center;
                    -fx-effect: dropshadow(three-pass-box, rgba(0,0,0,0.9), 10, 0, 0, 0);
                    -fx-background-color: transparent;
                   "$
    End If

Public Sub SetFloatTextField(FloatTextField As B4XFloatTextField)
    FloatTextField.SmallLabelTextSize = 14 'Hint Small
    FloatTextField.LargeLabelTextSize = 16 'Hint Large
    FloatTextField.TextField.TextSize = 16 'Text
   
    Dim TextFont As B4XFont = xui.CreateFont2(FloatTextField.HintFont, FloatTextField.SmallLabelTextSize)
    Dim TextWidth As Int = MeasureTextWidth(FloatTextField.HintText, TextFont)
    Dim BorderRadius As Int = 25
   
    FloatTextField.HintLabelSmallOffsetY =  5 'Inside
    FloatTextField.HintLabelSmallOffsetX = (FloatTextField.TextField.Width - TextWidth) - (BorderRadius + 5) 'Right
    #If B4A
        Dim edt As EditText = FloatTextField.TextField
        edt.Padding = Array As Int (10dip, 0dip, 0dip, 0dip) 'Margen izquierdo 10dip
    #End If
    FloatTextField.Update
   
    FloatTextField.TextField.SetColorAndBorder(xui.Color_White, DipToCurrent(2), xui.Color_Black, BorderRadius)
End Sub