Source position: msegui.pas line 1602
type beforefacepainteventty = procedure(
const sender: tcustomface;
const canvas: tcanvas;
const arect: rectty;
var handled: Boolean
) of object;