【结帖】光标定位问题**

beidou · 发表于 2008-3-13 16:17:50

选中DataGrid的OptionsDB 的 edgoLoadAllRecords 属性后，滚动鼠标时，光标可以始终指向选定的记录；但是，在DataGrid中增加了记录字体颜色后，一滚动鼠标就特效颜色就没了。这问题怎么解决？

jiahaiminghr · 发表于 2008-3-13 17:49:33

但是，在DataGrid中增加了记录字体颜色后，一滚动鼠标就特效颜色就没了。
楼主这个问题是什么意思，看不懂啊。
还是贴个图吧。

beidou · 发表于 2008-3-18 09:53:45

例如：用(DataGrid)记录中的某个字段（如完成时间）跟系统时间做比较；如果完成时间<系统时间,则记录就显示为红色提醒。如果光标定位到这条红色记录后，其他记录也全部变成红色了。这样能看董吗？

jiahaiminghr · 发表于 2008-3-18 10:07:34

似乎是楼主的代码有问题了。

你是在DataGrid的CustomDrallCell事件中写代码重画了单元格的颜色吗？
如果是，请参考：
http://bbs.justep.com/search.php ... ortorder=descending
http://bbs.justep.com/forum.php? ... ight=customdrawcell

beidou · 发表于 2008-3-19 16:37:45

//已分解
if (TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
   FieldByName('invest_finished').AsString='') or
   (TDataGridColumn(AColumn).ColumnDef.Field.DataSet.
   FieldByName('invest_finished').AsString='0')then
begin
   AFont.Color := Business.System.Graphics.clRed;

end else
   AFont.Color := Business.System.Graphics.clTeal;
end;

zfang · 发表于 2008-3-19 17:19:21

用
if Atext = '' then
试试看

beidou · 发表于 2008-3-20 09:25:04

写详细点吧，我用了AText，记录全变成1了

zfang · 发表于 2008-3-20 09:33:27

if (AText = '.DPT') or (AText = '.OGN') then
AFont.Color := Business.System.Graphics.clRed
else
AFont.Color := Business.System.Graphics.clGreen;
效果图

beidou · 发表于 2008-3-20 09:51:51

如果我的列表中有两个字段都是1或0这样的，那怎么办？而且这样试了一下，好险颜色都不变了，该变颜色的也不变了

zfang · 发表于 2008-3-20 10:13:04

如果我的列表中有两个字段都是1或0这样的，那怎么办？
加个条件就可以
比如这样
if (TDataGridColumn(AColumn).ColumnDef.FieldName = 'SPBH') and (AText = '4') then

		自动登录	找回密码
密码			立即注册