ImageEn, unit imageenview
TIEOnDrawCanvas
Declaration
TIEOnDrawCanvas = procedure(Sender: TObject; ACanvas: TCanvas; ARect: TRect) of object;