Source position: treegrids.pas line 2087
type TTGAfterCellPaintEvent = procedure(
Sender: TBaseTreeGrid;
TargetCanvas: TCanvas;
Node: PTreeGridNode;
Column: TColumnIndex;
const CellRect: TRect
) of object;