B4J Question [SOLVED] How to disable Label autoresize when increasing TextSize

[Sagenut]

Hi!
I searched in the forum but I found nothing about it, maybe wrong research.
In B4J a label automatically increase its size to show all the text when TextSize increase.
I would like to disable this and make Label in B4J to act like Labels in B4A.
I think that it's needed something about CSS but I am unable to find it, or make what I found to work.
Thank You!

 

[stevel05]

Try setting maxheight and maxwidth, you can do this with JavaObject:

Dim MaxHeight as Double = lbl.as(B4xView).Height
Dim MaxWidth as Double = lbl.as(B4xView).Width
lbl.as(JavaObject).RunMethod("setMaxHeight",Array(MaxHeight))
lbl.as(JavaObject).RunMethod("setMaxWidth",Array(MaxWidth))

 

[Sagenut]

Try setting maxheight and maxwidth, you can do this with JavaObject:

Dim MaxHeight as Double = lbl.as(B4xView).Height
Dim MaxWidth as Double = lbl.as(B4xView).Width
lbl.as(JavaObject).RunMethod("setMaxHeight",Array(MaxHeight))
lbl.as(JavaObject).RunMethod("setMaxWidth",Array(MaxWidth))

Unluckily it seems not to work.
Thanks

 

[stevel05]

Apparently, having tried it, that is not enough. You need to set minHeight / width, prefHeight / width and maxHeight / width to the same values.

As PrefHeight and Width are already set this works for me:

Public Sub SetLblFixedSize(Lbl As Label)
    Dim MaxHeight As Double = Lbl.PrefHeight
    Dim MaxWidth As Double = Lbl.PrefWidth
    Lbl.as(JavaObject).RunMethod("setMaxHeight",Array(MaxHeight))
    Lbl.as(JavaObject).RunMethod("setMaxWidth",Array(MaxWidth))
    Lbl.as(JavaObject).RunMethod("setMinHeight",Array(MaxHeight))
    Lbl.as(JavaObject).RunMethod("setMinWidth",Array(MaxWidth))
End Sub

Usage

SetLblFixedSize(Label1)

 

[Sagenut]

Apparently, having tried it, that is not enough. You need to set minHeight / width, prefHeight / width and maxHeight / width to the same values.

As PrefHeight and Width are already set this works for me:

Public Sub SetLblFixedSize(Lbl As Label)
    Dim MaxHeight As Double = Lbl.PrefHeight
    Dim MaxWidth As Double = Lbl.PrefWidth
    Lbl.as(JavaObject).RunMethod("setMaxHeight",Array(MaxHeight))
    Lbl.as(JavaObject).RunMethod("setMaxWidth",Array(MaxWidth))
    Lbl.as(JavaObject).RunMethod("setMinHeight",Array(MaxHeight))
    Lbl.as(JavaObject).RunMethod("setMinWidth",Array(MaxWidth))
End Sub

Usage

SetLblFixedSize(Label1)

Yes!
It works.
Thank you @stevel05 !