Source position: treegrids.pas line 2020
type TTGHeaderMouseEvent = procedure(
Sender: TTGHeader;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer
) of object;