ImageEn, unit imageenview
TIEOnDrawBackground
Declaration
TIEOnDrawBackground = procedure(Sender: TObject; ACanvas: TCanvas; ARect: TRect; var Handled: boolean) of object;