... y no será que debes de usar el evento OnDrawColumnCell del DBGrid en vez del evento OnDrawCell ?? ;)

Casi todos cometemos a veces ese tipo de errores, nos empecinamos en arreglar algo y resulta que el problema estaba en otro lado.

Hola.

Estuve viendo el código de roman, y funciona perfectamente. Tanto en el evento OnDrawColumnCell como en OnDrawDataCell.
Sólo tuve que cambiar un cast: TExDBGrid(DBGrid1) por TStringGrid(DBGrid1) por que desconozco el tipo TExtDBGrid.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Odd(Rect.Top div (TStringGrid(DBGrid1).DefaultRowHeight + Integer(dgRowLines in DBGrid1.Options))) then
    DBGrid1.Canvas.Brush.Color:= clMoneyGreen
  else
    DBGrid1.Canvas.Brush.Color:= clCream;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

Muy interesante, no conocía esa forma de obtener la fila... ;)

Saludos. :)

El tipo está declarado en el mismo código que puse.

// Saludos

Tenés razón... Lo que demuestra que se puede mirar sin ver... :D

Saludos. :)

Hola Gluglu, en evento utilizado es en onDrawDataCell y tambien lo probe en OnDrawColumnCell y aún así no funciona

Lo otro, es que el codigo que dejó Neftali, lo revisé varias veces y esta identico.. incluso si compilo el ejemplo de él funciona super...

Este es el codigo que utiliza Neftali

Código Delphi [-]
procedure TFormMain.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  num:Integer;
begin
  // FILAS ALTERNADAS....
  num := ClientDataSet1.RecNo;
  if ((num mod 2) = 0) then begin
    DBGrid1.Canvas.Brush.Color := ColorBox1.Selected;
  end
  else begin
    DBGrid1.Canvas.Brush.Color := ColorBox2.Selected;
  end;

  DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Este es el código que inserté yo...

Código Delphi [-]
procedure TTarjetas.DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  num : Integer;
begin
     num := Datos.AQ_AbonosVendidos.RecNo;
//     num := DBGrid2.DataSource.DataSet.RecNo;
     if ((num mod 2) = 0) then begin
        DBGrid2.Canvas.Brush.Color := clMoneyGreen;
        end
     else begin
          DBGrid2.Canvas.Brush.Color := clWindow;
     end;

    DBGrid2.DefaultDrawDataCell(Rect, Field, State);
end;

La estoy trabajando sobre SQL Server 2005 y desde Delphi 7. El Recno funciona super... por que puse un mensaje en donde me desplegará la cantidad que tenia...

Estoy utilizando un Ado_Query

Código Delphi [-]
num := Datos.AQ_AbonosVendidos.RecNo;
num := DBGrid2.DataSource.DataSet.RecNo;

Si utilizo cualquier de estas sentencias para obtener el Num... me entregan el mismo valor...

Igual estoy tratando de jugar por si hay algo que no quiere funcionar.. como el color u otra cosa...

Tambien comparé diferencia entre los DBGrid del ejemplo de Neftali y el que utilizo yo... y esta todo casi igual...

seguiré tratando

Salu2:p:D

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:p:D

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:p:D

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. :)

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

Probe con tu codigo y si me funciono super.... Salu2:D:p

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:p:D