求教 CxGrid如何控制每行颜色? dbGrid是可以用户填充颜色的,由于每行数据性质不一样我在cxGrid里也想做到,请大家帮忙,给出源码。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我[email protected]联系我,我发给你 如何使满足条件的数据显示不同的颜色?解决:varAYellowStyle: TcxStyle;procedure TForm1.FormCreate(Sender: TObject);begin //行颜色AYellowStyle := TcxStyle.Create(Self);AYellowStyle.Color := $0080FFFF;AYellowStyle.TextColor := clMaroon;end;procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);beginif ARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index] < 81 then AStyle := AYellowStyle;end;这里cxGrid1DBBandedTableView1Lengthcm.Index小于81时就显示黄色 同上。。if vartostr(ARecord.Values[8]) ='已审' then AStyle := AYellowStyle;ARecord.Values[8] :cxgrid中第8列的值。。 弹出框,做导航菜单的 tidhttp下载文件 下载到最后的时候会非常的慢 求救TobjectList问题 delphi 发送短信的问题 清高手指点一二..... 怎样在Win XP的ICF服务中添加自定义服务 窗口控制问题:按下一个TForm对象的'最小','最大','X(关闭)',分别对应那个响应函数,如何使这些操作不产生效果? 问一个关于ADO的问题,急 请问如何获取硬盘的序列号? 一个关于NT下进程的问题 大家帮我看一下这段代码有什么问题? access问题,大家帮帮忙,谢谢
[email protected]
联系我,我发给你
解决:
var
AYellowStyle: TcxStyle;procedure TForm1.FormCreate(Sender: TObject);
begin
//行颜色
AYellowStyle := TcxStyle.Create(Self);
AYellowStyle.Color := $0080FFFF;
AYellowStyle.TextColor := clMaroon;
end;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时就显示黄色
if vartostr(ARecord.Values[8]) ='已审' then
AStyle := AYellowStyle;ARecord.Values[8] :cxgrid中第8列的值。。