Como carregar imagem em um grid?

[Cereal_Killer 0]

Olá amigos,

 

Essa é a dúvida. Como carregar imagem em um grid no Delphi?

 

Valeu! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[EuToComProblema! 1]

encontei este exeplo na net...

 

 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

Bitmap : TBitmap;

begin

// testa se o campo é um TGraphicField

if Column.Field is TGraphicField then

with DbGrid1.Canvas do begin

// limpa a informação anterior

FillRect(Rect);

// cria o bitmap

Bitmap := TBitmap.Create;

try

// joga o conteúdo do campo para o bitmap

Bitmap.Assign(Column.Field);

// desenha no canvas da grid o bitmap

Draw(Rect.Left, Rect.Top, Bitmap);

finally

Bitmap.Free;

end;

end;

end;

 

tinha um modo que eu achava mais simples... não estou lembrado, se eu achar posto de novo.