la columna 11 es invisible , pero contiene el numero del color.
Funciona bien pero al arrastrar la columna para agrupar me da un error de conversion.
Es que al hacer eso ARecord.Values [11] cambia de columna me toma otro valor.
trate de hacer lo que dice viru de referenciar a la columna por su nombre
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;
pero meda error de memoria.
Este es mi codigo:
Código Delphi
[-]
procedure TfPlanillaPedidosConsolidados.cxgDetalleDBTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
if ARecord.Values [11] <> NULL then
cxStyle1.Color := ARecord.Values [11];
if ARecord.Values [12] <> NULL then
Begin
if ARecord.Values [12] <> 1 then
cxStyle1.Font.Style := [fsBold]
Else
cxStyle1.Font.Style := [];
AStyle := cxStyle1 ;
End;
end;
Saludos...