(Resolvido) Não alterar a cor da linha do DBgrid selecionada

[William - TI]

E ai galera estou com mais um probleminha.

Tenho um dbGrid que possui varias cores so que ao selecionar um linha ele fica com a cor selecionada um azul clarinho gostaria que ficase com a cor original.

if (gdSelected in State) then begin

dbgrid.Canvas.Font.Style := Canvas.Font.Style +[fsBold];

dbgrid.Canvas.Font.Color := clblack;

end else begin

este é o codigo que altero a a fonte da linha selecionada.

mais uma vez agradeço vocês pela atenção.

[Jhonas]

Tenho um dbGrid que possui varias cores so que ao selecionar um linha ele fica com a cor selecionada um azul clarinho gostaria que ficase com a cor original.

Willian - TI faça dessa maneira:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
   if gdSelected in State then
   begin
      With (Sender as TDbGrid).Canvas do
      begin
         dbgrid1.Canvas.Font.Style := Canvas.Font.Style +[fsBold];
         dbgrid1.Canvas.Font.Color := clblack;
         Brush.Color := clwhite; // cor original do fundo
         FillRect(Rect);
      end;
   end;
   (Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);

end;

abraço

[William - TI]

Caro Jhonas funcionou perfeitamente.

Mais uma vez

Muito obrigado.