Pintar fila completa en un DBgrid segun un dato

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

Revisa el ejemplo que te paso. Nos hemos dejado de indicarle que vuelva a pintar la fila.

[[BlueSteel]]

Gracias Neftali

revise el ejemplo.. realice todo igual.... salvo 3 cosas:

cambiar el nombre del DBGrid... y de donde se obtienen los colores.

lo demás esta igual, pero no se por que no me pinta las filas.

si compilo tu ejemplo funciona bien.. pero quizas sea un bug de esos...

lo raro es que si quiero pintar las celdas que cumplan una condición si lo hace bien (en otro dbgrid)...

este es el codigo que utilizo...

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 proxima semana seguiré probando

Salu2 y que tengan un buen fin de semana

[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 Notevi]

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.

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