[Shoni]

Нашла решение своей проблемы.

Код:

procedure TfmChild1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var  holdColor: TColor;
begin
 if (not (gdSelected in State)) then begin
  holdColor := DBGrid1.Canvas.Brush.Color; {ñîõðàíÿåì îðèãèíàëüíûé öâåò}
   if (Column.FieldName = 'Nositel') or (Column.FieldName = 'Artikul')
   or (Column.FieldName = 'DNPSMM')or (Column.FieldName = 'Info')  then
     begin
     DBGrid1.Canvas.Brush.Color := rgb(254, 207, 203);
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color := holdColor;
    end;

Всего-то одну строчку надо было добавить -

Код:

 if (not (gdSelected in State)) then begin

Быть может, кому-нибудь в дальнейшем пригодится