Source position: grids.pas line 333
type TOnPrepareCanvasEvent = procedure(
sender: TObject;
aCol: Integer;
aRow: Integer;
aState: TGridDrawState
) of object;