Help: Why does assigning StyledText to a TextArea so slow?

General
2

You should read xDev - was in my Tips&Tricks column :wink:

Public Sub BeginFastEditing(Extends TA As TextArea)
  
  #If TargetCocoa Then
    
    Dim docView As Integer = TA.DocumentView
    ' Dim storage As Integer = TA.TextStorage( docView )
    Dim storage As Integer = TextStorage( docView )
    
    Declare Sub beginEditing Lib "AppKit" Selector "beginEditing" ( obj As Integer )
    beginEditing( storage )
    
  #EndIf
End Sub

and

Public Sub EndFastEditing(Extends TA As TextArea)
  
  #If TargetCocoa Then
    
    Dim docView As Integer = TA.DocumentView
    ' Dim storage As Integer = TA.TextStorage( docView )
    Dim storage As Integer = TextStorage( docView )
    
    Declare Sub endEditing Lib "AppKit" Selector "endEditing" ( obj As Integer )
    endEditing( storage )
    
  #Endif
End Sub

The display updates when you end the fast editing mode

MyTextArea.BeginFastEditing
MyTextArea.StyledText = st // This is no longer unbearably slow
MyTextArea.EndFastEditing
2 Likes