listbox با عکس

[Batman]

با سلام
دوستان میخواستم بپرسم کسی کامپوننتی سراغ داره که بتونم پست listbox عکس بندازم
ممنونم

[Valadi]

این هم نمونه سورس این تاپیک

موفق و موید باشی

[Batman]

با سلام
جناب Valadi واقعا عذر میخوام منظورم ListView بود
شرمنده

[Valadi]

این هم برای ListView


procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
var jpg :TJpegImage;
Bmp :TBitMap;

begin
//we creat the images
Jpg := TJpegImage.Create;
Bmp := TBitMap.Create;

Try
// the full path of the image
Jpg.LoadFromFile('C:\image1.jpg');
//we adapte the image with the listview
Bmp.Width := Listview1.Width;
Bmp.Height := Listview1.Height;
//we extract the image
Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect,Jpg);
Jpg.Assign(Bmp);
// we give the image to the listview
ListView1.Canvas.CopyRect(Arect,Bmp.Canvas,ARect);
Finally
//we free the recsources
Jpg .Free;
Bmp .Free;
end;


ضمنا از روی همومن سورس هم می شد این کار را کرد

[Batman]

با سلام
جناب valadi این خطا رو میده
میگه TJpegimage رو نمیشناسه

[Valadi]

این هم یک نمونه سورس دیگر

موفق و موید باشی

[Batman]

با سلام
جناب valadi برنامه شما رو دانلود کردم فقط یه button داره وقتی هم که روش کلیک میکنی هیچ اتفاق خاصی نمیفته همین

[Hadizadeh]

با سلام
جناب valadi این خطا رو میده
میگه TJpegimage رو نمیشناسه

از یونیت JPEG استفاده کنید

[Valadi]

جناب آقای Batman
به مسیر عکس دقت کن

BKimg.pszImage := PChar('c:\test.bmp');

موفق وموید باشی

[Batman]

با سلام
آقا درست شد اما اگر دوستان محبت کنند کد جناب valadi رو امتحان کنند میبینن وقتی که یه آیتم رو انتخاب میکنی دو تا انتخاب میشه
در ضمن دوستان آیا چنین کامپوننتی وجود داره اگر ok محبت کنید اسمش یا لینکش رو بدید
ممنون میشم

[Valadi]

من با این ابزار دلفی زیاد کار نکردم و اطلاعات در مورد این ابزار کمه
چیزی پیدا کردم از دوستانمون دریغ نمی کنم

موفق و سر بلند باشی