我显示的条件是对的,因为在2000下可以显示,但在98下就没有颜色.
显示条件:
if (datetostr(now)>adochaxun.FieldByName('到期日期').AsString) then
dbgrid2.Canvas.Brush.Color:=12910274;
dbgrid2.canvas.FillRect(rect);
dbgrid2.Canvas.textout(rect.Left+2,rect.top+2,field.asstring);
显示条件:
if (datetostr(now)>adochaxun.FieldByName('到期日期').AsString) then
dbgrid2.Canvas.Brush.Color:=12910274;
dbgrid2.canvas.FillRect(rect);
dbgrid2.Canvas.textout(rect.Left+2,rect.top+2,field.asstring);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货