Colorear una fila seleccionada...

[ecfisa]

Hola flystar, Neftalí se refiere a hagas lo siguiente:

. Crees un campo calculado "tbPintar" por Ej. y pongas la propiedad del DBGrid: Options -> dgRowSelect igual a True.

. En el evento OnDblClick Pones a True tbPintar. (1)

. Pintas en el evento OnDrawColumnCell. (2)

(1)

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  tb.Edit;
  tbPintar.Value:= True;
end;

(2)

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if gdSelected in State then
     with DBGrid1 do
     begin
       if tbPintar.Value then  // color azul, fondo blanco
       begin
         Canvas.brush.Color:= clBlue;
         Canvas.Font.Color:= clWhite;
       end
       else                    // color por defecto del DBGrid
       begin
         Canvas.Brush.Color:= clWindow;
         Canvas.Font.Color:= clBlack;
       end;
       DefaultDrawColumnCell(Rect, DataCol, Column, State); // pintar
     end;
end;

Saludos.

[flystar]

Muchas Gracias por la respuesta, es una excelente slución!

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

// Saludos

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