Source position: gisgrids.pas line 309
type TOnSelectCellEvent = procedure(
Sender: TObject;
aCol: Integer;
aRow: Integer;
var CanSelect: Boolean
) of object;