Otra vez color de fila de un DBGRID?

[JavierB]

Hola.

Tenía por ahí este código que podría servir:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Num: Integer;
  R: TRect;
begin
  Num:=TStringGrid(DBGrid1).Row;
  R:=TStringGrid(DBGrid1).CellRect(DataCol,Num);
  if R.Top=Rect.Top then
    with DBGrid1 do
    begin
      if (gdFocused in State) then
        Canvas.Font.Color:=clWhite
      else
        Canvas.Font.Color:=clRed;
      Canvas.Font.Style:=[fsBold];
      DefaultDrawColumnCell(Rect,DataCol,Column,State);
    end;
end;

Saludos,

[roman]

Me quedo con el código de JavierB. Sencillo y eficaz.

// Saludos

[pepe2000]

que haríamos sin ustedes maestros !
Muchas gracias y hasta la proxima

[amadis]

¿hay forma de que ese procedimiento funciona al hacer SCROLL con la ruedita del mouse?? Ya que solo marca unicamente la celda activa y no el resto de la fila?

[roman]

No estoy seguro de si tiene algo que ver, pero el DBGrid siempre ha funcionado mal con la dichosa ruedita. Prueba poner la solución expuesta aquí y mira si eso resuelve también este problema.

// Saludos

[amadis]

Buenisimo!

Gracias ahora funciona todo de maravillas!