Android Question Changing floattextfield's height with the IME_HeightChanged.

[Hanz]

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:

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.

 

[TILogistic]

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:

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.

not tested

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

 

[Hanz]

not tested

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

Thanks, and looking at the code, how about the panel where the b4xfloattextfield is in? The panel has to increase its height too right?

 

[TILogistic]

not tested

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

 

[Hanz]

not tested

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

I'm not sure, does B4XFloatTextField has HeightChanged method? Even the B4XFloatTextField has no Base_Reside method? I think the latter is called thru "callsub3".

 

[Erel]

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.

 

[Hanz]

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.

I'm having a warning with either of these codes:

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)

The warning says, "types do not match."

 

[TILogistic]

?

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

 

[Hanz]

?

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

Thanks, it truly expands but, it expands towards below. I can't no longer see it because the keyboard covers it. How can I make it expand towards up? The textfiled is at the bottom and I wish to expand it from the bottom to the top just like in the FB messenger or phone's text messages.

 

[Hanz]

?

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

I added this code at the end of your code:

pnlBottomMessage.Height = txtSendMessage.mBase.Height

It helps but the exact increase is not accurate, and I have to pressed the phone's "back button" to remove the keyboard, then once the keyboard disappears, what is left is the textfield and it will show the entire textfield. LOL! I don't know what's going, I feel like a kid breaking everything.

 

[TILogistic]

see:

Test:

Responsive Chat Example

Hi All. I made this example for a chatbot app here on brasil and now i want to share it here. This example use xCLV and IME lib (Already in B4A). The messages fit both vertically and horizontally, making them fully responsive. Note: The text field expands according to the text size...

www.b4x.com

download:

https://douglasfarias.com/free/chatclvba.zip