Source position: grids.pas line 343
type TOnDrawCell = procedure(
Sender: TObject;
aCol: Integer;
aRow: Integer;
aRect: TRect;
aState: TGridDrawState
) of object;