Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > rtf формат открыть

Автор: Михалыч 2.10.2010, 19:20

подскажите,как мне rtf -формат вставить в richedit.
например есть rtf скрипт:

Код


{\rtf1\adeflang1025\ansi\ansicpg1251\uc1\adeff31507\deff0\stshfdbch31506\stshfloch31506\stshfhich31506\stshfbi31507\deflang1049\deflangfe1049\themelang1049\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f34\fbidi \froman\fcharset1\fprq2{\*\panose 02040503050406030204}Cambria Math;}

теперь его нужно вставить в richedit, и что бы он отображался уже форматированным текстом.
пробовал "StreamFormat", не получилось

Может что то не понятно обьяснил,извиняюсь!

Автор: Amphiluke 2.10.2010, 20:44

Надо же, у меня даже вот такой вариант сработал: smile

Код


  RichEdit1.PlainText := True;
  RichEdit1.Text := '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl' +
    '{\f0\froman\fprq2\fcharset0 Book Antiqua;}{\f1\fswiss\fcharset0 Arial;}' +
    '{\f2\fswiss\fcharset204{\*\fname Arial;}Arial CYR;}}'#13#10 +
    '{\colortbl ;\red0\green128\blue0;}'#13#10 +
    '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\qc\lang1033\f0' +
    '\fs20 Hello\f1 , \cf1\i Vingrad\cf0\i0 !\lang1049\f2\par'#13#10'}';
  RichEdit1.PlainText := False;

Автор: Михалыч 2.10.2010, 21:01

Вот так и у меня сработало,Спасибо,и так пойдет!

Код


   rxRichEdit1.StreamFormat:=sfPlainText;
  rxRichEdit1.Text := '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl' +
    '{\f0\froman\fprq2\fcharset0 Book Antiqua;}{\f1\fswiss\fcharset0 Arial;}' +
    '{\f2\fswiss\fcharset204{\*\fname Arial;}Arial CYR;}}'#13#10 +
    '{\colortbl ;\red0\green128\blue0;}'#13#10 +
    '{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\qc\lang1033\f0' +
    '\fs20 Hello\f1 , \cf1\i Vingrad\cf0\i0 !\lang1049\f2\par'#13#10'}';
 rxRichEdit1.StreamFormat:=sfDefault;