Colorear una fila seleccionada...

[flystar]

Cabe señalara que obviamente los eventos y valores dependen del componente que usen como grid...
yo uso uno DXDBGRID (muy bueno)

El problema de usar campos de una BD es que si es por internet se pone lenta la seleccion y el pintado y el cliente o Jefe buscan rapidez..
a ellos no les importa lo que suframos para lograr sus peticiones.

jjeje

[rgstuamigo]

Bueno ..creo con en éste hilo ya se te ha respondido y dado solucion, ya sea el uno u otro caso.
Saludos...

[roman]

He estado viendo esto un rato y me parece que puede lograrse usando simplemente la propiedad SelectedRows del DBGrid pero poniendo en false la opción dgMultiSelect.

En el evento OnDblClick del DBGrid pondríamos:

Código Delphi [-]
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  DBGrid1.SelectedRows.CurrentRowSelected :=
    not DBGrid1.SelectedRows.CurrentRowSelected;
end;

y en el evento OnDrawColumnCell:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DBGrid1.SelectedRows.CurrentRowSelected then
  begin
    DBGrid1.Canvas.Brush.Color := clGreen;
    DBGrid1.Canvas.Font.Color := clHighlightText;
  end
  else
  begin
    DBGrid1.Canvas.Brush.Color := clWindow;
    DBGrid1.Canvas.Font.Color := clWindowText;
  end;

  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

// Saludos

[ecfisa]

Hola a todos.

Estoy buscando la manera de colorear una fila completa de un dbgrid, estuve buscando y no encontre nada.
El tema es el siguiente, tengo un dbgrid con una serie de informacion ahora cuando hago dbl click en una fila determinada que puede ser cualquiera ahi recien se tiene que colorear la misma, se puede hacer esto de alguna manera?

Si, el valor del campo calculado se pierde, tiene la función de una bandera.

Pero según expone flystar en el texto mencionado; sólo quiere que la fila seleccionada se coloree cuando haga doble click sobre ella.

En ningún momento entendí que quisiera utilizar el valor del campo extra para algún fin.
Y utilizando el campo calculado se evita "ensuciar" la tabla original.

De todos modos parece que era lo que andaba buscando...

Neftalí: No cometiste un error, fuí yo que hice una libre interpretación del texto...
Casimiro: Probé el ejemplo sin problemas asignando el valor al campo calculado.


Saludos.

[ecfisa]

Hola.

Donde dice:

Casimiro: Probé el ejemplo sin problemas asignando el valor al campo calculado.

Queria decir:

Roman:Probé el ejemplo sin problemas, asignando el valor al campo calculado.

Era tarde y andaba con la red neuronal en corto...

Román: Tu código también funciona, la diferencia es que deja seleccionadas las filas donde se hizo doble click, no digo con esto que esté mál. Ambos comportamientos pueden ser deseados.

Saludos y perdón por la confusión.

[[BlueSteel]]

Hola

Estaba revisando esto, y necesito hacer algo parecido, solo debo pintarla, el otro problema es que el foco no lo tengo asignado al DBGrid...

Mi consulta es si le asigno el campo calculado al DBGrid (esto no lo he probado.. asi que ahora le meteré manos...)y sin asignación de focus, este me lo pintará....

Salu2...

se me olvidaba... para seleccionar la fila, lo hago en el Query que esta asignado al DBGrid, de la siguiente forma

Código Delphi [-]
Datos.AQ_IngresoGral.Locate('Tar_CodigoBarra',StrToInt(sFol.Text),[]);

[ecfisa]

Hola BlueSteel.

Si te entendí bién, este código debería hacer lo que buscas. Lo asigné al evento OnClick de un TButton, pero vos podés ponerlo en el evento
que te convenga para el caso.
Hice en el DataSet un campo calculado que bauticé: Q_IngresoGralPintarGrid (en honor al DataSet) y usé el editor de columnas del DBGrid
para evitar visualizarlo. Un TEdit recibe el dato que se le pasará al Locate en el evento OnClick del TButton.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if AQ_IngresoGralPintarGrid.Value then
  begin
    DBGrid1.Canvas.brush.Color:= clBlue;
    DBGrid1.Canvas.Font.Color:= clWhite;
  end
  else
  begin
    DBGrid1.Canvas.Brush.Color:= clWindow;
    DBGrid1.Canvas.Font.Color:= clBlack;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  AQ_IngresoGral.Locate('NOMBRE', Edit1.Text, []);
  AQ_IngresoGral.Edit;
  AQ_IngresoGralPintarGrid.Value:= True;
end;

El código deja pintada la fila en que te ubicaste con Locate hasta que realices un nuevo posicionamiento, sin que haya necesidad de darle
el foco al TDBGrid.

Un saludo.