DBGrid1DrawColumnCell if (Rect.Top = TStringGrid(DBGrid1).CellRect(TStringGrid(DBGrid1).col,TStringGrid(DBGrid1).row).top) and (not (gdFocused in State)) then Dbgrid1.Canvas.Brush.Color := clRed; DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
Dbgrid1.Canvas.Brush.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);