Source position: ecscheme.pas line 91
type TOnPaintBlock = procedure(
Sender: TObject;
ARect: TRect
) of object;