Android Question CSBuilder and AutoTextSizeLabel

cliv · Nov 17, 2017

I do this with a label:

B4X:

Dim cs As CSBuilder
Dim lblPrecipitation As Label
cs.Initialize.Typeface(Typeface.FONTAWESOME).Color(Colors.LightGray).Append(Chr(0xF043)).Color(Colors.Gray).Append(" " & relative_humidity ).PopAll
lblPrecipitation.Text=cs

But ... can i use AutoTextSizeLabel and csBuilder instead of label?

Computersmith64 · Nov 18, 2017

I think AutoTextSizeLabel is effectively just a subclass of a Label isn't it? If so, you should be able to assign the cdBuilder to the .Text property. Have you tried it? If so, did you get an error?

- Colin.

Erel · Nov 19, 2017

Change the two subs code in the class to:

B4X:

Public Sub setText(value As Object)
   mLbl.Text = value
   Dim multipleLines As Boolean = mLbl.Text.Contains(CRLF)
   Dim size As Float
   For size = 2 To 80
     If CheckSize(size, multipleLines, value) Then Exit
   Next
   size = size - 0.5
   If CheckSize(size, multipleLines, value) Then size = size - 0.5
   mLbl.TextSize = size
End Sub

'returns true if the size is too large
Private Sub CheckSize(size As Float, MultipleLines As Boolean, Text As Object) As Boolean
   mLbl.TextSize = size
   If MultipleLines Then
     Return su.MeasureMultilineTextHeight(mLbl, Text) > mLbl.Height
   Else
     Return cvs.MeasureStringWidth(mLbl.Text, mLbl.Typeface, size) > mLbl.Width Or _
       su.MeasureMultilineTextHeight(mLbl, Text) > mLbl.Height
   End If
End Sub

Note that the width measurement ignores the custom styles.

cliv · Nov 20, 2017

Erel said:
Change the two subs code in the class to:

Thank you ...

Android Question CSBuilder and AutoTextSizeLabel

cliv

Member

Computersmith64

Well-Known Member

Erel

B4X founder

cliv

Member

Similar Threads

Android Question CSBuilder and AutoTextSizeLabel

cliv

Member

Computersmith64

Well-Known Member

Erel

B4X founder

cliv

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency