根据条件改变cxGrid行与列颜色

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  //Item确定列(ID列的索引)，RecordViewInfo确定行(Index行的索引)
  //可以定位到某一行改变颜色
 {if (AViewInfo.Item.ID = 0) and (AViewInfo.RecordViewInfo.Index = 0) then
    ACanvas.Brush.Color := clred;}
  //可以根据条件值确定改变某行颜色
 if (trim(AViewInfo.RecordViewInfo.GridRecord.Values[4]) = 'HTT')
    and (AViewInfo.Item.ID = 4) //确定到某一列，如果不加确定是某行底色
    then
    ACanvas.Brush.Color := clred;
end;

转：http://www.delphibbs.com/keylife/iblog_show.asp?xid=11305