撤销提示

procedure Tfrmfy.DBGridEh7DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);

begin

if dsbx.FieldByName('bx_check').AsInteger=1 then
begin
 if column.fieldname='bx_endtime' then
 begin
     //行坐标，判断某字段值（根据实际情况用column.Field.asString='abc' 之类）
 if int(column.Field.AsDateTime)<(int(now)+7) then   //----此处即ID＝45
   with sender as Tdbgrideh do
   begin
    canvas.Brush.color:=clyellow; //改变底色
    canvas.Font.color:=clred;     //改变字体颜色
    DefaultDrawColumnCell(Rect, DataCol,Column, State);
   end;
  if int(column.Field.AsDateTime)=(int(now)+7) then   //----此处即ID＝45
   with sender as Tdbgrideh do
   begin
    canvas.Brush.color:=clblue; //改变底色
    canvas.Font.color:=clwhite;     //改变字体颜色
    DefaultDrawColumnCell(Rect, DataCol,Column, State);
   end;
 end;//end field
end; //end dsbx

end;