Android Code Snippet Automatically set the text size

This is based on a nice new feature in Android Support library. It automatically adjusts the view's text size to make it fit.

You can call it with any of the following views: Label, Button, CheckBox, RadioButton, ToggleButton
Note that the size will change whenever you set the text.

#AdditionalJar: com.android.support:support-compat

Sub SetAutoSizeBasedOnText(v As View)
   Dim jo As JavaObject
   jo.InitializeStatic("android.support.v4.widget.TextViewCompat")
   jo.RunMethod("setAutoSizeTextTypeWithDefaults", Array(v, 1))
End Sub

See post #3 for more information on the supported versions.

 

[LucaMs]

This is based on a nice new feature in Android Support library

This means: from Android 8.0 !

(Stuff for rich )

 

[Erel]

You are right Luca. It is not clear in Google documentation but for the above code to work on Android 4+ devices you need to use AppCompat with the various AC views.

You can use ACFlatButton instead of a label.
To prevent buttons from being upper-cased automatically:

Sub RemoveAllCaps (Parent As Panel)
   For Each v As View In Parent.GetAllViewsRecursive
       If GetType(v) = "android.support.v7.widget.AppCompatButton" Then
           Dim jo As JavaObject = v
           jo.RunMethod("setAllCaps", Array(False))
       End If
   Next
End Sub

RemoveAllCaps(Activity)

 

[LucaMs]

You are right Luca.

This is a rarity; not the fact that you say I'm right, but that I'm really right

 

[Cableguy]

This is a rarity; not the fact that you say I'm right, but that I'm really right

Even a broken *mechanical" watch is right 2 times a day!

 

[JohnC]

You are right Luca. It is not clear in Google documentation but for the above code to work on Android 4+ devices you need to use AppCompat with the various AC views.

Can you please provide an example of what you mean because I am getting the error:

java.lang.RuntimeException: Method: setAutoSizeTextTypeWithDefaults not found in: android.support.v4.widget.TextViewCompat

 

[Erel]

Use B4A Sdk Manager and make sure that all recommended items are updated.

 

[BarryW]

This is based on a nice new feature in Android Support library. It automatically adjusts the view's text size to make it fit.

You can call it with any of the following views: Label, Button, CheckBox, RadioButton, ToggleButton
Note that the size will change whenever you set the text.

#AdditionalJar: com.android.support:support-compat

Sub SetAutoSizeBasedOnText(v As View)
   Dim jo As JavaObject
   jo.InitializeStatic("android.support.v4.widget.TextViewCompat")
   jo.RunMethod("setAutoSizeTextTypeWithDefaults", Array(v, 1))
End Sub

See post #3 for more information on the supported versions.

How to set limit on minimum text size and maximum text size?

 

[Erel]

You can see the available methods here: https://developer.android.com/reference/androidx/core/widget/TextViewCompat
Looks like you need to call: setAutoSizeTextTypeUniformWithConfiguration

 

[BarryW]

You can see the available methods here: https://developer.android.com/reference/androidx/core/widget/TextViewCompat
Looks like you need to call: setAutoSizeTextTypeUniformWithConfiguration

Hi sir thanks for your help now its working..

Is there a method to know the current textsize after autosizing it?

 

[Erel]

Have you tried the standard TextSize property?

 

[BarryW]

Have you tried the standard TextSize property?

It returns the value from the designer

 

[Erel]

You can see the API in that link. Doesn't look like there is a way to get the computed size.

You can use AutoTextSizeLabel instead.

 

[FrankDev]

is there a way to limit the maximum font size ?

setAutoSizeTextTypeWithDefaults

'withdefaults' suggests that to me at least.

Greetings
Frank

 

[JohnC]

Maybe something like this...

FontSize = MaxFontSize
lbl.TextSize = FontSize  'lets start off with maximum size you want to limit it to

'Then lets get smaller and smaller until it fits, but if it already fits with maxfontsize, then skip the below do loop
Do While su.MeasureMultilineTextHeight(lbl, lbl.Text) > lbl.Height
        FontSize = FontSize - 1
        lbl.TextSize = FontSize
Loop

 

[FrankDev]

@JohnC

thank you
This works well

regards
Frank

 

[JohnC]

You're welcome