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