cxGrid控件以cxGridDBCardView视图显示,记录集中有字段a和b,cxGridDBCardView中只显示a,但希望a的颜色能以b的值的不同而不同,请教各位大侠.
给出各对象名称,便于大家回复:
表格控件:cxGrid1
表格中视图:cxGridDBCardView1
视图中的列:cxGrid2DBCardView1Row1 与字段a绑定
记录集:adodataset1
b的值:[1,2,3,4,5,6,7]
给出各对象名称,便于大家回复:
表格控件:cxGrid1
表格中视图:cxGridDBCardView1
视图中的列:cxGrid2DBCardView1Row1 与字段a绑定
记录集:adodataset1
b的值:[1,2,3,4,5,6,7]
解决方案 »
- delphi7中如何枚举摄像头支持的分辨率
- 使用delphi2010 在当中没有找到ADO。请帮一下忙
- delphi---excel数据导入到dbgrid中,dbgrid再批量插入到sql中
- 鼠标拖动选择控件
- 关于发票的打印
- 关于监控
- 讨论:怎样实现这样的功能:将得到的记录集当做一个表用SQL检索?
- config.ini文件如何解密?
- 这是将EXCEL导入SQLSEVER的代码,但我有一些问题,试了多次都没有解决。希望会的朋友帮我看看。
- 请问delphi+ado操作dbf数据库时如何使用临时表?
- 视频是显示字幕???????
- 我和老婆已经为孩子到底姓什么争论很长时间了,孩子已经一岁多了,但还没有名字,大家看怎么办,我是没辙了
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
ADisplayStyle: TcxStyle;
begin
if trim(vartostr(ARecord.Values[1])) = 'a' then
begin
ADisplayStyle := TcxStyle.Create(Self);
ADisplayStyle.Color := RGB(96, 186, 3);
ADisplayStyle.Font.Color := RGB(255, 255, 255);
AStyle := ADisplayStyle;
end
else if trim(vartostr(ARecord.Values[1])) = 'b' then
begin
ADisplayStyle := TcxStyle.Create(Self);
ADisplayStyle.Color := RGB(96, 166, 234);
ADisplayStyle.Font.Color := RGB(255, 255, 255);
AStyle := ADisplayStyle;
end; end;