求助高手:DevExpress QuantumGrid 的颜色改变问题! 1.DevExpress QuantumGrid 如何实现一行隔一行的斑马纹效果?2.DevExpress QuantumGrid 怎样根据字段的值的变化而改变该字段的背景色和字体颜色? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 偶也不用。偶用EXCEL方便简单。不过你查一查它的帮助吧。 procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: String; var AColor: TColor; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);begin if ANode.AbsoluteIndex mod 2 = 0 then AColor := clYellow else AColor := clLime;end; 向各位大哥请教一个数据库打包问题,谢谢! 关于数据库的问题? 如何实现在文本框中使用动态提示? 那里可以找到Delphi 5.x 分布式多层应用系统篇所带的源码下載??? TpageControl控件,有4个Ttabsheet,如何让其中几个不显示,visible属性好像不管用 如何求两个时间之间的跨度,并显示为 :x年x月 。是个长度 不是日期 在Delphi中怎么样压缩Access数据库? 请问这是个什么错误啊 难道就没有高手吗? 求解,如图 求助高手:DevExpress QuantumGrid 的颜色改变问题! 关于分辨率的问题
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
begin
if ANode.AbsoluteIndex mod 2 = 0 then
AColor := clYellow
else
AColor := clLime;
end;