Color en Fila dbgrid

[MITOPE]

Hola amigos:

Como puedo hacer para que la fila seleccionada en un dbgrid cambie de color

Gracias...

[Onti]

Dale una mirada a este hilo: http://www.clubdelphi.com/foros/showthread.php?t=5455

[MITOPE]

Empezado por Onti

Dale una mirada a este hilo: http://www.clubdelphi.com/foros/showthread.php?t=5455

Esta bien con lo que dice ese hilo puedo pintar bajo una condicion , yo solo quiero pintar la fila seleccionada y conforme la recorra se vaya pintando la nueva fila y volviendo al color normal la anterior..

[roman]

El hilo al que te refieres meciona como pintar una fila independientemente de condición o no. De ahí pasar a pintar una fila en otro tipo de situaciones no debe presentar mayores problemas.

Ahora bien, ¿a qué te refieres con "fila nueva"?

// Saludos

[JavierB]

Hola, MITOPE.

Prueba este código a ver si te sirve

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,