TJvOutlookBarCustomDrawEvent

type TJvOutlookBarCustomDrawEvent = procedure(

  Sender: TObject;

  ACanvas: TCanvas;

  ARect: TRect;

  AStage: TJvOutlookBarCustomDrawStage;

  AIndex: Integer;

  ADown: Boolean;

  AInside: Boolean;

  var DefaultDraw: Boolean

) of object;