Buscar por:

Como acrescentar características em um objeto?

Código

{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.