Source position: cyBaseLabel.pas line 54
type TProcBeforePaint = procedure(
Sender: TObject;
var DrawBorders: Boolean;
var DrawBackground: Boolean;
var DrawCaption: Boolean
) of object;