نمایش Image در Grid

[delphi developer]

چطور میشه یک عکس را در Grid نمایش داد.

[delphi developer]

نیاز فوری .لطفاً کمک کنید.

[rahele_s]

نیاز فوری .لطفاً کمک کنید.

من خیلی دنبالش گشتم

ولی چیزهایی که پیدا کردم اصلا جواب گو نبود

[vcldeveloper]

فقط با جستجو دو کلمه Image و dbGrid در Google می تونستید صدها مطلب در این زمینه پیدا کنید...
http://delphi.about.com/library/weekly/aa032205a.htm
http://www.techtricks.com/delphi/gridimage.php

[cybercoder]

Quantum Grid‌رو امتحان کنید

[delphi developer]

تشکر اقای کشاورز اما همانطور که Rahele_s گفت این موارد جواب گو نیستند.
مثلاً برای نمایش عکس پرسنل داخل Grid(برای کاربرد های خاص)،من نتومستم height سلول عکس را بزرگتر کنم تا تمام عکس نمایش داده بشه.
مثل اینکه برای اینجور موارد باید به کامپوننت هایی که برای این کار نوشته شدن مثل ExpressQuantumGrid Suit که nobady گفت رجوع کنیم (یا اینکه خودمون بنویسیم)
به هر حال اگه کسی این نوع کامپوننت ها را داره لطفاً بزاره تو سایت تا همه استفاده کنند.
با تشکر...

[Touska]

اینم بد نیست :

http://www.woll2woll.com/InfoPower.html

[delphi developer]

این هم کامپوننت های InfoPower:(فقط عکس های bmp را نمایش میدهند)

[babak869]

اینم یه نمونه از استفاده انواع فرمت های گرافیک در دیتابیس.اگه برای دیتابیس های دیگه مثل SQL Server و Paradox و Oracle خواستید بگید تا آپلود کنم
موفق باشید

[hr110]

1- اگر بخواهید از Grid استفاده کنید ، با استفاده از RowHeights بلندی ردیفها را میتوانید تغییر دهید.
2- کد نمونه و ساده زیر(که عاری از خطا نیست) میتونه شما رو کمی راهنمایی کنه :



procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1]:='d:\1.bmp';
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
X,Y : Integer;
R : TRect;
Image1 : TImage;
begin
if StringGrid1.Cells[ACol,ARow]='' then Exit;
Image1:=TImage.Create(Self);
Image1.Picture.LoadFromFile(StringGrid1.Cells[ACol,ARow]);
StringGrid1.RowHeights[ARow]:=Image1.Picture.Height;
R:=StringGrid1.CellRect(ACol,ARow);
StringGrid1.Canvas.FillRect(R);
StringGrid1.Canvas.Draw(R.Left, R.Top, Image1.Picture.Bitmap);
Image1.Free;
end;

[delphi developer]

مشکلم حل شد از همه ممنونم...

[shirko_r]

در این مورد هم میشه به ما کمک کنید