ImageEn, unit ieview
TIEZoomEvent
Declaration
TIEZoomEvent = procedure(Sender: TObject; var NewZoom: double) of object;