Source position: treegrids.pas line 2109
type TTGGetCursorEvent = procedure(
Sender: TBaseTreeGrid;
var Cursor: TCursor
) of object;