+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اخفي الامتداد في ListBox.ItemIndex (/showthread.php?tid=3690)
كيف اخفي الامتداد في ListBox.ItemIndex - المحجوب - 14-12-2011
السلام عليكم
لدي ListBox بها روابط صوتية من جهازي
كيف يتم اخفاء الامتداد مع امكانية تشغيل المقطع
مثال :
C:\Users\m7job\Videos\Birds_Animation.mov
المطلوب ظهور Birds_Animation.mov فقط في ListBox مع امكانية تشغيلها
كيف اخفي الامتداد في ListBox.ItemIndex - hanipino - 14-12-2011
[COLOR="SeaGreen"]و عليكم السلام
[/COLOR]
Items يبقا دائما يحتوى على المسار .. لاكن التغيير يكون على مستوى العرض او الرسم (ان صح التعبير)
1- نغير الخاصية Style الى
كود :
lbOwnerDrawVariable
or
lbOwnerDrawFixed2- فى الحدث DrawItem
كود :
lst1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, ExtractFileName(lst1.Items[index]));3- لمعرفت المسار كاملا يكفى الاطلاع على ما يحتوى ال Item
كود :
lst1.Items[lst1.ItemIndex]