TSRichViewEdit.ZoomRectIn, ZoomRectOut

Returns a scaled rectangle.

function ZoomRectIn(r: TRect; Ratio: Single): TRect;

function ZoomRectOut(r: TRect; Ratio: Single): TRect;

ZoomRectIn returns the rectangle r zoomed in by Ratio.

ZoomRectOut returns the rectangle r zoomed in by 1/Ratio.