Раскраска ячейки в TCXGRID компоненты DEVEXPRESS

[Plexdeath]

в столбце cxGrid1DBTableView1Protocol имеются ячейки со словом "Нет" как можно эти ячейки раскрасить красным цветом?

[quit]

Для TdxGrid тех же DevExpress на OnCustomDrawCell, это выглядело бы так

  if not (TdxDBGrid(Sender).FindColumnByFieldName(fieldname)=nil)  then
    if ANode.Values[TdxDBGrid(Sender).ColumnByFieldName(fieldname).Index] = "Нет" then
      AColor := clRed;

[Plexdeath]

Сообщение от quit

Для TdxGrid тех же DevExpress на OnCustomDrawCell, это выглядело бы так

  if not (TdxDBGrid(Sender).FindColumnByFieldName(fieldname)=nil)  then
    if ANode.Values[TdxDBGrid(Sender).ColumnByFieldName(fieldname).Index] = "Нет" then
      AColor := clRed;

Разобрался

procedure TForm1.cxGrid1DBTableView1ProtocolC ustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
ARec: TRect;
val: string;
begin
ARec := AViewInfo.Bounds;
val := VarAsType(AViewInfo.GridRecord.Disp layTexts[cxGrid1DBTableView1Protocol.index], varString);
if val = 'НЕТ' then
ACanvas.Canvas.Brush.Color := $B9B9FF;
ACanvas.Canvas.FillRect(ARec);
end;