TppRichText Component

tommyd · November 2

Is there a way to get the contents (Lines) of a TppRichText component only on the current printing page at runtime? The TppRichText component spans multiple pages and I want to be able to retrieve only the contents of each page as it is rendered. I'm using Delphi 13 and RB Version 23.02 Build 288.

nicocizik · November 3

Hi Tommy,

Try using an event that fires after the RichText has printed (overflowed) such as the OnEndPage. This is to ensure the CalcSpaceUsed routine has been executed and the first and last character have been defined for the given page.

From there you can use the SelStart and SelLength to extract the text as needed.

For instance:

procedure TForm2.ppReport1EndPage(Sender: TObject);
begin
  ppRichText1.SelStart := ppRichText1.StartCharPos;
  ppRichText1.SelLength := ppRichText1.EndCharPos - ppRichText1.StartCharPos;

  ShowMessage(ppRichText1.SelText);
end;

tommyd · November 3

Hi Nico,

Using your suggestion I was able to use the ppDetailBand AfterPrint event to get the results that I needed.

Thank you, very much, for your help and support.

Best Regards,

Tommy

TppRichText Component

Comments