LoadFromFile для Rich

MyBusiness

Коллеги! Подскажите, как реализовать LoadFromFile для Rich в репорте?
в memo - [filenamertf] - результат - содержимое этого RTF- файла. Помогите плиз!

Vano

Надо дописывать fr_rich.pas ...

MyBusiness

Vano написал:

Надо дописывать fr_rich.pas ...

Что-то я не вполне догнал. Дописал процедуру, - не работает. Можно как-то проблему решить используя LoadFromStream? Или на пальцах объясните что и где дописать в fr_rich ... Надо.

Vano

Слышь, ты уже определись что ты хочешь использовать - или LoadFromFile или LoadFromStream )

Я например делаю так:
перед самым запуском отчёта записываю с переменную содержимое файла - FileBody например.

Ну ессно кое что придётся дописать в FR_Rich:

procedure TfrRichView.SetPropValue(Index: String; Value: Variant);
var Stream: TStringStream;
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
    Stream:=TStringStream.Create(Value);
    RichEdit.Lines.LoadFromStream(Stream);
    Stream.Free;
   end;
end;

В отчёте делаешь так:

begin
 Rich1.Memo:=FileBody;
end;

MyBusiness

Vano, спасибо, дарагой!
Небольшая модификация

 begin
//  Stream:=TStringStream.Create(Value);
  RichEdit.Lines.LoadFromFile(Value);
//  Stream.Free;
 end;

и все заработало.

в отчете делаю  Rich1.Memo:=[rtffilename];