Source position: grids.pas line 354
type TGridOperationEvent = procedure(
Sender: TObject;
IsColumn: Boolean;
sIndex: Integer;
tIndex: Integer
) of object;