Como acrescentar caracteristicas em um objeto

Categoria : Banco de Dados

Dica :

Para visualizar uma imagem em um DBGrid, você vai ter que criar um descendente dele que aceite essas figuras. O código está abaixo:

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.