Source position: treegrids.pas line 1990
type TTGGetNodeProc = procedure(
Sender: TBaseTreeGrid;
Node: PTreeGridNode;
Data: Pointer;
var Abort: Boolean
) of object;