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(Che
Delphi cxgrid 單元格數據對比,實現自繪標識!
最新推荐文章于 2024-02-23 11:56:56 发布
这段代码展示了如何在Delphi的cxGrid组件中实现单元格数据对比。当数据不匹配时,通过自绘将单元格背景色设置为特定颜色,以标识数据差异。
摘要由CSDN通过智能技术生成