LoadFromFile для Rich

Комментарии

• Vano

  January 2004 отредактировано 20:24

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

  January 2004 отредактировано 20:24

  Vano написал:

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

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

  January 2004 отредактировано 20:24

  Слышь, ты уже определись что ты хочешь использовать - или 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

  January 2004 отредактировано 20:24

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

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

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

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