TTGHeaderPaintEvent

type TTGHeaderPaintEvent = procedure(

  Sender: TTGHeader;

  HeaderCanvas: TCanvas;

  Column: TTreeGridColumn;

  const R: TRect;

  Hover: Boolean;

  Pressed: Boolean;

  DropMark: TTGDropMarkMode

) of object;