PaintPageTextHeight property

Applies to
TWPRTFEnginePaint

Declaration
property PaintPageTextHeight[index:Integer]: Integer;

Description
Height of the printed area on the page, starting with PaintPageTopMargin! The value is measured in screen pixels.
This code, used inside of the event OnPaintWatermark, will cross out the empty space on the last page:
  if RTFPageNr=WPRichText1.PageCount then
  begin
     toCanvas.Pen.Style := psSolid;
     toCanvas.Pen.Width := MulDiv(15,XRes,1440);
     toCanvas.Pen.Color := clBlack;
     toCanvas.MoveTo(PageRect.Left, PageRect.Top +
       MulDiv(WPRichText1.Memo.PaintPageTextHeight[PaintPageNr]+
       WPRichText1.Memo.PaintPageTopMargin[PaintPageNr],
          YRes, WPScreenPixelsPerInch)
        );
     toCanvas.LineTo(PageRect.Right, PageRect.Bottom-
     MulDiv( WPRichText1.Memo.PaintPageBottomMargin[PaintPageNr],
          YRes, WPScreenPixelsPerInch)
     );
  end;

Copyright (C) by WPCUBED GmbH - Munich
http://www.wpcubed.com