Public Sub SetFloatTextField(FloatTextField As B4XFloatTextField)
Dim TextFont As B4XFont = xui.CreateFont2(FloatTextField.HintFont, FloatTextField.SmallLabelTextSize)
Dim TextWidth As Int = MeasureTextWidth(FloatTextField.HintText, TextFont)
Dim BorderRadius As Int = FloatTextField.TextField.Height / 2
FloatTextField.HintLabelSmallOffsetY = 5
FloatTextField.HintLabelSmallOffsetX = FloatTextField.TextField.Width - (TextWidth + BorderRadius)
FloatTextField.Update
FloatTextField.TextField.SetColorAndBorder(xui.Color_Black, DipToCurrent(3), xui.Color_White, BorderRadius)
End Sub
Private Sub MeasureTextWidth(t As String, f As B4XFont) As Float
Dim MeasuringCanvas As B4XCanvas
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 2dip, 2dip)
MeasuringCanvas.Initialize(p)
Return MeasuringCanvas.MeasureText(t, f).Width
End Sub