Con el siguiente código puedo pintar de forma exitosa una celda siguiendo un criterio
procedure TfMain.gridDBColumnGrid1DBTableView1FECHAINICOStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumnFechaInicio, AColumnFechaFin: TcxCustomGridTableItem;
begin
AColumnFechaInicio := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAINICO');
// AColumnFechaFin := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAFIN');
//if Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) and Hoy >= ARecord.Values[AColumnFechaFin.Index] then
if Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) then
begin
AStyle := cxStyleGreen;
end;
end;
Ahora quiero pintar la misma celda utilizando dos criterios, pero me muestra error
procedure TfMain.gridDBColumnGrid1DBTableView1FECHAINICOStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumnFechaInicio, AColumnFechaFin: TcxCustomGridTableItem;
begin
AColumnFechaInicio := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAINICO');
AColumnFechaFin := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAFIN');
if Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) and Hoy >= ARecord.Values[AColumnFechaFin.Index] then
//if Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) then
begin
AStyle := cxStyleGreen;
end;
end;
Error de compilación
[DCC Error] uMain.pas(127): E2015 Operator not applicable to this operand type
¿Cómo hacer para obtener el valor de otra celda de la misma fila?