delphi4arab منتديات دلفي للعرب

السلام عليكم

لدي ListBox بها روابط صوتية من جهازي
كيف يتم اخفاء الامتداد مع امكانية تشغيل المقطع

مثال :

C:\Users\m7job\Videos\Birds_Animation.mov
المطلوب ظهور Birds_Animation.mov فقط في ListBox مع امكانية تشغيلها

[COLOR="SeaGreen"]و عليكم السلام
[/COLOR]
Items يبقا دائما يحتوى على المسار .. لاكن التغيير يكون على مستوى العرض او الرسم (ان صح التعبير)

1- نغير الخاصية Style الى

كود :
lbOwnerDrawVariable
       or
lbOwnerDrawFixed

ابحث فى Help لمعرفت و ضائفهما .

2- فى الحدث DrawItem

كود :
lst1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ExtractFileName(lst1.Items[index]));

3- لمعرفت المسار كاملا يكفى الاطلاع على ما يحتوى ال Item

كود :
lst1.Items[lst1.ItemIndex]

المحجوب

hanipino