Como Pintar Solo la Celda y No Toda la Columna de la Celda de un dbGrid??

[[RONPABLO]]

Cambia en donde compara el estado el '='por 'in'. mira en el codigo abajo

Código Delphi [-]
procedure TfFacturas.gridFacDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
{ gdSelected
   gdFocused }
  if not PVentaCheck then
    if (Column.Index = 3)and (gdSelected in State)then begin
      //Pintar el Color de la Letra
      gridFac.Canvas.Font.Color := clBlack;   
      //Pintar el Fondo de la Celda
      gridFac.Canvas.Brush.Color := clSilver;
      gridFac.DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;
end;