Mejor apariencia para un DBGRID

[Cabanyaler]

Hola Neftalí, quizá sea tu componente mi solución.
Quiero hacer esto :

http://www.clubdelphi.com/foros/showthread.php?t=27536

Y he utilizado tu componente, pero no me pinta los diferentes colores haciéndole este código

Código Delphi [-]
procedure TFLibroNegro.CustomizeGrid1PaintRow(DS: TDataSet;
  var RowColor: TColor; var ChangeColor: Boolean);
begin
    if (NumSubObr_ant <> RxDBGridLibNegro.Fields[1].Value) and (RxDBGridLibNegro.Canvas.Brush.Color = clinfoBk) then
         RxDBGridLibNegro.Canvas.Brush.Color := clSkyBlue;
    NumSubObr_ant := RxDBGridLibNegro.Fields[1].Value;
end;

He asociado al Componente dicho RxGrid, el DefaultDrawing a True, y chico ... nada.
¿me falta algo?
Un saludo y gracias.