DBGrid (Color de barra de selección)

[*Caro*]

En este momento estaba viendo en la ayuda sobre el gdSelected, muchísimas gracias Roman, me ha funcionado como quería.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then
   begin
     if DBGrid1.Canvas.Brush.Color = $00A4FFFF then
      begin
       DBGrid1.Canvas.Brush.Color := clYellow;
       DBGrid1.Canvas.Font.Style := [fsBold];
      end
     else
      begin
       DBGrid1.Canvas.Brush.Color := $00E7C4B6;
       DBGrid1.Canvas.Font.Color := clBlack;
       DBGrid1.Canvas.Font.Style := [fsBold];
      end;
   end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Saluditos