Как вызвать из скрипта окно редактора для Tfrxrichview?

отредактировано August 2007 Раздел: FastReport Studio
Как вызвать из скрипта окно редактора для tfrxRichView?
Или каким-то образом получить доступ к RTF тексту? (что то типа string s:=Rich.RichText.Lines.RTF )

Комментарии

  • gpigpi
    отредактировано 09:39
    Rich1.RichEdit.Lines.Text
  • отредактировано 09:39
    Если бы!
    вместо какого либо приемлемого значения получается
    "???? ???????? ?????? ????????
    ?????? ???????? ???????
    ?????????? ???? ?????
    ????????? ?????????"
  • gpigpi
    отредактировано August 2007
    Это происходит в XP?
    Запишите нижеследующие строки в cp.reg и выполните
    Windows Registry Editor Version 5.00 
    
    [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage] 
    @="c_1251.nls" 
    "1250"="c_1251.nls" 
    "1252"="c_1251.nls"
    
    Возможно, потребуется перезагрузка компьютера
  • отредактировано 09:39
    не помогло.
    Русские буквы появились, но ведь хотелось получить что-то вроде

    {\rtf1\ansi\deff0\adeflang1025
    {\fonttbl{\f0\froman\fprq2\fcharset204 Times New Roman;}{\f1\froman\fprq2\fcharset204 Times New Roman;}{\f2\fswiss\fprq2\fcharset204 Arial;}{\f3\fswiss\fprq0\fcharset204 MS Sans Serif;}{\f4\fnil\fprq2\fcharset204 Lucida Sans Unicode;}{\f5\fnil\fprq2\fcharset204 Tahoma;}{\f6\fnil\fprq0\fcharset204 Tahoma;}}
    {\colortbl;\red0\green0\blue0;\red128\green128\blue128;}
    {\stylesheet{\s1\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\af5\afs24\lang255\ltrch\dbch\af4\langfe255\hich\f0\fs24\lang1049\loch\f0\fs24\lang1049\snext1 Normal;}
    {\s2\sb240\sa120\keepn\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\afs28\lang255\ltrch\dbch\langfe255\hich\f2\fs28\lang1049\loch\f2\fs28\lang1049\sbasedon1\snext3 Title;}
    {\s3\sa120\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\af5\afs24\lang255\ltrch\dbch\af4\langfe255\hich\f0\fs24\lang1049\loch\f0\fs24\lang1049\sbasedon1\snext3 Body Text;}
    {\s4\sa120\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\af6\afs24\lang255\ltrch\dbch\af4\langfe255\hich\f0\fs24\lang1049\loch\f0\fs24\lang1049\sbasedon3\snext4 List;}
    {\s5\sb120\sa120\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\af6\afs24\lang255\ai\ltrch\dbch\af4\langfe255\hich\f0\fs24\lang1049\i\loch\f0\fs24\lang1049\i\sbasedon1\snext5 caption;}
    {\s6\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\af6\afs24\lang255\ltrch\dbch\af4\langfe255\hich\f0\fs24\lang1049\loch\f0\fs24\lang1049\sbasedon1\snext6 Index;}
    }
    {\info{\creatim\yr2007\mo8\dy8\hr8\min22}{\revtim\yr1601\mo1\dy1\hr0\min0}{\printim\yr1601\mo1\dy1\hr0\min0}{\comment StarWriter}{\vern6800}}\deftab709
    {\*\pgdsctbl
    {\pgdsc0\pgdscuse195\pgwsxn11905\pghsxn16837\marglsxn1134\margrsxn1134\margtsxn1134\margbsxn1134\pgdscnxt0 Standard;}}
    \paperh16837\paperw11905\margl1134\margr1134\margt1134\margb1134\sectd\sbknone\pgwsxn11905\pghsxn16837\marglsxn1134\margrsxn1134\margtsxn1134\margbsxn1134\ftnbj\ftnstart1\ftnrstcont\ftnnar\aenddoc\aftnrstcont\aftnstart1\aftnnrlc
    \pard\plain \ltrpar\s1\cf0{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax0}\rtlch\af5\afs24\lang255\ltrch\dbch\af4\langfe255\hich\f0\fs24\lang1049\loch\f0\fs24\lang1049{\rtlch \ltrch\loch\f3\fs16\lang1049\i0\b\b\fs16\f3 \'ce\'e4\'e8\'ed \'ec\'e8\'eb\'eb\'e8\'e0\'f0\'e4 {\i \'e4\'e2\'e5\'f1\'f2\'e8 \'f2\'f0\'e8\'e4\'f6\'e0\'f2\'fc \'f7\'e5\'f2\'fb\'f0\'e5 \'ec\'e8\'eb\'eb\'e8\'ee\'ed\'e0 \'ef\'ff\'f2\'fc\'f1\'ee\'f2 \'f8\'e5\'f1\'f2\'fc\'e4\'e5\'f1\'ff\'f2 \'f1\'e5\'ec\'fc \'f2\'fb\'f1\'ff\'f7 }{\i0 \'e2\'ee\'f1\'e5\'ec\'fc\'f1\'ee\'f2 \'e4\'e5\'e2\'ff\'ed\'ee\'f1\'f2\'ee}}
    \par }
  • gpigpi
    отредактировано 09:39
    procedure Rich1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
    var st: TMemorystream;                               
    begin
         st:=TMemoryStream.Create;                                        
         Rich1.RichEdit.StreamFormat:=0;
         Rich1.RichEdit.Lines.SaveToStream(st);
         st.Position:=0;
         Memo1.Lines.LoadFromStream(st);
         st.Free;                       
         DialogPage1.ShowModal;                                   
    end;
    
  • отредактировано 09:39
    Спасибо!
    То, что нужно!

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.