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;