المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيفية ربط ImageList مع ListView

Moha711
22-08-2010, 03:10 AM
السلام عليكم
يسم الله الرحمن الرحيم
كيف لي ان اربط ImageList مع ListView في دلفي
و تظهر الايقونة بجنب ال Caption
With AppsList.Items.Add Do
Begin
Caption := Reg.ReadString(L2.Strings[N]) ;
If (P <> -1) Then SubItems.Add(Reg.ReadString(L2.Strings[P])) ;
If (V <> -1) Then SubItems.Add(Reg.ReadString(L2.Strings[V])) ;

iconHandle := ExtractIcon(Application.Handle,PChar(Path), 0) ;
Icon.Handle := iconHandle;
//Code ..
Finally
Icon.Free;
End;
End;


هده الطريقة لم تجد نفعا
kachwahed
22-08-2010, 03:40 AM
وعليكم السلام ورحمة الله
للنمط TListView ثلاث خصائص لربطه بمكون الصور TImageList في ثلاث وضعيات مختلفة:
StateImages
SmallImages
LargeImages
تتناسب مع شكل العرض ViewStyle
يمكنك أيضا تخصيص صورة لكل عمود Column، بتحديد عمود ثم اختيار ImageIndex.
موفق.
Moha711
22-08-2010, 03:41 PM
شكرا اخي كاش واحد
لكنني اعرف هده الاشياء
كيف يتم وضع الصور في ال Image List تم من بعد ربطه با ListView
كمثال : برامج ال startup manager تضيف ايقونة الرنامج الى العنصر
http://pcwin.com/media/images/screen/Advanced_StartUp_Manager_3343.gif
kachwahed
22-08-2010, 05:01 PM
استخدم أحداث الرسم لتحديد رقم الصورة:
ListView1.Items[0].SubItemImages[0] := 1;
Moha711
23-08-2010, 01:32 AM
ستتعب معي اخي كاش واحد
انا خلاص قمت بجلب الصور و حفظهم في IconList من نوع ImageList
ولدي AppsList من نوع ListView **** ان ارفق لكل Item ايقونته الخاصة
طريقتك تعطي لل SubItem و ليس لل Item
هل هناك طريق اخرى
Lam.Abdeldjalil
23-08-2010, 11:27 AM
و عليكم السلام ورحمة الله

لتحديد صور الـ Item برمجيا

ListView1.Items[0].ImageIndex :=0;بالتوفيق
kachwahed
23-08-2010, 05:09 PM
طريقتك تعطي لل SubItem و ليس لل Item
ذكرتها سابقا، يكفي تحديد الصور من SmallImages
المثال المرفق يضع الصور في كل مكان وفيه أشياء أخرى...
بالتوفيق.