painting columns

[Nasguone]

It would like to know if and possivel paints the columns of pivogrid. column (1) column (2) column (3)
yellow red green

I tried following codigo but it paints all cell.

CCell := dm.pvmConsult.ColumnCells[rowindex];
if (CCell <> nil) and (CCell.Owner <> nil) then
begin
if ccell.Owner.ChildCount < 5 then
begin
rank := dm.pvmConsulta.Ranks[columnindex,rowindex,measureindex];
if rank = 1 then
Cell.Color := clFuchsia;


grateful E.C.S

[AlexZencovich]

Please see demo example source code for PivotGrid1GetCellValue event handler.