Source position: treegrids.pas line 3405
type TTGPaintText = procedure(
Sender: TBaseTreeGrid;
const TargetCanvas: TCanvas;
Node: PTreeGridNode;
Column: TColumnIndex;
TextType: TVSTTextType
) of object;