Android Question Unable to scroll BBCodeView with code

    If tDP.bPrompt Then 'tDP is a type that will have all the needed dialog properties
        
        Dim TextEngine As BCTextEngine
        
        TextEngine.Initialize(Parent) 'Parent will be root of a B4XPage
        bbcvPrompt.TextEngine = TextEngine
        
        'this is needed to show the large error log, otherwise will get error:
        'java.lang.OutOfMemoryError: Failed to allocate a 240055984 byte allocation with 25165824 free bytes
        'and 194MB until OOM, target footprint 89390400, growth limit 268435456
        '---------------------------------------------------------------------------------------------------
        bbcvPrompt.LazyLoading = True 'but already set so in the designer
        
        If tDP.bPromptScroll Then
            bbcvPrompt.mBase.Height = tDP.iPromptHeight
            Log("bbcvPrompt.mBase.Height: " & bbcvPrompt.mBase.Height)  '23820
        Else
            bbcvPrompt.mBase.Height = tDP.iScrollViewHeight
        End If
        
        bbcvPrompt.sv.Height = tDP.iScrollViewHeight
        Log("bbcvPrompt.sv.Height: " & bbcvPrompt.sv.Height) '1311
        bbcvPrompt.mBase.Top = tDP.iPromptTop
        bbcvPrompt.mBase.Width = tDP.iScrollViewWidth 'this is same as tDP.iPromptWidth
        
        Dim rectPadding As B4XRect
        rectPadding.Initialize(arrPromptPadding(0), arrPromptPadding(1), arrPromptPadding(2), arrPromptPadding(3))
        bbcvPrompt.Padding = rectPadding
        
        '------------------------------------------------'
        'This is the way to set the BBCodeView background'
        '------------------------------------------------'
        bbcvPrompt.mBase.Color = iPromptColour
        bbcvPrompt.sv.Color = iPromptColour
        bbcvPrompt.sv.ScrollViewInnerPanel.Color = iPromptColour
        
        If tDP.bcsPrompt Then
            bbcvPrompt.Text = csPrompt 'this won't happen
        Else
            'bbcvPrompt.Text = strPrompt
            Dim rs As ResumableSub = SetBBCodeviewText(strPrompt) 'just for in case the problem was a timing issue
            Wait For (rs) Complete (bResult As Boolean)
            Log("bResult: " & bResult) 'True
        End If
        
        If iScrollPositionY > 0 Then
            Log("iScrollPositionY: " & iScrollPositionY) '8266
            bbcvPrompt.sv.ScrollViewOffsetY = iScrollPositionY
            Log("bbcvPrompt.sv.ScrollViewOffsetY: " & bbcvPrompt.sv.ScrollViewOffsetY) '0 (??)
        End If

Sub SetBBCodeviewText(strText As String) As ResumableSub
    bbcvPrompt.Text = strText
    Return True
End Sub

bbcvPrompt.mBase.Height = tDP.iScrollViewHeight

Sub ConcatenateListItems(lst As List, strSeparator As String, bAddIndex As Boolean, bClickableNumbers As Boolean) As String
    
    Dim i As Int
    Dim strResult As String
    Dim strURLStart As String
    Dim strURLEnd As String
    
    If bClickableNumbers Then
        strURLStart = "[url]"
        strURLEnd = "[/url]"
    End If
    
    If bAddIndex Then
        For i = 0 To lst.Size - 1
            If i = 0 Then
                If bClickableNumbers Then
                    'we need the [Plain] tag as otherwise will get an error with for example showing an error log with: create table ddd([ID] integer >> invalid tag [ID]
                    strResult = strURLStart & (i + 1) & ")  " & strURLEnd & "[Plain]" & lst.Get(i) & "[/Plain]"
                Else
                    strResult = strURLStart & (i + 1) & ")  " & strURLEnd & lst.Get(i)
                End If
            Else
                If bClickableNumbers Then
                    strResult = strResult & strSeparator & strURLStart & (i + 1) & ")  " & strURLEnd & "[Plain]" & lst.Get(i) & "[/Plain]"
                Else
                    strResult = strResult & strSeparator & strURLStart & (i + 1) & ")  " & strURLEnd & lst.Get(i)
                End If
            End If
        Next
    Else
        For i = 0 To lst.Size - 1
            If i = 0 Then
                strResult = lst.Get(i)
            Else
                strResult = strResult & strSeparator & lst.Get(i)
            End If
        Next
    End If
    
    Return strResult
    
End Sub