نمایش عکس در Db CtrlGrid

[nasr]

سلام

چگونه میتوان در Db CtrlGrid عکس را نمایش داد

منظور این است که یک جدول وجود دارد که شامل آدرس عکسهایی است می خواهیم همه عکسها را نمایش دهد

مانند ACDSee

باتشکر

[DataMaster]

راستش من با گرید معمولی همچین کاری نکردم اما کامپوننتهای DevExpress گرید های فوق العاده قوی داره که ابن امکان رو نیز میده

[_alish_]

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
var
DrawBitmap : boolean ;
begin
with Sender as TDBGrid do begin
if Table1State.Value = 'HI' then begin
Canvas.Brush.Color := clYellow ;
if gdSelected in State then begin
Canvas.Font.Color := clBlack ;
Canvas.Font.Style := Canvas.Font.Style + [fsBold] ;
end ;
DrawBitmap := (Column.FieldName = 'Company') ;
end
else
DrawBitmap := False ;
Canvas.FillRect(Rect) ;
if DrawBitmap then begin
{ if your bitmap is too large, you
should investigate StretchDraw
rather than Draw }
Canvas.Draw(Rect.Left, Rect.Top, MyBitmap) ;
Canvas.TextOut(Rect.Left + MyBitmap.Width + 5, Rect.Top,
Column.Field.AsString) ;
end
else
Canvas.TextOut(Rect.Left, Rect.Top,
Column.Field.AsString) ;
end ;
end ;