Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1260261
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-05-12 16:04:35



我写了以下代码:但是还是显示数字  
  procedure   TMakeTicket.DBGridEh3DrawColumnCell(Sender:   TObject;  
      const   Rect:   TRect;   DataCol:   Integer;   Column:   TColumnEh;  
      State:   TGridDrawState);  
  begin  
      inherited;  
      with   DBGridEh3.Canvas   do  
      case   ADOQuery2.FieldByName('status').AsInteger   of  
      1:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('处理'))   div   2,'处理');  
      2:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('未处理'))   div   2,'未处理');  
        end;  
    DBGridEh3.DefaultDrawColumnCell(Rect,   DataCol,   Column,   State);  
  }

去掉inherited试试

procedure   TMakeTicket.DBGridEh3DrawColumnCell(Sender:   TObject;  
      const   Rect:   TRect;   DataCol:   Integer;   Column:   TColumnEh;  
      State:   TGridDrawState);  
  begin  
      inherited;  
      if   Column.FieldName   =   'Status'   then  
      begin  
          with   DBGridEh3.Canvas   do  
          begin  
              FillRect(Rect);  
              case   ADOQuery2.FieldByName('status').AsInteger   of  
              1:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('处理'))   div     2,'处理');  
              2:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('未处理'))   div   2,'未处理');  
          end;  
      end   else  
      DBGridEh3.DefaultDrawColumnCell(Rect,   DataCol,   Column,   State);

1:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('处理'))   div     2,'处理');  
              2:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('未处理'))   div   2,'未处理');  
   
  ============可以简洁点  
   
    1:TextOout(Rect.Left,   Rect.Top+2,'处理');  
    2:TextOout(Rect.Left,   Rect.Top+2,'未处理');

1:TextOout(Rect.Left+2,   Rect.Top+2,'处理');  
    2:TextOout(Rect.Left+2,   Rect.Top+2,'未处理');



--------------------------
新闻:微软触控平台Surface SP1发布
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看
阅读(375) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~