cxGrid devexpress. Colorear una celda

[vtdeleon]

Saludos

Revisa este hilo a ver que te parece:
http://www.clubdelphi.com/foros/show...ht=color+celda

[sakuragi]

gracias

no me havia dado cuenta que vendria algo de eso


saludos

[Neftali [Germán.Estévez]]

Y si no lo encuentras ahí , estas dos direcciones:
http://www.devexpress.com/Support/Kn...e.xml?kbid=329
http://www.devexpress.com/Support/Kn...le.xml?kbid=55

[sakuragi]

gracias

se puede hacer eso en otra parte que no sea en el evento "Styles.OnGetContentStyle"

eh tratado de hacerlo en el "onClick" y "OnKeyDown"

pero se cuelga el sistema copiando esactamente todo como esta en el otro evento.


bueno el detalle esta en este Hilo.

http://www.clubdelphi.com/foros/show...563#post109563

saludos

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