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
if not PVentaCheck then
if (Column.Index = 3)and (gdSelected in State)then begin
gridFac.Canvas.Font.Color := clBlack;
gridFac.Canvas.Brush.Color := clSilver;
gridFac.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;
end;