Pintar Fila del DBGrid

[cgomez]

If (gdFocused in State) then
dbgrid2.canvas.brush.color := clRed;
dbgrid2.DefaultDrawColumnCell(rect,DataCol,Column,State)

este codigo debes ingresarlo en
procedure TForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);

y el dgmultiselect en true...ojala te sirva, en este caso las pintara de rojo cuando estes sobre una fila.

[Palmiro]

Gracias por tu ayuda, pero lo soluciones de la siguiente manera....

Código Delphi [-]
procedure TfrmCelulas.GrillaIntDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if (Sender as TDBGrid).Datasource.DataSet.RecNo mod 2 = 0 then
        (Sender as TDBGrid).Canvas.Brush.Color := $00FFF5EC
      else
        (Sender as TDBGrid).Canvas.Brush.Color := $00F5FEFE;
(Sender as TDBGrid).Canvas.Font.Color := clBlack;
 if (Sender as TDBGrid).SelectedRows.CurrentRowSelected then
         begin
          (Sender as TDBGrid).Canvas.Font.Color := clWhite;
          (Sender as TDBGrid).Canvas.Brush.Color := clRed
         end;
(Sender as TDBGrid).DefaultDrawColumnCell(rect,DataCol,Column,State);
end;

Lo que esta en color rojo es lo que agregue para obtener lo deceado.