Delphi cxgrid 單元格數據對比，實現自繪標識！

最新推荐文章于 2023-06-14 06:55:02 发布

kye_jufei

最新推荐文章于 2023-06-14 06:55:02 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi integer string

本文链接：https://blog.youkuaiyun.com/kye_jufei/article/details/5708497

该博客讲述了如何在Delphi中使用cxGrid组件进行单元格数据对比，并通过自定义绘制来标识不同。针对FLAG字段，根据数值0、1、2分别用红、绿、紫三色标识。同时，对XCB、XBM、XKB等字段与数据库中的对应字段进行对比，颜色标示出不一致的单元格。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TRes_HrYd_Approve_F.cxGrid1DBBandedTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
CheckValue:Integer;
aa,bb,cc,dd,ee,ff,gg,hh,ii,jj:string;
CxColumn,aa1,bb1,cc1,dd1,ee1,ff1,gg1,hh1,ii1,jj1:TcxGridDBBandedColumn;
begin
inherited; //程序自繪
CxColumn:=(Sender as TcxGridDBBandedTableView).GetColumnByFieldName('FLAG');
if CxColumn=nil then Exit;
if SameText(AViewInfo.Item.Name,CxColumn.Name) then
begin
    CheckValue:=StrToInt(AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1Column28.Index]);
    if(CheckValue=0) then
    begin
      AViewInfo.Focused;
      ACanvas.Brush.Color:=clRed;
    end;
    if(CheckValue=1) then
    begin
      AViewInfo.Focused;
      ACanvas.Brush.Color:=clGreen;
    end;
    if(CheckValue=2) then
    begin
      AViewInfo.Focused;
      ACanvas.Brush.Color:=clFuchsia;
    end;
end;
aa1:=(Sender as TcxGridDBBandedTableView).GetColumnByFieldName('XCB');
if aa1=nil then Exit;

最低0.47元/天解锁文章

200万优质内容无限畅学