Alternar colores en dbgrid

[cloayza]

Empezado por Casimiro Notevi

Nada, acaba alternando colores incorrectamente.

Amigo he implementado el codigo en ejemplo de Chris, y me anda de maravillas...

Te copio el codigo completo de la unidad.

Código Delphi [-]
unit Unit24;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, IBCustomDataSet, IBDatabase, StdCtrls, ComCtrls, Grids, DBGrids;

type
  TForm24 = class(TForm)
    gr1: TDBGrid;
    DS1: TDataSource;
    dtp1: TDateTimePicker;
    lb1: TLabel;
    btn1: TButton;
    DB1: TIBDatabase;
    TR1: TIBTransaction;
    QR1: TIBDataSet;
    QR1CODIGOAPUNTE: TIntegerField;
    QR1CODIGOEMPRESA: TIntegerField;
    QR1EJERCICIO: TSmallintField;
    QR1NUMEROASIENTO: TIntegerField;
    QR1LINEAASIENTO: TIntegerField;
    QR1FECHAASIENTO: TDateField;
    QR1CODIGOCUENTA: TIBStringField;
    QR1CONCEPTO: TIBStringField;
    QR1DEBE: TFloatField;
    QR1HABER: TFloatField;
    QR1FECHACREACION: TDateField;
    QR1HORACREACION: TTimeField;
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure gr1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure dtp1Exit(Sender: TObject);
  private
    { Private declarations }
{    nValorAnt: Integer;
    FColor, BColor: TColor;
    UltimoValor: Variant;
    BoolSwitch: Boolean;
    GrupoImpar: String;
}
  public
    { Public declarations }
    Sombra:Boolean;
    List:TStrings;
  end;

var
  Form24: TForm24;

implementation

{$R *.dfm}

procedure TForm24.btn1Click(Sender: TObject);
begin
  db1.Open;
  tr1.Active:=True;
  qr1.Close;
  qr1.selectsql.text := 'select * from tbapuntes where codigoempresa=2 and ejercicio=2 and codigoestadoapunte=2 '+
                        'and fechaasiento  between :fechadesde and :fechahasta '+
                        'order by codigoempresa, ejercicio, numeroasiento, lineaasiento';
  qr1.Params[0].AsDate := dtp1.Date;
  qr1.Params[1].AsDate := dtp1.Date;

  if Assigned(List) then
     List.Clear;

  // inicializar los datos del control de grupo
  qr1.Open;
  gr1.SetFocus;
end;

procedure TForm24.dtp1Exit(Sender: TObject);
begin

  btn1.SetFocus;
end;

procedure TForm24.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     DB1.Close;
end;

procedure TForm24.gr1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
   index:Integer;
   fColor:TColor;
begin
      if Not Assigned(List) then
         List:=TStringList.Create;

      with TDBGrid(Sender) do
      begin
         if (gdFocused in State) then
         begin
            Canvas.Font.Color := clWhite;
            Canvas.Brush.Color := clHighlight;
         end
         else
         begin
              Index:=List.IndexOf(DataSource.DataSet.FieldByName('NUMEROASIENTO').AsString);
              if Index=-1 then
              begin
                   if Sombra then fColor:=clYellow  else fColor:=clInfoBk;

                   //fColor:=RGB(Random(205),Random(205),Random(205));

                   index:=List.AddObject(Datasource.Dataset.FieldByName('NUMEROASIENTO').AsString, Pointer(fColor));

                   Sombra := not Sombra;
              end;

              Canvas.Font.Color := clBlack;
              Canvas.Brush.Color := TColor(List.Objects[index]);

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

end.

Saludos cordiales

[Casimiro Notevi]

Empezado por cloayza

Amigo he implementado el codigo en ejemplo de Chris, y me anda de maravillas...
Te copio el codigo completo de la unidad.
Saludos cordiales

Me sigue saliendo mal en el mismo sitio que antes :

[Aleca]

ahora si.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Query.Open;
end;
 
procedure TForm1.QueryAfterOpen(DataSet: TDataSet);
var
  nValorAnt: Integer;
  lColor: Boolean;
begin
  nValorAnt := 0;
  lColor := False;
  mTabla.Open;
  while not Query.Eof do
  begin
    if QueryID_GRUPO.AsInteger <> nValorAnt then
    begin
      nValorAnt := QueryID_GRUPO.AsInteger;
      lColor := not lColor;
      mTabla.Append;
      mTablaAsiento.Value := nValorAnt;
      mTablaCOLOR.Value := lColor;
      mTabla.Post;
    end;
    Query.Next;
  end;
  mTabla.SortOnFields('ASIENTO');
  Query.First;
  Grilla.DataSource := DataSource1;
end;

 
procedure TForm1.GrillaDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  FColor, BColor: TColor;
begin
  if mTabla.Locate('ASIENTO', QueryID_GRUPO.AsInteger, []) then  //      nColor
    if mTablaCOLOR.AsBoolean then
    begin
      FColor := clWhite;
      BColor := clGreen;
    end
    else
    begin
      FColor := clBlack;
      BColor := clWhite;
    end;
  TJvDBUltimGrid(Sender).Canvas.Font.Color := FColor;
  TJvDBUltimGrid(Sender).Canvas.Brush.Color := BColor;
  TJvDBUltimGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
...

con una tablita auxiliar, funciona, no se si te será practico o no.
estoy convencido que la mosca la mate, ahora no se como te quedo la casa

Saludos.

[Casimiro Notevi]

jaja... eso es trampa

He estado probando a fondo las distintas metodologías que se han propuesto y todas terminan por "fallar" en alguna condición, aunque es cierto que "casi no se enteraría nadie" y no le darían mucha importancia, pero si se quiere hacer las cosas bien entonces he tenido que desestimar todas las que usan el método de controlar los registros anteriores y similares. Simplemente no pueden funcionar, por lógica, salvo que el usuario se mueva de principio a fin con las teclas, registro a registro, y eso no suele ser lo más habitual en este caso, ya que es el grid de consulta principal del programa y además donde se validarán los registros que se "dan por buenos", en fin, que va a ser seguramente lo más muy usado del programia.
Creo que ha quedado demostrado que la única opción totalmente segura y válida para esta tarea es que en el propio registro se tenga un campo o dato del que se extraiga el color, así es independiente por completo de los movimientos que haga el usuario por el grid, use tecla o ratón, haga lo que haga. Siempre se pintará el registro con los datos extraidos de sí mismo, no hay error.
Pensé de hacerlo con una tabla en memoria pero no me convencía porque tras hacer el select había después que pasar los datos a esa tabla, no sólo por el tiempo (que es rápido normalmente) sino también por consumo de memoria ram y porque habría que traerse todos los registros, y esto es algo que nunca me ha gustado hacer.
Finalmente he optado por el método de la base de datos, concretamente es un Store Procedure que además de los campos del registro se trae también un campo 'color'.
No es tampoco lo que me hubiese gustado hacer porque son muchos filtros los que puede usar el usuario y hay que pasarle muchos parámetros al SP, la mayoría son del tipo "si pasas este parámetro no hay que pasar el otro", así que finalmente he tenido que optar por una opción 'híbrida', desde delphi se monta la sentencia sql y se llama al SP únicamente con ese parámetro, luego en el SP se hace un 'execute statement sentencia' y listo.
He estado haciendo pruebas y de momento, por lo que he podido ver, va bien, es ágil y parece que funciona correctamente con todas las combinaciones.
Y ya está bien por hoy, que son casi las 8 de la mañana y aquí estoy todavía, ya creo que no me voy a ir a dormir, enlazaré el día... bueno, voy a prepararme un café y a asomarme a la ventana, que empieza a amanecer

Quiero dar las gracias a todos porque me ha servido para ir probando distintas modalidades y finalmente optar por la que pienso que me viene mejor. Sin vuestra ayuda hubiese tardado muchísimo más. Os debo una invitación de "tapa de jamón y cerveza"

MUCHAS GRACIAS A TODOS


p.d.: Y no doy esto por cerrado, si alguien descubre una manera fiable de hacerlo mediante la GUI... se lleva el jamón

[[José Luis Garcí]]

Casimiro se que das el tema por sanjado, pero me quedo la duda de como quedaría con la linea en el grid y la verdad me sorprendió la sencillez de la respuesta, te pongo unas imágenes y al final el código por si sirve de utilidad a algún compañero. Por cierto de momento en todas mis pruebas no me ha dado fallo.

Con linea y cinco colores



Con linea y dos colores



Con linea y sin colores




y por último el código

Código Delphi [-]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Linea:Integer;
begin
     Linea:=0;
     if Asiento<>DataSource1.DataSet.FieldByName('ASIENTO').AsString then
     begin
         if Column.FieldName='HABER' then  Asiento:=DataSource1.DataSet.FieldByName('ASIENTO').AsString;
         Linea:=1;
     end;
     if CheckBox3.Checked=false then
     begin
       if CheckBox1.Checked=true then
       begin
           if CheckBox2.Checked=true then
           begin
            case UlDigit(StrToInt(DataSource1.DataSet.FieldByName('ASIENTO').value)) of
                0 :ColorElegido:=ColorA;
                1 :ColorElegido:=ColorB;
                2 :ColorElegido:=ColorC;
                3 :ColorElegido:=ColorD;
                4 :ColorElegido:=ColorE;
                5 :ColorElegido:=ColorA;
                6 :ColorElegido:=ColorB;
                7 :ColorElegido:=ColorC;
                8 :ColorElegido:=ColorD;
                9 :ColorElegido:=ColorE;
            end;
           end else
           begin
            case UlDigit(StrToInt(DataSource1.DataSet.FieldByName('ASIENTO').value)) of
                0 :ColorElegido:=ColorA;
                2 :ColorElegido:=ColorA;
                4 :ColorElegido:=ColorA;
                6 :ColorElegido:=ColorA;
                8 :ColorElegido:=ColorA;
                1 :ColorElegido:=ColorB;
                3 :ColorElegido:=ColorB;
                5 :ColorElegido:=ColorB;
                7 :ColorElegido:=ColorB;
                9 :ColorElegido:=ColorB;
            end;
           end;
       end else
       begin
         if Asiento<>DataSource1.DataSet.FieldByName('ASIENTO').AsString then
         begin
           //  Asiento:=DataSource1.DataSet.FieldByName('ASIENTO').AsString;
             case SelectMiColor of          //Para invertir La Seleccion
                0:begin
                     ColorElegido:=ColorB;
                     SelectMiColor:=1;
                  end;
                1:begin
                     ColorElegido:=ColorA;
                     SelectMiColor:=0;
                  end;
             end;
         end;
       end;
       DBGrid1.Canvas.Brush.Color := ColorElegido;
       Dbgrid1.Canvas.FillRect(Rect);
       dbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     end;
     if Linea=1 then
     begin
         DBGrid1.Canvas.Pen.Color:=clNavy;
         DBGrid1.Canvas.Pen.Width:=3;
         DBGrid1.Canvas.MoveTo(Rect.Left, Rect.Top+1);
         DBGrid1.Canvas.LineTo(Rect.Right, Rect.Top+1);
     end;
end;

[Casimiro Notevi]

Lo de los colores es que no me sirve ese método, sólo puedo usar el típico claro/oscuro, no más.
Sin embargo, lo de la raya sí que está muy bien y funciona perfectamente porque se controla un campo/dato del propio registro, por ejemplo que la línea sea el 1, así no hay problema.
Además el código es mínimo:

Código Delphi [-]
procedure TForm24.gr1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if TDBGrid(Sender).DataSource.DataSet.FieldByName('LINEAASIENTO').AsInteger=1 then
  begin
    gr1.Canvas.Pen.Color:=clNavy;
    gr1.Canvas.Pen.Width:=3;
    gr1.Canvas.MoveTo(Rect.Left, Rect.Top+1);
    gr1.Canvas.LineTo(Rect.Right, Rect.Top+1);
  end;
end;

Por lo que seguramente lo implemento también y en otros grids más que tengo por ahí.

Muchísimas gracias por la ayuda

[pacopenin]

Empezado por Casimiro Notevi

jaja... eso es trampa

He estado probando a fondo las distintas metodologías que se han propuesto y todas terminan por "fallar" en alguna condición, aunque es cierto que "casi no se enteraría nadie" y no le darían mucha importancia, pero si se quiere hacer las cosas bien entonces he tenido que desestimar todas las que usan el método de controlar los registros anteriores y similares. Simplemente no pueden funcionar, por lógica, salvo que el usuario se mueva de principio a fin con las teclas, registro a registro, y eso no suele ser lo más habitual en este caso, ya que es el grid de consulta principal del programa y además donde se validarán los registros que se "dan por buenos", en fin, que va a ser seguramente lo más muy usado del programia.
Creo que ha quedado demostrado que la única opción totalmente segura y válida para esta tarea es que en el propio registro se tenga un campo o dato del que se extraiga el color, así es independiente por completo de los movimientos que haga el usuario por el grid, use tecla o ratón, haga lo que haga. Siempre se pintará el registro con los datos extraidos de sí mismo, no hay error.
Pensé de hacerlo con una tabla en memoria pero no me convencía porque tras hacer el select había después que pasar los datos a esa tabla, no sólo por el tiempo (que es rápido normalmente) sino también por consumo de memoria ram y porque habría que traerse todos los registros, y esto es algo que nunca me ha gustado hacer.
Finalmente he optado por el método de la base de datos, concretamente es un Store Procedure que además de los campos del registro se trae también un campo 'color'.
No es tampoco lo que me hubiese gustado hacer porque son muchos filtros los que puede usar el usuario y hay que pasarle muchos parámetros al SP, la mayoría son del tipo "si pasas este parámetro no hay que pasar el otro", así que finalmente he tenido que optar por una opción 'híbrida', desde delphi se monta la sentencia sql y se llama al SP únicamente con ese parámetro, luego en el SP se hace un 'execute statement sentencia' y listo.
He estado haciendo pruebas y de momento, por lo que he podido ver, va bien, es ágil y parece que funciona correctamente con todas las combinaciones.
Y ya está bien por hoy, que son casi las 8 de la mañana y aquí estoy todavía, ya creo que no me voy a ir a dormir, enlazaré el día... bueno, voy a prepararme un café y a asomarme a la ventana, que empieza a amanecer

Quiero dar las gracias a todos porque me ha servido para ir probando distintas modalidades y finalmente optar por la que pienso que me viene mejor. Sin vuestra ayuda hubiese tardado muchísimo más. Os debo una invitación de "tapa de jamón y cerveza"

MUCHAS GRACIAS A TODOS


p.d.: Y no doy esto por cerrado, si alguien descubre una manera fiable de hacerlo mediante la GUI... se lleva el jamón

Estoy con Casimirro.
Desde el primer momento me pareció que la solución estaba en tener la infomación en los registros. No he tenido tiempo de pensar en código ni de probar las soluciones que se daban.
Valoré, en un primer momento la posibilidad de las tablas en memoria, pero lo descarté por las mismas razones, y que en entornos multipuesto pueden llegar a "mentir" bastante (si no se recargan convenientemente).
Desde mi punto de vista, una solución que no debe costar (ni tiempo ni dinero, creo que era una premisa) es válida si no es demasiado mala. Es decir, que a veces, pequeñas "trampas" son necesarias en busca de la productividad.
En este caso, con el Store Procedure, si hay pocos puestos, no creo que la pérdida de rendimiento sea significativa. Y si hay muchos, probablemente habrá recursos suficientes para tomar medidas (unas pocas horas más para hacer pruebas, o gastar un poco de dinero en "algo" que lo resuelva).
No defiendo el todo vale mientras funcione. Pero en entornos empresariales, hemos de optimizar sobre todo el tiempo. Si necesito 10-12 horas para resolver un tema como este, me compensa más comprar un componente (que no se si lo hay) de 300 €, que además me dará otras ventajas que no tengo en un grid normal.
El código (o la solución en general), es mejor o peor si se puede comprobar que en situaciones similares, ofrecen respuestas distintas. Si el resultado es similar (tiempo de respuesta, uso de CPU y/o memoria, etc) ambos son válidos como solución. Otra cosa es comparar códigos fuente, horas de programación, legibilidad, etc.

Todo esto son opiniones personales y no afirmaciones categóricas.

Saludos,

[[José Luis Garcí]]

Me alegro haberte podido ayudar un poco, son muchas más las que tú y los compañeros me ayudáis a mi y considero, que es justo ayudar cuando se puede, por lo menos intentarlo.

Lo único, es que los compañeros, se han alterado algo a lo largo de este tema, espero sinceramente, que todo quede en aguas de borraja, ya que creo la intención es la misma por todos los pertenecientes al Club y aveces los malos entendidos provocan roces. Personalmente, el colaborar en este o cualquier otro hilo, me repercute une satisfacción personal, independientemente que mi ayuda haya sido escogida/valorada o no, en primer lugar demuestra que mi capacidad de asimilar el lenguaje a aumentado, aunque sean pequeñas aportaciones o trozos de código ridículos, Estoy seguro de que hace un año, no hubiese podido ayudar de la misma manera que ahora. Reconoscamoslo, aquí hay compañeros con un nivel muy alto, y yo y muchos más estoy seguro, nos perdemos o nos cuesta seguir los pasos de estos gigantes, pero luego son capaces de estos mismos ayudarnos y explicarnos cuando lo solicitamos.

Creo que esta es la finalidad del club, la ayuda e intercambio de conocimientos, sin importar tú nivel ni experiencia.

[[Chris]]

@Delphius: Primero que todo, te pido disculpas si te sentiste ofendido por mis palabras. Dicen que para hacer negocios con personas de distinta cultura, primero tienes que aprender su cultura. No sé la significacia que tendría la palabra Muletas en Argentina, pero en mi país, no es ofensiva a cómo puedo persivir que la has tomado. Creo que esto fue un mal entendido del que NewChris y NewDelphius nos encargamos de poner caliente.

Lo que me queda dando vueltas en la cabeza es esa persección que tienes de mí, la de gladiador dando estocadas finales Si tienes esa imagen, creo que no te he sabido transmitir mis ideas. Todo lo contrario, soy amante de la discusión sin entrar en enfrentamientos, soy amante de la democracia -aunque no sea perfecta, pero es lo mejor que tenemos-. Soy amante de las libertades y de la igual de todos. Te veo a tí y a todos los miembros participantes del club por igual -no podría ser de otra forma-.

Cada uno tenemos nuestras ideas y formas de hacer las cosas y todas merecen ser escuchadas y respetadas. Pero decir que no comparto una de ellas y talvez la menosprecie no quiere decir que no debería ser ni existir. Cuando veo un hilo y considero que la solución que se está desarrollando va por un camino que no está conforme a mí parecer, siento la necesidad de intervenir y hacer ver lo que está mal desde mi punto de vista. Pero cuando lo hago jamás es mi intención ofender a todos los participantes. Como todo el mundo, espero que mis palabras sean escuchadas, pero no así pienso obligar a alguien a escribir mi código y mi idea.

Por último, mis convicciones en lo referente a lo tratado en este hilo no han cambiado. Creo que me vuelvo viejo, y como buen viejo, soy bien terco y cerrado. Dislumbro la solución, pero no tengo Delphi a mano para desarrollarla. Pero como casimiro no tiene tiempo, apoyo la solución que ha tomado. Solo me queda dar un último consejo: Para este caso evita encuadrar demaciado el SP a la necesidad del momento. Mejor utiliza un SP sin paramentros, que sea el espejo de la tabla sobre la que residen los datos. No te olvides que puedes utilizar WHERE's, ORDER's, HAVING's, etc. para seleccionar los registros devueltos por el SP.

Es todo por el momento. Saludos, Chris.