在cxGridDBTableView的OnCustomDrawCell事件中
begin
AText:=IntToStr(ARecord.Index);
end;
procedure TMain_Form.cxgrdbtblvwGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
ARec: TRect;
begin
//******************************* 特定的某一行变颜色*****************************
// if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName
(‘SheBeiBianHao‘).Index])=‘20050419‘ then
//
// begin
// ACanvas.Brush.Color := clRed;
// end;
//*************************************隔行变颜色************************
// if AViewInfo.RecordViewInfo.Index mod 2 = 0 then
// begin
// ACanvas.Canvas.brush.color := clInfoBk ;
// end
// else
// begin
// ACanvas.Canvas.brush.color :=clGreen;
// end;
//******************** 隔列变颜色**************************
//if AViewInfo.Item.Index mod 2 = 0 then
//ACanvas.Canvas.brush.color := clGreen
//else
//ACanvas.Canvas.brush.color := clGrayText;
//********************* 设置行的颜色 **************************
//begin
// ARec := AViewInfo.Bounds;
// ACanvas.canvas.brush.color:= clGreen;
// ACanvas.FillRect(ARec)
//end;
//********************* 设置单元格的颜色 **************************
// begin
// ARec := AViewInfo.ClientBounds;
// ACanvas.canvas.brush.color:= clGradientActiveCaption;
// ACanvas.canvas.Font.Color:=clGreen; //字体颜色设置
// ACanvas.FillRect(ARec)
// end;
//***********************************************
end;cxgrid行，列颜色控制
原文：http://blog.csdn.net/hello_myhome/article/details/44782233
