как загрузить файл в RICH

chav

Как сделать сайбж
во второй версии дело решалось редактирование функции в fr_rich.pas

А где запилить в 3-й версии?

в скрипте просто писалось Rich1.Memo:=[richfilename]


//Fixed procedure
procedure TfrRichView.SetPropValue(Index: String; Value: Variant);
begin
inherited SetPropValue(Index, Value);
Index := AnsiUpperCase(Index);
if Index = 'TEXTONLY' then
Flags := (Flags and not flTextOnly) or Word(Boolean(Value)) * flTextOnly
else
if Index = 'MEMO' then
begin
try
RichEdit.Lines.LoadFromFile(Value);
except
end;
end;
end;

Andrew_Sh

Вот так работает:

Rich1.RichEdit.Lines.LoadFromFile('c:\FileName.rtf');

chav

Спасибо, пошло на раз!