Color fila actual dbgrid

[Facu]

Hola queridos amigos, una vez más los saludo cordialmente.
He leido varios hilos, y no encuentro una respuesta que me satisfaga.


Tengo una base de datos en access cargada ya con muchos registros son mas de 6000
Lo muestro en un DbGrid y debajo de este hay un Edit con el cual voy filtrando por un campo para ir buscando un registro que me interese.
Hasta acá todo va bien.
El problema es el siguiente:
Quiero que la fila actual de mi DBGrid (este o no filtrada la tabla) sea de otro color, y yo moverme con las flechitas y que donde estoy posicionado
vaya cambiando a ese color, resaltando el registro donde estoy parado en el DBgrid.
Ojalá alguien me pueda ayudar.

Muchas gracias de antemano

[ecfisa]

Hola Facu.

Si no te entiendo mal, basta con que pongas la propiedad dgRowSelect en True para lograr que la fila actual esté en color diferente.

Te pongo un ejemplo sencillo que te permitirá cambiar el color de la selección. Agrega un TColorDialog y un TButton para llamar a la elección del color.

Código Delphi [-]
var
  RowColor: TColor;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // dgRowSelect configurable desde el Object Inspector
  DBGrid1.Options:= DBGrid1.Options+[dgRowSelect];
  RowColor:= clMenuHighlight;
end;

(* Pintar la fila *)
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then
  begin
    DBGrid1.Canvas.Brush.Color:= RowColor;
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

(* cambiar el color *)
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    RowColor:= ColorDialog1.Color;
    DBGrid1.Invalidate;
  end;
end;

Saludos.

Edito: Aunque creo que arriba está mencionado, para evitar confusiones: Sólo con poner la propiedad dgRowSelected en True se pintará la fila seleccionada, el resto es para ejemplificar el cambio de color.

[Facu]

Empezado por ecfisa

Hola Facu.

Si no te entiendo mal, basta con que pongas la propiedad dgRowSelect en True para lograr que la fila actual esté en color diferente.

Te pongo un ejemplo sencillo que te permitirá cambiar el color de la selección. Agrega un TColorDialog y un TButton para llamar a la elección del color.

Código Delphi [-]
var
  RowColor: TColor;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // dgRowSelect configurable desde el Object Inspector
  DBGrid1.Options:= DBGrid1.Options+[dgRowSelect];
  RowColor:= clMenuHighlight;
end;

(* Pintar la fila *)
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in State then
  begin
    DBGrid1.Canvas.Brush.Color:= RowColor;
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

(* cambiar el color *)
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    RowColor:= ColorDialog1.Color;
    DBGrid1.Invalidate;
  end;
end;

Saludos.

Edito: Aunque creo que arriba está mencionado, para evitar confusiones: Sólo con poner la propiedad dgRowSelected en True se pintará la fila seleccionada, el resto es para ejemplificar el cambio de color.

Si, me di cuenta porque solo utilize las primeras 2 líneas, de todos modos tu explicación fué fantástica.
Agradezco tu tiempo, como algo tan simple puede dar un detalle de "calidad" en una búsqueda de de registros no?

De verdad muchas gracias