昨天的GRID颜色问题今天继续

utpcb 2009-06-11 09:21:18
TimeSTemp:=IntToStr(DTI (RCQueryDateTwo1.DateTimePickerE.DateTime-1));
TimeLTemp:=IntToStr(DTI(RCQueryDateTwo1.DateTimePickerE.DateTime+3));

if(ARow>0) then
if (OptNewGrid1.Cells[6,ARow]>TimeSTemp) and (TimeLTemp>OptNewGrid1.Cells[6,ARow]) then
begin
OptNewGrid1.Canvas.Brush.Color:=clRed;
S:=OptNewGrid1.CellS[ACol,ARow];
R :=OptNewGrid1.CellRect(ACol,ARow);
OptNewGrid1.Canvas.FillRect(R);
OptNewGrid1.Canvas.TextOut(R.Left, R.Top,S);
end;
现在这样代码我写好了! 也实现了颜色控制!但是有点小问题
就是我选择时间的时候 比如我选择一个5月4号 查询都正确!但是我再次比如选择 5月8号的时候那个时间选择界面跳出来后遮挡了一部分Gird界面 如果在那一部分如果有符合第一次查询变色条件的数据 已经变色 ,但是我选择5月8号等于不符合了 这个时候我什么动作没做应该颜色不变为何 颜色就时间遮蔽的一部分改变呢
...全文
37 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
utpcb 2009-06-11
  • 打赏
  • 举报
回复
谢谢我知道自己解决咯
bdmh 2009-06-11
  • 打赏
  • 举报
回复
刷新一下Grid

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧