Get size of system-font in use

moster67 · Apr 5, 2013

The other day I received a report (along with screenshots) from a user saying that certain labels on his Galaxy S3 were truncated or simply did not show up correctly. I found this rather odd since my developer-phone is also a Galaxy S3 and of course I had made sure that everything (my layouts) looked OK, not only on my S3, but also in other resolutions.

First I thought the user might have installed a custom-ROM with different system-fonts but then it struck me the user could have enlarged the system-fonts in the display-settings and indeed he had.

In this specific case, I was able to fix it easily by enlarging the labels but I am wondering if the designer-script and the auto-scale features take into consideration these situations when a user enlarge the system font-size? Any ideas?

If not, is it possible to get the size of the system-font in use? Of course I don't want to override this because if a user has deliberately increased the font-size, there is surely a good reason for it (sight-problems etc) and perhaps we developers should foresee that there can be problems with layouts in these situations and we should adapt our code/design somehow although this might not always be possible (short of screen-space) and in these cases we could launch a messagebox or similar informing the user there might be layout-issues.

Erel · Aug 6, 2015

Just put it in the code module.

LucaMs · Sep 30, 2015

Erel said:

This code will take care of Labels, EditText, Buttons, CheckBoxes, RadioBoxes and Spinners:

B4X:

Sub Process_Globals
   Dim access As Accessiblity
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   ResetUserFontScale(Activity)
End Sub

Sub ResetUserFontScale(p As Panel)
   For Each v As View In p
     If v Is Panel Then
       ResetUserFontScale(v)
     Else If v Is Label Then
       Dim lbl As Label = v
       lbl.TextSize = lbl.TextSize / access.GetUserFontScale
     Else If v Is Spinner Then
       Dim s As Spinner = v
       s.TextSize = s.TextSize / access.GetUserFontScale
     End If
   Next
End Sub

"You" (I mean someone ) could add the case v is a ListView

P.S. and add a link to this code to the "Code Snippets" forum (many very useful snippets like this are scattered around the site)

marcick · Sep 30, 2015

LucaMs said:
"You" (I mean someone ) could add the case v is a ListView

It seems ListView does not have the TextSize property....

LucaMs · Sep 30, 2015

marcick said:
It seems ListView does not have the TextSize property....

B4X:

Dim lv As ListView
lv.SingleLineLayout.Label.TextSize
lv.TwoLinesLayout.Label.TextSize
lv.TwoLinesAndBitmap.Label.TextSize

klaus · Sep 30, 2015

For ListView you need to do it with
ListView1.SingleLineLayout.Label.TextSize
ListView1.TwoLinesLayout.Label.TextSize
ListView1.TwoLinesLayout.SecondLabel.TextSize
ListView1.TwoLinesAndBitmap.Label.TextSize
ListView1.TwoLinesAndBitmap.SecondLabel.TextSize

LucaMs · Sep 30, 2015

klaus said:
For ListView you need to do it with
ListView1.SingleLineLayout.Label.TextSize
ListView1.TwoLinesLayout.Label.TextSize
ListView1.TwoLinesLayout.SecondLabel.TextSize
ListView1.TwoLinesAndBitmap.Label.TextSize
ListView1.TwoLinesAndBitmap.SecondLabel.TextSize

So we found who will modify that code and post it in "Code Snippets"

(few minutes)

marcick · Sep 30, 2015

Thanks Klaus and Luca,
Activity.title is still big.
Also I have AHQuickAction menù that is not residez (I know it's obsolete but ..)

leitor79 · Jan 27, 2016

Hello,

Sorry for bumping and old thread, but this is exactly what I'm looking for.

I'm surprised by the sort of agreement with the "fu*k nearsighted people!" solution everyone is talking about. As Erel said, if the user have setted the biggest font, as ugly as everything looks with it, for some major reason he did.

I'm looking for the other solution, the one who adapts the views to the fonts.

I have a sort-of-complex layout; panel at top with subpanels and labels, panel at bottom with subpanels and labels, a customlistview filling the rest of the space with each item having 4 labels. I adjust the size and locations of all the views some at the designer script and some other from the activity code.

Which would be the right approach to adjust the views's sizes according to the defined accesibility?

Regards!

Erel · Jan 27, 2016

CustomListView.AddTextItem will work properly with all font sizes. You can use similar approach (measure the string size) to increase the labels sizes.

leitor79 · Jan 27, 2016

Hi Erel, Thank you for your answer!

I don't use AddTextItem. I build panels and add them with Add. So, I think I'm stuck with measuring string sizes? Or maybe there are some useful coefficient I could use to increase all labels? ("Label1.Height=Label1.Height*Coefficient", or something like that)

Regards!

Erel · Jan 28, 2016

leitor79 said:
Or maybe there are some useful coefficient I could use to increase all labels?

It is possible. You will need to test it to find the right values.

You can use the code I posted here to apply it: https://www.b4x.com/android/forum/threads/get-size-of-system-font-in-use.28065/#post-181853

leitor79 · Jan 28, 2016

Thank you very much, Erel. It was looking at your code where I came with the idea of using a coefficient in the opposite way you've used
access.GetUserFontScale. I'll try it and I'll report.

Regards,

django · Feb 20, 2016

I'm looking for the library Accessibility. Can you help me. I have the B4A version 2.22 that does not include this library. Thank you

Erel · Feb 21, 2016

The library is attached.

I recommend you to upgrade to a newer version. Your apps will not run properly on newer devices.

django · Feb 21, 2016

Thank you very much Erel

ginsh · May 11, 2016

Hi,

I have tried the code but it works fine with Samsung S5 even if I increase the font size on the phone. But when I am testing the same in Samsung S6 it is not working with the normal font size. The text on the buttons are not scaled correctly.

Please anyone help me out.

Erel · May 11, 2016

Please start a new thread for this and post the exact code that you are running.

texwillerx · Oct 20, 2016

Erel, thank you very much for everything you have done.

I just needed such a code, you gave in this thread.

After I used the code, I realized that the code does not work for spinners.

Under debugger, I saw that, the code for panel is executed when the the view is a spinner, and it did nothing since the spinner as a panel does not contain a view.

After I changed the order of the IF statements, the code worked perfectly.

For Each v As View In p

If v Is Spinner Then
Dim sx As Spinner = v
sx.TextSize = sx.TextSize / access.GetUserFontScale

else If v Is Panel Then

ResetUserFontScale(v)

Else If v Is Label Then

Dim lbl As Label=v
lbl.TextSize = lbl.TextSize / access.GetUserFontScale

Else If v Is ListView Then

Dim xx4 As ListView=v
xx4.SingleLineLayout.Label.TextSize = xx4.SingleLineLayout.Label.TextSize / access.GetUserFontScale
xx4.twolinesLayout.Label.TextSize = xx4.twolinesLayout.Label.TextSize / access.GetUserFontScale

End If
Next

I am not sure if putting the Is panel at the end would be a better solution.

Rody Davis · Oct 9, 2017

Erel said:

This code will take care of Labels, EditText, Buttons, CheckBoxes, RadioBoxes and Spinners:

B4X:

Sub Process_Globals
   Dim access As Accessiblity
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
   ResetUserFontScale(Activity)
End Sub

Sub ResetUserFontScale(p As Panel)
   For Each v As View In p
     If v Is Panel Then
       ResetUserFontScale(v)
     Else If v Is Label Then
       Dim lbl As Label = v
       lbl.TextSize = lbl.TextSize / access.GetUserFontScale
     Else If v Is Spinner Then
       Dim s As Spinner = v
       s.TextSize = s.TextSize / access.GetUserFontScale
     End If
   Next
End Sub

This is not working on the Latest B4A. I set the Android Font Size to Maximum and still loads the app with a maximum font size and everything looks bad.
Can you post an updated code set to set the Font Size to Medium?

Erel · Oct 9, 2017

Please start a new thread in the questions forum. Also try to reproduce it in a small project and upload it.

Get size of system-font in use

Expert

B4X founder

Expert

Well-Known Member

Expert

Expert

Expert

Well-Known Member

Active Member

B4X founder

Active Member

B4X founder

Active Member

Member

B4X founder

Attachments

Member

Member

Attachments

B4X founder

Member

Member

B4X founder

Privacy & Transparency

Privacy & Transparency