cxgrid行，列颜色控制

在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;