如何在dbgrid中显示图形。

各位大虾：  
          要如何才能在Dbgrid中显示图形呢，请各位大虾指点 问题点数：50、回复次数：1Top

1 楼lotto（乐透）回复于 2000-08-16 11:19:00 得分 50

unit   DBPicGrd;  
   
  interface  
   
  uses  
      DBGrids,   DB,   DBTables,   Grids,   WinTypes,   Classes,   Graphics;  
   
  type  
      TDBPicGrid   =   class(TDBGrid)  
      protected  
          procedure   DrawDataCell(const   Rect:   TRect;  
              Field:   TField;   State:   TGridDrawState);   override;  
      public  
          constructor   Create(AOwner   :   TComponent);   override;  
      published  
          property   DefaultDrawing   default   False;  
      end;  
   
  procedure   Register;  
   
  implementation  
   
  constructor   TDBPicGrid.Create(AOwner   :   TComponent);  
  begin  
      inherited   Create(AOwner);  
      DefaultDrawing   :=   False;  
  end;  
   
  procedure   TDBPicGrid.DrawDataCell(const   Rect:   TRect;   Field:   TField;    
  State:   TGridDrawState);  
  var  
      bmp   :   TBitmap;    
  begin  
      with   Canvas   do  
      begin  
          FillRect(Rect);  
          if   Field   is   TGraphicField   then  
                  try  
                      bmp   :=   TBitmap.Create;  
                      bmp.Assign(Field);  
                      Draw(Rect.Left,   Rect.Top,   bmp);  
                  finally  
                      bmp.Free;  
                  end  
          else  
              TextOut(Rect.Left,   Rect.Top,   Field.Text);  
      end;  
  end;  
   
  procedure   Register;  
  begin  
      RegisterComponents('Custom',   [TDBPicGrid]);  
  end;  
   
  end.Top

相关问题

• tdbpicgrid
• dbgrids
• rect
• aowner
• bmp
• field
• procedure
• begin
• create

• 帖主：shushan
• lotto

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载