Pues yo para pintar la fila que tiene actualmente el foco lo hago así:
Código Delphi
[-]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) then begin
(Sender as TDBGrid).Canvas.Brush.Color:=clBlack; (Sender as TDBGrid).Canvas.Font.Color:=clRed; end
end;
Espero sea de ayuda....
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
Saludos...
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7