TProcBeforePaint

type TProcBeforePaint = procedure(

  Sender: TObject;

  var DrawBorders: Boolean;

  var DrawBackground: Boolean;

  var DrawWallPaper: Boolean;

  var DrawCaption: Boolean;

  var DrawGlyph: Boolean

) of object;