Pintar fila completa en un DBgrid segun un dato

[[BlueSteel]]

Holas

bueno, ahora lo solucione... y lo que tube que realizar es quitar el DBGrid y poner otro... y con eso funciono super...

Creo que un insecto anduvo metiendo sus patas por ahí...

Gracias a todos por colaborar...

Salu2

[[BlueSteel]]

Hola Amigos...

Les cuento que la solucion anteriormente indicada me presenta un problema muy grande (esto es segun yo)...

cuando dejo el DBGrid asignado al DataSet y ejecuto el programa todo va bien.. me pinta las filas y todo...

Ahora, si al DBGrid le pincho 2 veces para abrir el panel donde se configuran las columnas (que sirve para editar que campos poner y en que formato).... el efecto de pintado de fila intermedia desaparece, e incluso al ingresar al programa el formulario se demora un poco en cargar y cuando carga no muestra las filas pintadas...

Existe alguna forma de solucionar esto, ya que me gusta configurar los DBGrid a mi pinta, con las columnas que quiero y con el formato que quiero tambien...

Salu2

[ecfisa]

Hola BlueSteel.

¿ Que acción realizas en el editor de columnas ?

Yo hice una prueba dejando 2 columnas de las 9 que tiene una tabla y me funciona perfectamente en tiempo de ejecución.

Por si te pudiera servir para cotejar, este es el código que use para la prueba:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Odd(DBGrid1.DataSource.DataSet.RecNo) then
    DBGrid1.Canvas.Brush.Color := clMoneyGreen
  else
    DBGrid1.Canvas.Brush.Color := clCream;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Saludos.

[[BlueSteel]]

Empezado por ecfisa

Hola BlueSteel.

¿ Que acción realizas en el editor de columnas ?

Solo eliminar algunos campos... darles formato al contenido y titulo, centrar el contenido, y cosas asi..

Empezado por ecfisa

Yo hice una prueba dejando 2 columnas de las 9 que tiene una tabla y me funciona perfectamente en tiempo de ejecución.

Por si te pudiera servir para cotejar, este es el código que use para la prueba:
Código Delphi [-]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Odd(DBGrid1.DataSource.DataSet.RecNo) then DBGrid1.Canvas.Brush.Color := clMoneyGreen else DBGrid1.Canvas.Brush.Color := clCream; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end;



Saludos.

Probe con tu codigo y si me funciono super.... Salu2

[[BlueSteel]]

Hola...

Tengo una consulta con respecto al color de la letra... lo que pasa es que cuando utilizo el siguiente codigo

Código Delphi [-]
if Odd(DBGrid2.DataSource.DataSet.RecNo) then
     DBGrid2.Canvas.Brush.Color := clMoneyGreen
  else
     DBGrid2.Canvas.Brush.Color := $00D9FDF8;
  DBGrid2.DefaultDrawColumnCell(Rect,DataCol,Column,State);

si bien al color de la fuente le tengo definido el color $00A00000, cuando por codigo cambia el color, le pone color blanco a la fuente, y no se logra distinguir.

quise cambiar el color en el mismo codigo, pero me da un efecto intermitente lo que no se ve muy bien.

Salu2