Android Question Problem with dynamically adjust the height of xCustomListView items

[Timm Sodtalbers]

Hi!
I use the MeasureMultilineTextHeight function by Alexander Stolte to dynamically adjust the height of CLV items.
This works, but adjusting the height of labels within the CLV items has no effect.

Sub BuildCLV
    For i = 0 To comments.Size - 1
        Dim k As Map = comments.Get( i )
        CommentsCLV.Add( CreateListItem( k ), k )
    Next
End Sub

Sub CreateListItem( k As Map ) As Panel

    Dim p As B4XView = xui.CreatePanel( "" )

    p.SetLayoutAnimated( 0, 0, 0, CommentsCLV.AsView.Width, 50dip )
    p.LoadLayout( "comment" )
    
    LabelComment.Text = k.Get( "text" )

    Dim nHeight As Double = MeasureMultilineTextHeight( LabelComment )

    p.Height = nHeight + 4dip      ' works
    LabelComment.Height = nHeight  ' this has no effect (neither does SetLayoutAnimated)

    Return p

End Sub

Does anyone have an idea?

 

[PaulMeuris]

This code snippet is used by Alexander for B4A:

    Dim su As StringUtils
    Return su.MeasureMultilineTextHeight(xLabel,xLabel.Text)

Notice that there are 2 arguments for the function: the label and the label text...
The StringUtils is a internal library in B4A.

 

[Timm Sodtalbers]

I use this in order to have it working for B4i, too:

[B4X] MeasureMultilineTextHeight

I was looking for a way to determine the height of a textview when it has multiline text. This function now makes that possible across platforms. From B4J I come from this thread: https://www.b4x.com/android/forum/threads/measure-multiline-text-height.84331/#content Private Sub...

www.b4x.com

 

[PaulMeuris]

Is the text long enough and not empty?

LabelComment.Text = k.Get( "text" )

The subroutine from Alexander works just fine (tested in B4A).
Add a log line to see the contents of the text.

 

[Timm Sodtalbers]

Measuring the height is not the problem, it works very well.
I want to dynamically adjust the height of the text label in the CLV items so that the text is fully displayed.
This does not work:

    LabelComment.Height = nHeight

The height of LabelComment does not change although nHeight has the right value.

 

[klaus]

Please, post a small project showing the problem.

 

[TILogistic]

Measuring the height is not the problem, it works very well.
I want to dynamically adjust the height of the text label in the CLV items so that the text is fully displayed.
This does not work:

    LabelComment.Height = nHeight

The height of LabelComment does not change although nHeight has the right value.

?
set the new size

xCustomListView items​

CommentsCLV.ResizeItem(..)

 

[PaulMeuris]

I want to dynamically adjust the height of the text label in the CLV items so that the text is fully displayed.

How do you plan on doing that? Where is the code to change the comment label of an item?
Do the items have different heights after they are created?
BTW the suggestion from @TILogistic works fine after you set the label height (in the subroutine to change the label).

 

[Timm Sodtalbers]

How do you plan on doing that? Where is the code to change the comment label of an item?

You will find the code in my first message.

Do the items have different heights after they are created?

Yes, they have.

This is how it looks now:

The height of the label is not adjusted to the clv item height.

 

[IdasI4A]

Me, I do it like this.

    Dim Alto, AltoPanel As Int
    Dim Su As StringUtils
    
    Dim T0,T As String
    T0="Ejemplo de texto que crece. "
    T=T0
    CLV.Clear
    For i=1 To 10
        Dim P As B4XView=xui.CreatePanel("")
        p.SetLayoutAnimated( 0, 0, 0, CLV.AsView.Width, 50dip )
        P.LoadLayout("lyElemento")
        
        Dim Lbl1 As B4XView=P.GetView(0)
        Lbl1.Text="Elemento " & i
        Dim lbl2 As B4XView=P.GetView(1)
        lbl2.Text=T
        T=t & T0
        Alto=Su.MeasureMultilineTextHeight(lbl2,lbl2.Text)
        lbl2.Height=Alto
        AltoPanel=lbl2.Top+Alto+2dip
        
        p.SetLayoutAnimated( 0, 0, 0, CLV.AsView.Width, AltoPanel )
        CLV.Add(P,CLV.Size)
    Next

And I get: (lyElemento is a layout with two labels)

 

[PaulMeuris]

Did you check the single line property of the label in the layout?

If you did then that is wrong!
If you want more help then you should post a project (with the layouts) that shows the problem like @klaus asked you to do!

 

[Timm Sodtalbers]

I just built a sample project with B4A and realized that the problem does not exist on Android.
I had tested everything with B4i and had assumed that it would not work with B4A either.
So it's probably a B4i problem and I'm in the wrong forum. Sorry and thanks for your support!