Procedure TWPCustomRichText.DoChangeZooming(Sender:TObject)Unit: WPCTRRichClass: WPCTRRich.TWPCustomRichTextParameters Sender:TObject