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

Комментарии

• gpi

  August 2007 отредактировано 03:56

  Rich1.RichEdit.Lines.Text
• chuchundr

  August 2007 отредактировано 03:56

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

  August 2007 отредактировано 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"
  

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

  August 2007 отредактировано 03:56

  не помогло.
  Русские буквы появились, но ведь хотелось получить что-то вроде
  
  {\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

  August 2007 отредактировано 03:56

  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

  August 2007 отредактировано 03:56

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