Colorear una fila seleccionada...

[Neftali [Germán.Estévez]]

Empezado por roman

¿Esto funciona? Lo he probado pero, si bien me permite colorear una fila, al desplazarme a otro registro se pierde el valor del campo calculado.

Bueno, yo creo que el campo debe estar físicamente en la tabla. No creo haber nombrado "campo calculado" en mi comentario y si lo he hecho he cometido un error.

[roman]

Sí, lo sé. La pregunta era más bien para ecfisa, pues me extrañó que pudiera modificarse un campo calculado.

// Saludos

[flystar]

Lo mas adecuado es guardar el valor de la fila seleccionada en una variable global.

luego forzar un Refresh de la tabla y en el evento ondraw
comparar el valor de cierto campo que se esta dibujando con la variable y si es igual entonces se pinta.

Asi no hay tardanza!!!

 filapintada:=ModuloDeDatos.QSeguimientoProspectacion.fieldbyname('idprospecto').asinteger;
 dxdbgrid1.FullRefresh;

   if modulodedatos.QSeguimientoProspectacion.fieldbyname('idprospecto').asinteger=filapintada then
   begin
        Acolor:=clyellow;
        Afont.Color:=Clblack
   end;

[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.