oGet:GetString gives an error
oGet:GetText gives the text without the RichEdit codes (bold, Italic...)
This is my code:
Code: Select all
cTekst := {\rtf1\ansi\ansicpg1200\deff0\deflang1043{\fonttbl{\f0\fnil\fcharset0 TIMES NEW ROMAN;}}
{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\f0\fs24 Bij deze fraaie plant is het jonge blad roze gekleurt. Later verkleurt dit blad naar groen met een cr\'e8mewitte rand. De jonge takken zijn opvallend rood gekleurt, wat goed contrasteerd met het fris gekleurde blad.\par
}
FUNCTION RK_EditRichNotes(cTekst)
LOCAL oDlg, cText := ''
LOCAL oGet
DEFINE DIALOG oDlg TITLE 'Aantekening' FROM 0, 0 TO 500, 600
@ 35, 20 GET oget VAR cText MEMO OF oDlg ;
SIZE 560, 460
oGet:SetRichText(.t.)
oGet:SetImportGraf(.t.)
oGet:AddHRuler()
oGet:SetUndo(.t.)
cText := cTekst
oGet:SetAttributedString(cText)
oGet:GoTop()
@ 5, 500 BUTTON 'Ok' OF oDlg ACTION (cText := oGet:GetText, oDlg:END())
ACTIVATE DIALOG oDlg CENTERED
MsgInfo(ctext)
RETURN NIL
