조씨 wrote:

>

> DBGrid에 bmp파일이 보이게 할려면 어떻게 하나요?

>

> 건강하시고, 모두들 행복하세요!!!

> 감사합니다.



안녕하셔요!

저도 초보여요! 초보래서 이렇게 어려운 질문을 해결 못하지요!

하지먼.....

제가 가지고 있는 팁중에 그런것이 있으니 보내드리지요

물론 출처를 밝혀야 하것지만.....

'기억이 나질 않습니다.' 꼭 청문회 같네요...

주인님 보시면 용서를 푸하하..





DBGrid에 그림도 나오게 하려면...

음...

필드중에 그래픽 필드등은 DBGrid에서 [Graphic] (맞나?) 등으로

표시되고 만다.

요놈을 DBGrid에서도 볼 수 있도록 해 보자...

간단히 사용할 수 있는 컴포넌트의 소스를 올리도록 하겠다.



--------------------------------------------------------------------------



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('Sirius', [TDBPicGrid]);

end;



end.