Android Question Measuring BBCodeView paragraph (full text) height

R

RB Smissaert

Well-Known Member
Licensed User
Longtime User
Having a problem with this on a phone that has access.GetUserFontScale (Accessibility) set to a higher value (in this case 1.5).
The measured height is too large and multiplying that by 1 / access.GetUserFontScale makes it smaller but the value is still too high.

This is the code I have to measure the text height of the BBCodeView:

Code: Copy 
Public Sub MeasureTextHeightBBCodeView(vParent As B4XView, _
                                       strCodeText As String, _
                                       iWidth As Int, _
                                       fTextSize2 As Float, _
                                       arrPadding() As Int) As Int
                                       
    'Note fTextSize is not used in this Sub
    
    Dim iMaxDialogHeight As Int = vParent.Height - 144dip
    Dim TextEngine As BCTextEngine
    Dim iContentHeight As Int
    Dim rectPadding As B4XRect
    
    Log(strCodeText)
    
    '-----------------------------------------------------------------------------------------
    'note that is the same layout that will be used to show the actual final text
    'it will be removed first after getting the content height and will then be reloaded later
    '-----------------------------------------------------------------------------------------
    vParent.LoadLayout("Dialog_bcte")
    
    'bbcvPrompt is private module level variable (in B4XMainPage)
    bbcvPrompt.mBase.Width = iWidth
    
    TextEngine.Initialize(vParent)
    bbcvPrompt.TextEngine = TextEngine
    
    rectPadding.Initialize(arrPadding(0), arrPadding(1), arrPadding(2), arrPadding(3))
    bbcvPrompt.Padding = rectPadding
    bbcvPrompt.LazyLoading = True 'but already set so in the designer
    
    bbcvPrompt.Text = strCodeText
    
    If bbcvPrompt.Paragraph.IsInitialized Then
        iContentHeight = bbcvPrompt.Paragraph.Height / TextEngine.mScale + bbcvPrompt.Padding.Top + bbcvPrompt.Padding.Bottom' + iDoubleLineBreaks * fTextSize
    End If
    
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Paragraph.Height: " & bbcvPrompt.Paragraph.Height)
    Log("MeasureTextHeightBBCodeView, TextEngine.mScale: " & TextEngine.mScale)
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Top: " & bbcvPrompt.Padding.Top)
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Bottom: " & bbcvPrompt.Padding.Bottom)
    Log("MeasureTextHeightBBCodeView, iContentHeight: " & iContentHeight)
    
    bbcvPrompt.Paragraph.TextLines.Clear '?clear memory
    
    'all these are on the layout dialog_bcte and will need removing
    imgIcon.RemoveViewFromParent
    bbcvPrompt.mBase.RemoveViewFromParent
    lblTitle.RemoveViewFromParent
    edtInput.RemoveViewFromParent
    
    Private bbcvPrompt As BBCodeView '?clear memory, not sure what difference there is to declare here with Dim or Private
    
    'Log("MeasureTextHeightBBCodeView, iContentHeight: " & iContentHeight)
    
    If iContentHeight > iMaxDialogHeight Then
        iContentHeight = iMaxDialogHeight
    End If
    
    Return iContentHeight
    
End Sub

This is the code text I am testing with, with the produced log values.

Code: Copy 
[Span MinWidth=40%x][color=#000000]Max Memory[/color][/Span][Span MinWidth=59%x][color=#000000]256 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Total Free[/color][/Span][Span MinWidth=59%x][color=#000000]241.7 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Total Memory[/color][/Span][Span MinWidth=59%x][color=#000000]28.5 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Used Memory[/color][/Span][Span MinWidth=59%x][color=#000000]14.3 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Free Memory[/color][/Span][Span MinWidth=59%x][color=#000000]14.2 Mb[/color][/Span]

MeasureTextHeightBBCodeView, bbcvPrompt.Paragraph.Height: 740
MeasureTextHeightBBCodeView, TextEngine.mScale: 1
MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Top: 18
MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Bottom: 18
MeasureTextHeightBBCodeView, iContentHeight: 776

Any idea what I may be doing wrong?

RBS
 
Sort by date Sort by votes
RB Smissaert said:
Having a problem with this on a phone that has access.GetUserFontScale (Accessibility) set to a higher value (in this case 1.5).
The measured height is too large and multiplying that by 1 / access.GetUserFontScale makes it smaller but the value is still too high.

This is the code I have to measure the text height of the BBCodeView:

Code: Copy 
Public Sub MeasureTextHeightBBCodeView(vParent As B4XView, _
                                       strCodeText As String, _
                                       iWidth As Int, _
                                       fTextSize2 As Float, _
                                       arrPadding() As Int) As Int
                                      
    'Note fTextSize is not used in this Sub
   
    Dim iMaxDialogHeight As Int = vParent.Height - 144dip
    Dim TextEngine As BCTextEngine
    Dim iContentHeight As Int
    Dim rectPadding As B4XRect
   
    Log(strCodeText)
   
    '-----------------------------------------------------------------------------------------
    'note that is the same layout that will be used to show the actual final text
    'it will be removed first after getting the content height and will then be reloaded later
    '-----------------------------------------------------------------------------------------
    vParent.LoadLayout("Dialog_bcte")
   
    'bbcvPrompt is private module level variable (in B4XMainPage)
    bbcvPrompt.mBase.Width = iWidth
   
    TextEngine.Initialize(vParent)
    bbcvPrompt.TextEngine = TextEngine
   
    rectPadding.Initialize(arrPadding(0), arrPadding(1), arrPadding(2), arrPadding(3))
    bbcvPrompt.Padding = rectPadding
    bbcvPrompt.LazyLoading = True 'but already set so in the designer
   
    bbcvPrompt.Text = strCodeText
   
    If bbcvPrompt.Paragraph.IsInitialized Then
        iContentHeight = bbcvPrompt.Paragraph.Height / TextEngine.mScale + bbcvPrompt.Padding.Top + bbcvPrompt.Padding.Bottom' + iDoubleLineBreaks * fTextSize
    End If
   
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Paragraph.Height: " & bbcvPrompt.Paragraph.Height)
    Log("MeasureTextHeightBBCodeView, TextEngine.mScale: " & TextEngine.mScale)
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Top: " & bbcvPrompt.Padding.Top)
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Bottom: " & bbcvPrompt.Padding.Bottom)
    Log("MeasureTextHeightBBCodeView, iContentHeight: " & iContentHeight)
   
    bbcvPrompt.Paragraph.TextLines.Clear '?clear memory
   
    'all these are on the layout dialog_bcte and will need removing
    imgIcon.RemoveViewFromParent
    bbcvPrompt.mBase.RemoveViewFromParent
    lblTitle.RemoveViewFromParent
    edtInput.RemoveViewFromParent
   
    Private bbcvPrompt As BBCodeView '?clear memory, not sure what difference there is to declare here with Dim or Private
   
    'Log("MeasureTextHeightBBCodeView, iContentHeight: " & iContentHeight)
   
    If iContentHeight > iMaxDialogHeight Then
        iContentHeight = iMaxDialogHeight
    End If
   
    Return iContentHeight
   
End Sub

This is the code text I am testing with, with the produced log values.

Code: Copy 
[Span MinWidth=40%x][color=#000000]Max Memory[/color][/Span][Span MinWidth=59%x][color=#000000]256 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Total Free[/color][/Span][Span MinWidth=59%x][color=#000000]241.7 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Total Memory[/color][/Span][Span MinWidth=59%x][color=#000000]28.5 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Used Memory[/color][/Span][Span MinWidth=59%x][color=#000000]14.3 Mb[/color][/Span]
[Span MinWidth=40%x][color=#000000]Free Memory[/color][/Span][Span MinWidth=59%x][color=#000000]14.2 Mb[/color][/Span]

MeasureTextHeightBBCodeView, bbcvPrompt.Paragraph.Height: 740
MeasureTextHeightBBCodeView, TextEngine.mScale: 1
MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Top: 18
MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Bottom: 18
MeasureTextHeightBBCodeView, iContentHeight: 776

Any idea what I may be doing wrong?

RBS
Click to expand...
Forgot to say that the right value produced should be about 340.

RBS
 
Upvote 0
RB Smissaert said:
Forgot to say that the right value produced should be about 340.

RBS
Click to expand...
I think I have fixed this, it was missing:

Code: Copy 
    bbcvPrompt.ParseData.DefaultFont = xui.CreateDefaultFont(fTextSize2)

Code: Copy 
Public Sub MeasureTextHeightBBCodeView(vParent As B4XView, _
                                       strCodeText As String, _
                                       iWidth As Int, _
                                       fTextSize2 As Float, _
                                       arrPadding() As Int) As Int
                                       
    'Note fTextSize is not used in this Sub
    
    Dim iMaxDialogHeight As Int = vParent.Height - 144dip
    Dim TextEngine As BCTextEngine
    Dim iContentHeight As Int
    Dim rectPadding As B4XRect
    
    Log(strCodeText)
    
    Log("fTextSize2: " & fTextSize2)
    
    '-----------------------------------------------------------------------------------------
    'note that is the same layout that will be used to show the actual final text
    'it will be removed first after getting the content height and will then be reloaded later
    '-----------------------------------------------------------------------------------------
    vParent.LoadLayout("Dialog_bcte")
    
    'bbcvPrompt is private module level variable (in B4XMainPage)
    bbcvPrompt.mBase.Width = iWidth
    
    TextEngine.Initialize(vParent)
    bbcvPrompt.TextEngine = TextEngine
    
    rectPadding.Initialize(arrPadding(0), arrPadding(1), arrPadding(2), arrPadding(3))
    bbcvPrompt.Padding = rectPadding
    bbcvPrompt.LazyLoading = True 'but already set so in the designer
    bbcvPrompt.ParseData.DefaultFont = xui.CreateDefaultFont(fTextSize2)
    
    bbcvPrompt.Text = strCodeText
    
    If bbcvPrompt.Paragraph.IsInitialized Then
        iContentHeight = bbcvPrompt.Paragraph.Height / TextEngine.mScale + bbcvPrompt.Padding.Top + bbcvPrompt.Padding.Bottom' + iDoubleLineBreaks * fTextSize
    End If
    
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Paragraph.Height: " & bbcvPrompt.Paragraph.Height)
    Log("MeasureTextHeightBBCodeView, TextEngine.mScale: " & TextEngine.mScale)
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Top: " & bbcvPrompt.Padding.Top)
    Log("MeasureTextHeightBBCodeView, bbcvPrompt.Padding.Bottom: " & bbcvPrompt.Padding.Bottom)
    Log("MeasureTextHeightBBCodeView, iContentHeight: " & iContentHeight)
    
    bbcvPrompt.Paragraph.TextLines.Clear '?clear memory
    
    'all these are on the layout dialog_bcte and will need removing
    imgIcon.RemoveViewFromParent
    bbcvPrompt.mBase.RemoveViewFromParent
    lblTitle.RemoveViewFromParent
    edtInput.RemoveViewFromParent
    
    Private bbcvPrompt As BBCodeView '?clear memory, not sure what difference there is to declare here with Dim or Private
    
    'Log("MeasureTextHeightBBCodeView, iContentHeight: " & iContentHeight)
    
    If iContentHeight > iMaxDialogHeight Then
        iContentHeight = iMaxDialogHeight
    End If
    
    Return iContentHeight
    
End Sub

RBS
 
Upvote 0
You must log in or register to reply here.

Similar Threads

William Lancee
Bug? Uneven line spacing inside BBCodeView paragraph (No Bug - My Error)
Replies
1
Views
2K
William Lancee
William Lancee
William Lancee
  • Article Article
Android Code Snippet [B4X]Index ScrollTo Heights in BBCodeView - Marked Sections & Words Occurrences
Replies
0
Views
3K
William Lancee
William Lancee
Addo
  • Solved
Android Question can i use MeasureMultilineTextHeight with BBcodeView ?
Replies
1
Views
2K
Erel
Erel
Toky Olivier
  • Question Question
Android Question [Solved] Center vertically text in BBCodeView
Replies
6
Views
6K
Erel
Erel
Erel
  • Locked
  • Article Article
B4A Library [B4X] BCTextEngine / BBCodeView - Text engine + BBCode parser + Rich Text View
7 8 9
Replies
166
Views
160K
Erel
Erel
Back
Top