CXGrid控件整行变颜色

 

CXGrid控件整行变颜色

当某行符合条件的时候，给它变色：

 

 

 

 

  if not VarIsNull(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Status').Index]) then
    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('Status').Index] = '选中' then
    begin
      ACanvas.Canvas.Font.Color := clBlack;
      ACanvas.Brush.Color := clRed;
    end;