ماطريقة تحديد لون Item في Listview؟

[M_Mori2010]

السلآم عليكم ورحمة الله وبركاته ...

ماهي طريقة تحديد لون الايتيم الذي ادخله في ليست فيو عن طريق الضغط على بوتون معين
فيقوم بأدخاله ملون مثلا احمر
وجزاكم الله كل خير

[Agmcz]

وعليكم السلام
يمكن وضع مكون ColorBox
واستعمال شيء مثل

كود :

var LI: TListItem; begin ListView1.Font.Color := ColorBox1.Selected; LI := ListView1.Items.Add; LI.Caption := 'Delphi4Arab'; end;

[M_Mori2010]

مشكور اخي

لو رغبت أن اضع خطاً تحت الاسم في Listview الذي يطابق الاسم في Edit كيف

ومشكور اخي تعبتك معي

[Agmcz]

يكفي شيء مثل

كود :

ListView1.Font.Style := [fsUnderline];

[M_Mori2010]

اولاً شكراً لك اخي ..

لكن فهمتني خطأ لقد قصدت شيء اخر مثل

خطاً تحت ايتيم معين وليس كل الليست فيو جزاك الله كل خير اخي..

[M_Mori2010]

اخي مواجهت مشكلة في الكود الخاص باللون وهي انه يتم تغير لون كل الايتيم الموجود في الليست فيو وليس لون ايتم محدد جزاك الله كل خير

[Agmcz]

في الحدث AdvancedCustomDrawItem
ضع

كود :

if Item.Caption = 'Delphi4Arab' then begin Sender.Canvas.Font.Color := ColorBox1.Selected; Sender.Canvas.Font.Style := [fsUnderline]; end;

إدا كانت السلسلة التي ستضاف تساوي Delphi4Arab
فانه سيغير اللون و ستايل الخط

[M_Mori2010]

مشكور اخي وجدت الحل جزاك الله كل خير

كود :

if SubItem = 3 then if (Item.SubItems.Strings[3] = 'Delphi4Arab') then Sender.Canvas.Font.Style :=Sender.Canvas.Font.Style+[fsUnderline];

هذا الحل مشكور مرة اخرة

[M_Mori2010]

اخي الكريم : كيف يمكنني ان اعدل اللون في حال التشغيل بمعنى اخر عندما ادخل الاسم في Edit ويكون مطابق لأحد الاسماء في Listview يثوم بتلوينه عملياً انني استخدم Edit كحوار بحث وعندما اضغط على بوتون بتلوين المطابق له ويبقى اللون ثابت على الذي بحثت عنه جزاك الله كل خير

[Agmcz]

ممكن توضح أكثر + أرفق مثال