Color DBGrid según grupo de filas

[vtdeleon]

Saludos
Podrias usar esto, en caso de que el campo sea Integer:

Código Delphi [-]
Begin
if (State = []) then begin
    with dbgrid do begin
      if (Column.Index=1) then
        case Columns[1].Field.AsInteger of
        0:Canvas.Brush.Color := clRed
        1:Canvas.Brush.Color := clGreen
        ....
        ....
        end;//Case
      DefaultDrawColumnCell(rect,DataCol,Column,State);
    end;//With
  end;//If
end;

[Cabanyaler]

Gracias por tu ayuda, pero....

Por lo que "trazo" en tu función los valores que debe tomar la columna en tu ejemplo (Column.Index=1) son discretos, es decir, valores conocidos y concretos como son 0, 1....

Código Delphi [-]
   case Columns[1].Field.AsInteger of
          0:Canvas.Brush.Color := clRed
          1:Canvas.Brush.Color := clGreen
          ....
          ....

y a razón de ellos cambio el color.

Perfecto.

Pero yo no necesito eso, y no sé como hacerlo lo que necesito.

Lo que deseo es:

Poder cambiar el color del fondo de las líneas o las letras, eso es igual, a razón del cambio de valor de una columna respecto de la fila anterior.

Si la columna 1 en la fila 1 del grid tenia valor '100' que salga en color azul, y si en la fila 2 la columna 1 vale '123' que cambie el color a rojo por ejemplo, y si en la línea 3 la columna 1 vuelve a cambiar el valor respecto de la columna 1 linea 2, volver a cambiarle el color a azul. No cambiando el color de la fila mientras no cambie el valor de la columna con respecto de la anterior fila

El resultado debería ser algo pareceido a eso:

103 07 ....
103 07 ....
103 07 ....
103 07 .... Cambiando aqui el color por el cambio de valor de la columna
103 08 ....
103 08 ....
103 08 ....
103 08 ....
103 08 ....
103 08 ....

En realidad la confusión la tengo a la hora de donde implementar el algoritmo que pueda almacenar el valor de la columna de la anterior fila para comprarlo con el valor de la misma columna pero de la fila actual para despues de compararlo poder cambiar el color si son diferentes.

Gracias.

[Nelet]

No se si estaré diciendo una animalada, pero se me ocurre que puedes declarar una variable global en la unidad para guardar el valor del campo del registro anterior y después comparar el valor de la variable con el del registro actual en el procedimiento OnDrawColumCell.

Si el valor coincide no cambias el color ni el valor de la variable en el procedimiento. Si el valor difiere cambias el color y asignas a la variable el valor del campo.

[Cabanyaler]

Eso lo había pensado, y ahora lo voy a probar.

Lo que desconozco es si eso lo puedo implementar en ese Evento.
Es un algoritmo parecido al de eliminación de duplicados, bueno parecido...
Ya digo si me ha salido y soy pasto de mis lágrimas.

[Cabanyaler]

Hola, ya lo he hecho, pero sólo me pinta la primera columna de la tupla apartir de la que debería empezar a tener el color deseado.
El código es:

Código Delphi [-]
procedure TFLibroNegro.DBGridLibroNegroDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    if (NumSubObr_ant <> DBGridLibroNegro.Fields[1].Value) and (DBGridLibroNegro.Canvas.Brush.Color = clinfoBk) then
    begin
        DBGridLibroNegro.Canvas.Brush.Color := clSkyBlue;
        DBGridLibroNegro.Canvas.FillRect(Rect);
    end;

    NumSubObr_ant := DBGridLibroNegro.Fields[1].Value;

    DBGridLibroNegro.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;

Y el resultado de una manera más o menos visual es:

103 07 ....
103 07 ....
103 07 ....
103 07 .... Cambiando aqui el color por el cambio de valor de la columna
103 08 ....
103 08 ....
103 08 ....
103 08 ....
103 08 ....
103 08 ....

Cuando el resultado debería ser algo pareceido a eso:

103 07 ....
103 07 ....
103 07 ....
103 07 .... Cambiando aqui el color por el cambio de valor de la columna
103 08 ....
103 08 ....
103 08 ....
103 08 ....
103 08 ....
103 08 ....

[Nelet]

Y si asignaras el color mediante otra variable global?.

Empiezas con uno y cuando cambie el valor del registro cambias el asignas la variable global donde guardas el valor y lo mismo con la variable para el color.

[Cabanyaler]

Si ya lo he probado Nelet, pero nada, el resultado es el mismo.

Desisto, tiro la toalla.

Como diría Tarantino : - Llebo todo el pu#o día con esta jod#*a mier+# y no me funciona.

Ya lo curraré de otro modo.
Gracias y un saludo a todos los que habéis intentado ayudarme.