Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
SetHintAlignmnetRight(B4XFloatTextField1)
End Sub
Sub SetHintAlignmnetRight(ft As B4XFloatTextField)
ft.TextField.SetTextAlignment("CENTER", "RIGHT")
Dim HintImageView As B4XView = ft.mBase.GetView(1)
HintImageView.RemoveViewFromParent
Dim pnl As B4XView = xui.CreatePanel("")
ft.mBase.AddView(pnl, ft.mBase.Width - HintImageView.Width - 10dip, 0, HintImageView.Width + 10dip, ft.mBase.Height)
pnl.AddView(HintImageView, 6dip, HintImageView.Top, HintImageView.Width, HintImageView.Height)
End Sub