Inserting RTF code to show up as RTF formatted text in RichEdit Field

[Gintaras]

Macro Macro3028

Code:

Copy      Help

str rtf = "{\rtf1 \ansi \deff0 {\fonttbl {\f0 Monotype Corsiva;}} \qc \f0 \fs120 \i \b Hello,\line World!}"
int w=win("Document - WordPad" "WordPadClass")
int c=  id(59648 w) ;;editable text 'Rich Text Window'

__ProcessMemory m.Alloc(c rtf.len+100)

SETTEXTEX t
m.Write(&t sizeof(t))
m.WriteStr(rtf sizeof(t))
byte* p=m.address
SendMessageW(c EM_SETTEXTEX p p+sizeof(t))