cxGrid devexpress. Colorear una celda

[sakuragi]

hola que tal

bueno sigo con el pequeño problema que es colorear uan celda

un compañero del foro posteo esto:

Código Delphi [-]
  procedure TForm1.wwdbgrid1DBTableView1SexoStylesGetContentStyle(
    Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
    AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
  
  begin
       if arecord.Values[2] = 'H' then
       astyle := cxstyle1;
  end;

en caso que quiersa identificar la columna por su nombre y no por su index...

Código Delphi [-]
  
  procedure TForm1.wwdbgrid1DBTableView1SexoStylesGetContentStyle(
    Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
    AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
  var
     AColumn: TcxCustomGridTableItem;
  begin
       AColumn := (Sender as                  TcxGridDBTableView).GetColumnByFieldName('Sexo');
      if VarToStr(ARecord.Values[AColumn.Index]) = 'H' then
             astyle := cxstyle1;
  end;

con esto si me colorea bien una celda pero es en el evento "GetContentStyle"

entonses quise pasarlo a el evento "Onclick" y "OnkeyDown"

declare todas la variables:

Código Delphi [-]
 var
   Sender: TcxCustomGridTableView; 
   ARecord: TcxCustomGridRecord;
   AItem: TcxCustomGridTableItem; 
   AStyle: TcxStyle;
   AColumn: TcxCustomGridTableItem

puse todo lo demas igual

pero se me traba en esta linea:

Código Delphi [-]
if VarToStr(ARecord.Values[AColumn.Index]) = 'H' then

creo que la variable "ARecord" no me agarra donde esta el index
por que no deja o no hagarra el valor que se le esta arrojando.

tienes que ser diferente por ser en un evento distinto?

saludos.

[Omartsu]

Lo que pasa es que quiero hacer la suma de un campo que se llama kilos, esto lo voy agregando a un grid, pero tambien hay un campo proveedor en el cual pueden haber muchos proveedores y lo que yo quiero hacer es la suma de los kilos que van a cada proveedor, puede alguien ayudarme. Por Favor lo necesito urgentemente, gracias.