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