TppRichText Component

tommyd

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

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;