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

chuchundr

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

gpi

Rich1.RichEdit.Lines.Text

chuchundr

Если бы!
вместо какого либо приемлемого значения получается
"???? ???????? ?????? ????????
?????? ???????? ???????
?????????? ???? ?????
????????? ?????????"

gpi

Это происходит в 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"

Возможно, потребуется перезагрузка компьютера

chuchundr

не помогло.
Русские буквы появились, но ведь хотелось получить что-то вроде

{\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 }

gpi

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;

chuchundr

Спасибо!
То, что нужно!