Pintar una fila entera de un DBGrid y determinar columnas

[cslbcn]

Gracias por responder.
El compilador dice que no reconoce CellRect ni Row

aRect := TDBGrid(Sender).CellRect(DataCol+1,TDBGrid(Sender).Row);

[*Caro*]

Empezado por cslbcn

Gracias por responder.
El compilador dice que no reconoce CellRect ni Row

Hola de nuevo, para que reconozca directamente como lo puse, es importante que desprotejas el DBGrid:

Código Delphi [-]
type
  TDBGrid = class(DBGrids.TDBGrid);

Sino, por lo menos has un Cast a TStringGrid:

Código Delphi [-]
  TStringGrid(TDBGrid(Sender)).Canvas.Font.Color := clWhite;
  TStringGrid(TDBGrid(Sender)).Canvas.Brush.Color := clBlue;
  aRect := TStringGrid(TDBGrid(Sender)).CellRect(DataCol+1,TStringGrid(TDBGrid(Sender)).Row);
  TStringGrid(TDBGrid(Sender)).DefaultDrawColumnCell(aRect,DataCol,Column,State);

Saluditos

[cslbcn]

No funciona bien del todo. Cuando se seleccionan filas de abajo hacia arriba los datos se suben, además que el color azul de la selección se mantiene en cada fila que pincho.
tengo este código hecho... por si sirve de algo

Código Delphi [-]
 if ((DModule1.ADOQuery2.RecNo mod 2) = 0) then
     begin
       if GdSelected in State then
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clActiveCaption;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end
       else
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clWhite;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end;
     end
     else
     begin
       if GdSelected in State then
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clActiveCaption;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end
       else
       begin
         DBGPersonasEmp.Canvas.Brush.Color := clBtnFace;     //         Draw(Rect.Left,Rect.Top, CheckRev.Picture.BitMap);
       end;
     end;

     DBGPersonasEmp.DefaultDrawDataCell(Rect, Column.Field, State);