Procedure TWPCustomRtfEdit.DoChangeZooming(Sender:TObject)Unit: WPCTRMemoClass: WPCTRMemo.TWPCustomRtfEditParameters Sender:TObject