How to save RTF enrichments from a TextArea?

General
1

Hello,
I load an RTF file into a TextArea (code below) and then I want to save the changes. How do I keep the enrichments?

textInput = TextInputStream.Open(file)
fileContent = textInput.ReadAll
textInput.Close

Dim rtfData As New MemoryBlock(Len(fileContent))
rtfData.StringValue(0, Len(fileContent)) = fileContent

// Assign RTFData to StyledText of TextArea
Dim styledText As New StyledText
styledText.RTFData = rtfData
Window1.TextAreaCover.StyledText = styledText

Thanks
Dan

2

Go to the documentation,Seach for RTFData and read the shared example code.

Is this what you want ?