Source position: msegui.pas line 1605
type afterfacepainteventty = procedure(
const sender: tcustomface;
const canvas: tcanvas;
const arect: rectty
) of object;