السلآم عليكم ورحمة الله وبركاته ...
ماهي طريقة تحديد لون الايتيم الذي ادخله في ليست فيو عن طريق الضغط على بوتون معين
فيقوم بأدخاله ملون مثلا احمر
وجزاكم الله كل خير
وعليكم السلام
يمكن وضع مكون ColorBox
واستعمال شيء مثل
كود :
var
LI: TListItem;
begin
ListView1.Font.Color := ColorBox1.Selected;
LI := ListView1.Items.Add;
LI.Caption := 'Delphi4Arab';
end;
مشكور اخي
لو رغبت أن اضع خطاً تحت الاسم في Listview الذي يطابق الاسم في Edit كيف
ومشكور اخي تعبتك معي
يكفي شيء مثل
كود :
ListView1.Font.Style := [fsUnderline];
اولاً شكراً لك اخي ..
لكن فهمتني خطأ لقد قصدت شيء اخر مثل
خطاً تحت ايتيم معين وليس كل الليست فيو جزاك الله كل خير اخي..
اخي مواجهت مشكلة في الكود الخاص باللون وهي انه يتم تغير لون كل الايتيم الموجود في الليست فيو وليس لون ايتم محدد جزاك الله كل خير
في الحدث AdvancedCustomDrawItem
ضع
كود :
if Item.Caption = 'Delphi4Arab' then
begin
Sender.Canvas.Font.Color := ColorBox1.Selected;
Sender.Canvas.Font.Style := [fsUnderline];
end;
إدا كانت السلسلة التي ستضاف تساوي Delphi4Arab
فانه سيغير اللون و ستايل الخط
مشكور اخي وجدت الحل جزاك الله كل خير
كود :
if SubItem = 3 then
if (Item.SubItems.Strings[3] = 'Delphi4Arab') then
Sender.Canvas.Font.Style :=Sender.Canvas.Font.Style+[fsUnderline];
هذا الحل مشكور مرة اخرة
اخي الكريم : كيف يمكنني ان اعدل اللون في حال التشغيل بمعنى اخر عندما ادخل الاسم في Edit ويكون مطابق لأحد الاسماء في Listview يثوم بتلوينه عملياً انني استخدم Edit كحوار بحث وعندما اضغط على بوتون بتلوين المطابق له ويبقى اللون ثابت على الذي بحثت عنه جزاك الله كل خير
ممكن توضح أكثر + أرفق مثال