cxgrid 根据A列的值设定B列值的颜色

2012-08-20 03:53:21 216 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

CentOS 7下Oracle 11G RAC静默安装避坑指南：从网络规划到共享存储配置全流程本文详细介绍了在CentOS 7环境下进行Oracle 11G RAC静默安装的全流程，包括网络规划、共享存储配置和系统参数调优等关键步骤。特别针对静默安装过程中的常见问题提供了实用的避坑指南和优化建议，帮助技术人员高效完成企业级数据库部署。阅读详情

需求是这样，要将A列的值与B列的值进行比较，如果A列的值小于B列的值，那B列的值就显示为红色。

共有4列要作比较。请问如何写代码？

A<b b列值显示红色
d<f f列值显示红色
g<j j列值显示红色
m<w w列值显示红色

...全文

风光储互补微电网在偏远地区的应用实践：从建模到仿真全解析本文深入解析了风光储互补微电网在偏远地区的应用实践，从系统设计到仿真建模全流程。通过Simulink等工具进行动态仿真，验证了系统在多种工况下的可靠性，并结合实际案例展示了其显著的经济和环保效益。文章为从业者提供了从技术路径到实施优化的全面指导。阅读详情

kckcxy

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

kckcxy 2012-08-21

打赏
举报

解决了，我把代码贴上来，希望对有同样需求的朋友有所帮助



procedure TYinDangBiao.cxGrid1DBBandedTableView1CustomDrawCell(

  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

begin

  if (AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('pds').Index] < AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('njzzk').Index]) and (AViewInfo.Item.ID = 8) then

    ACanvas.Canvas.Font.Color := clRed

  else if (AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('nzk').Index] < AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('n1jzzk').Index]) and (AViewInfo.Item.ID = 14) then

    ACanvas.Canvas.Font.Color := clRed

  else if (AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('n1zk').Index] < AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('n2jzzk').Index]) and (AViewInfo.Item.ID = 19) then

    ACanvas.Canvas.Font.Color := clRed

  else if (AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('n2zk').Index] < AViewInfo.GridRecord.Values[cxGrid1DBBandedTableView1.GetColumnByFieldName('n3jzzk').Index]) and (AViewInfo.Item.ID = 24) then

    ACanvas.Canvas.Font.Color := clRed;

end;

酣酣 2012-08-21

打赏
举报

呵呵！
CxGrid底下有Demo的！

kckcxy 2012-08-21

打赏
举报

[Quote=引用 1 楼的回复:]

//假定窗体为Form1、表格为cxGrid1DBTableView1，则：
Delphi(Pascal) code

procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCu……
[/Quote]
运行出错哦！

广州佬 2012-08-20

打赏
举报

//假定窗体为Form1、表格为cxGrid1DBTableView1，则：



procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(

  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;

  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

var i:integer;

begin

  if AItem=nil then exit;

  case AItem.Index of

    1: i := 0; //A列为0，B列为1

    5: i := 3; //F列为5，D列为3

    9: i := 6; //J列为9，G列为6

    22: i := 12; //W列为22，M列为12

  else

    exit;

  end;

  if ARecord.Values[AItem.Index]>ARecord.Values[i] then//如果该记录的当前列的值大于参照列的值

    AStyle.Color:=clRed//用红底色显示

  else

    AStyle.Color:=clWindow; //用白底色显示

end;

cxgrid 根据A列的值设定B列值的颜色

相关推荐