Android Question Changing floattextfield's height with the IME_HeightChanged.

Hanz said:

I came across a chat example by Erel. It shows how to create bubble color. But it does not show how to change the floattextfield's height as the number of letters increases or when the enter key is pressed. I also found this forum:

B4X:

https://www.b4x.com/android/forum/threads/whats-the-correct-way-to-resize-a-b4xfloattextfield.131956/#content

Any further guidance how to increase the height of floattextfield's height as the user type letters just like in the FB messenger? I followed erel's chat example. The floattextfield is inside the panel. I guest I have to increase the panel's height as well.

Thanks.

Click to expand...

Sub B4XFloatTextField1_HeightChanged (NewHeight As Int, OldHeight As Int)
    Dim difference As Int = OldHeight - NewHeight
    B4XFloatTextField1.Base_Resize(B4XFloatTextField1.mBase.Width, B4XFloatTextField1.mBase.Height - difference)
End Sub

oparra said:

not tested

B4X:

Sub B4XFloatTextField1_HeightChanged (NewHeight As Int, OldHeight As Int)
    Dim difference As Int = OldHeight - NewHeight
    B4XFloatTextField1.Base_Resize(B4XFloatTextField1.mBase.Width, B4XFloatTextField1.mBase.Height - difference)
End Sub

Click to expand...

oparra said:

not tested

B4X:

Sub B4XFloatTextField1_HeightChanged (NewHeight As Int, OldHeight As Int)
    Dim difference As Int = OldHeight - NewHeight
    B4XFloatTextField1.mBase.Height = B4XFloatTextField1.mBase.Height - difference
    B4XFloatTextField1.Base_Resize(B4XFloatTextField1.mBase.Width, B4XFloatTextField1.mBase.Height)
End Sub

Click to expand...

Erel said:

There is no HeightChanged event because the height will never change unless you change it.
You can handle the TextChanged event and measure the string height with StringUtils.MeasureMultilineText.

Click to expand...

Dim su As StringUtils
Dim h As Int = su.MeasureMultilineTextHeight(txtSendMessage, txtSendMessage.Text)

Dim su As StringUtils
txtSendMessage.TextField.Height = su.MeasureMultilineTextHeight(txtSendMessage, txtSendMessage.Text)

oparra said:

?

B4X:

Private Sub B4XFloatTextField1_TextChanged (Old As String, New As String)
 
    Dim SU As StringUtils
    Dim TextHeight As Int = SU.MeasureMultilineTextHeight(B4XFloatTextField1.TextField.As(EditText), B4XFloatTextField1.Text)
    Dim HintHeight As Int = SU.MeasureMultilineTextHeight(B4XFloatTextField1.TextField.As(EditText), B4XFloatTextField1.HintText)
    B4XFloatTextField1.mBase.Height = TextHeight + HintHeight
    CallSub3(B4XFloatTextField1, "Base_Resize", B4XFloatTextField1.mBase.Width, B4XFloatTextField1.mBase.Height)

End Sub

View attachment 119233

Click to expand...

oparra said:

?

B4X:

Private Sub B4XFloatTextField1_TextChanged (Old As String, New As String)
  
    Dim SU As StringUtils
    Dim TextHeight As Int = SU.MeasureMultilineTextHeight(B4XFloatTextField1.TextField.As(EditText), B4XFloatTextField1.Text)
    Dim HintHeight As Int = SU.MeasureMultilineTextHeight(B4XFloatTextField1.TextField.As(EditText), B4XFloatTextField1.HintText)
    B4XFloatTextField1.mBase.Height = TextHeight + HintHeight
    CallSub3(B4XFloatTextField1, "Base_Resize", B4XFloatTextField1.mBase.Width, B4XFloatTextField1.mBase.Height)

End Sub

View attachment 119233

Click to expand...

pnlBottomMessage.Height = txtSendMessage.mBase.Height