Pintar fila completa en un DBgrid segun un dato

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

En mi caso utilizo una comprobación como esta:

Código Delphi [-]
          ....
          // FILAS ALTERNADAS....
          num := DataLink.DataSource.DataSet.RecNo;
          if ((num mod 2) = 0) then begin
            Self.Canvas.Brush.Color := Config.App.ColorAlternativo;
          end;

[ecfisa]

Hola.

Aprovechando la propiedad RecNo al igual que Neftali, yo he utilizado esto:

Código Delphi [-]
   if Odd(DBGrid1.DataSource.DataSet.RecNo) then

Es una alternativa más ...


Saludos.

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

Empezado por ecfisa

Es una alternativa más ...

Bueno, creo que es la misma, aunque la tuya es más elegante
La función Odd debe hacer algo así:

Código Delphi [-]
if ((num mod 2) = 0) then begin

[ecfisa]

Hola Neftali.

Hacen prácticamente lo mismo, aunque evaluan condiciones diferentes.

Código Delphi [-]
  if ((num mod 2) = 0) then

es verdadera si num es par y

Código Delphi [-]
  if Odd(num) then

es verdadera si num es impar.

Pero para pintar las filas alternando dos colores cualquiera funciona perfectamente.


Saludos.

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

Empezado por ecfisa

...para pintar las filas alternando dos colores cualquiera funciona perfectamente.

Sí, a eso me refería.

[[BlueSteel]]

Empezado por Neftali

En mi caso utilizo una comprobación como esta:

Código Delphi [-] .... // FILAS ALTERNADAS.... num := DataLink.DataSource.DataSet.RecNo; if ((num mod 2) = 0) then begin Self.Canvas.Brush.Color := Config.App.ColorAlternativo; end;

Hola Neftali

Estube provando con esto... y no me ha funcionado...

tengo lo siguiente
1.- Ejecuto el codigo en onDrawColumnCell
2.- Cree la variable Num de tipo Int
3.- Cambie DataLink por el nombre del DBGrid
4.- Cambie Config.App.ColorAlternativo por clMoneyGreen


En difinitiva... no me da el efecto.... el codigo que uso es asi:

Código Delphi [-]
     
num := DBGrid2.DataSource.DataSet.RecNo;
// num := Datos.AQ_AbonosVendidos.RecNo;    Si pruebo cualquiera de estas lineas el valor que entrega es el correcto
if ((num mod 2) = 0) then Self.Canvas.Brush.Color := clMoneyGreen;

igual.. voy a seguir intentando..

Salu2

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