Source position: treegrids.pas line 3775
type TTGGetNodeWidthEvent = procedure(
Sender: TBaseTreeGrid;
HintCanvas: TCanvas;
Node: PTreeGridNode;
Column: TColumnIndex;
var NodeWidth: Integer
) of object;