Source position: dbgrids.pas line 114
type TPrepareDbGridCanvasEvent = procedure(
sender: TObject;
DataCol: Integer;
Column: TColumn;
AState: TGridDrawState
) of object;