Property TWPRTFEngineEdit.PaintPageTextHeight[index] : Integer
Unit: WPRTEEdit
Class: WPRTEEdit.TWPRTFEngineEdit
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;