[roamer]

Реальный фрагмент :

Код:

procedure TForm1.DBGrid_WellDrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
Var
  Yes : integer;

begin
  Yes :=0;
  with DBGrid_Well.Canvas do
    begin
      if (not (gdFocused in State)) then begin
         if Query_WellITS_DUBIOUS.AsInteger>0 then begin
            Brush.Color:=clYellow;
            Yes :=1;
         end;
         if Yes>0 then begin
            FillRect(Rect);
            DBGrid_Well.DefaultDrawDataCell(Rect, Field, State);
         end;
      end;
  end;
end;