how to load text in richobject from delphi

Comments

• kaju74

  October 2004 edited October 2004

  yep - but due of the (damn) complexity of richtext data, the easiest way to do this is loading the rtf text into a (memory)stream and assign it to the fast report object.
• coolman_kk

  October 2004 edited 1:59AM

  Can u give me example?
  Thanks.
• kaju74

  October 2004 edited 1:59AM

  Something like this:
  

  procedure TForm1.btn1Click(Sender: TObject);
  var
    RichView: TfrxRichView;
    Stream: TMemoryStream;
    Str: string;
  begin
    RichView := TfrxRichView(frxReport1.FindObject('Rich1'));
    if RichView = nil then
      Exit;
    Stream := TMemoryStream.Create;
    try
      Stream.LoadFromFile('Your.rtf');
      SetLength(Str, Stream.Size);
      Stream.Read(Str[1], Stream.Size);
      RichView.RichEdit.Text := Str;
    finally // wrap up
      Stream.Free;
    end;    // try/finally
    if frxReport1.PrepareReport then
      frxReport1.ShowPreparedReport;
  end;
  
• coolman_kk

  October 2004 edited 1:59AM

  Great.... Thank u very much....
  
  Now I have problem with FastReport maybe is BUG. When load text in RichText object, text show out of range of page. Please see a picture.
• AlexTZ

  October 2004 edited 1:59AM

  You should probably set the Stretched property of Rich and its band, also AllowSplit for the band.
• standus

  January 2006 edited 1:59AM

  I tried this and it is working well:
  
  ((TfrxMemoView*)frxReport1->FindObject("Memo1"))->Text = "Hello World";
  ((TfrxRichView*)frxReport1->FindObject("Rich1"))->RichEdit->Text = "Hello World";