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