属已解决问题。
if (gdSelected in State) then
begin
DBGrid.Canvas.Brush.Color := clRed;选中为红色
DBGrid.Canvas.Font.Color := clGreen;字体为绿色
end
else
if (DBGrid.DataSource.DataSet.RecNo mod 2=1) then
DBGrid.Canvas.Brush.Color:= clYellow;否则奇数行为黄色
else
DBGrid.Canvas.Brush.Color:= clBlue;偶数行为蓝色
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
if (gdSelected in State) then
begin
DBGrid.Canvas.Brush.Color := clRed;选中为红色
DBGrid.Canvas.Font.Color := clGreen;字体为绿色
end
else
if (DBGrid.DataSource.DataSet.RecNo mod 2=1) then
DBGrid.Canvas.Brush.Color:= clYellow;否则奇数行为黄色
else
DBGrid.Canvas.Brush.Color:= clBlue;偶数行为蓝色
DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
解决方案 »
- 求助post怎么设置,保存对数据库的修改
- 一个sql语句的问题?不能用合计函数???why?》
- TDBGridEn出现数据失真,怎么办?
- 有一个c:\list.txt,内有300多个商品编码,现在想导入到memo组件中作操作,请问具体如何操作啊
- 求救:哪位熟悉fastreport?
- 谁知道installshield for d5,d6,d7在哪儿下载啊,谢谢
- 很简单的问题。关于Access数据库。
- 画图的文本输出问题,very急,请大家帮忙!
- "无效的授权说明"?这样的错误?
- 在delphi中根据ComboBox1显示的数据库中楼盘名称的内容,取数据库select楼盘编号,并显示到edit中,这个代码怎么写?
- 注册表读取问题
- SQL Server7中能否用varchar替代nvarchar?以后会不会出问题?
这句话又如何理解,特别是STATE参数,有什么作用?我编译时老出现这个参数错误,why ?能更详细点。