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.