撤销提示

来源：互联网发布：ubuntu 16 安装samba 编辑：程序博客网时间：2024/05/01 22:33

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;