error en IF, debe estar entre parentesis
IF (CONDICIÓN 1) AND (CONDICIÓN 2) then
begin
Instrucción
end;
Sln:
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
begin
AStyle := cxStyleGreen;
end;
end;