CSDN博客

img hoge66

撤销提示

发表于2004/9/18 8:44:00  779人阅读

分类: deiphi技术

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;

0 0

相关博文

我的热门文章

img
取 消
img