如何使满足条件的数据显示不同的颜色

最新推荐文章于 2020-01-07 18:28:26 发布

weixin_30708329

最新推荐文章于 2020-01-07 18:28:26 发布

阅读量269

点赞数

文章标签： c#

原文链接：http://www.cnblogs.com/m0488/p/3833317.html

版权

如何使满足条件的数据显示不同的颜色？

解决：

var  AYellowStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject); 
begin   
 //行颜色 　　　　　　
　　AYellowStyle := TcxStyle.Create(Self);  
   AYellowStyle.Color := $0080FFFF;  
   AYellowStyle.TextColor := clMaroon; e
nd;

procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;  
                                                                AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin  
　　if ARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index] < 81 then
   　　AStyle := AYellowStyle; 
end;

这里cxGrid1DBBandedTableView1Lengthcm.Index小于81时就显示黄色

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;