Pintar fila completa en un DBgrid segun un dato

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

¿Sobre qué Base de Datos trabajas y con qué componentes estás probando?
Hay componentes que no implementan el Recno y puede ser que te esté devolviendo -1; En ese caso el pintado no funcionaría.
Esta propiedad está pensada para que sea redefinido por los derivados de TDataSet, si los componentes ue usas no la han redefinido no funcionará este código.

[roman]

Hay una forma de pintar alternadamente las filas sin depender del número de registro que consiste en calcular la fila a partir de la posición de la celda que se está dibujando (Rect.Top) y la altura de las filas.

No la he encontrado pero creo que es algo como esto:

Código Delphi [-]
type
  TExDBGrid = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Odd(Rect.Top div (TExDBGrid(DBGrid1).DefaultRowHeight + Integer(dgRowLines in DBGrid1.Options))) then
    DBGrid1.Canvas.Brush.Color := clMoneyGreen;

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

procedure TForm1.MyTable1AfterScroll(DataSet: TDataSet);
begin
  DBGrid1.Refresh;
end;

Creo recordar que era algo más sencillo pues aquí hay que manejar el evento AfterScroll del DataSet que se esté usando. Pero por ahí va la idea.

// Saludos

[[gluglu]]

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

[Casimiro Noteví]

Empezado por gluglu

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

[ecfisa]

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.

[roman]

Empezado por ecfisa

por que desconozco el tipo TExtDBGrid.

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

// Saludos

[ecfisa]

Empezado por roman

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

Saludos.

[[BlueSteel]]

Empezado por gluglu

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

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;

Empezado por Neftali

¿Sobre qué Base de Datos trabajas y con qué componentes estás probando?
Hay componentes que no implementan el Recno y puede ser que te esté devolviendo -1; En ese caso el pintado no funcionaría.
Esta propiedad está pensada para que sea redefinido por los derivados de TDataSet, si los componentes ue usas no la han redefinido no funcionará este código.

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

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