Source position: treegrids.pas line 2094
type TTGCompareEvent = procedure(
Sender: TBaseTreeGrid;
Node1: PTreeGridNode;
Node2: PTreeGridNode;
Column: TColumnIndex;
var Result: Integer
) of object;