ImageEn, unit imageenview
TIEOnDrawPolygon
Declaration
TIEOnDrawPolygon = procedure(Sender: TObject; polygon: Integer; point: Integer; Canvas: TCanvas; x, y: Integer) of object;