الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف استطيع عمل قائمه (لست) ملونه Tlistbox

بدأه U S B في 11 سبتمبر 2008 · 4 رد · 782 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ألسلام عليكم ورحمة الله

اخوان كيف استطيع عمل قائمة وكل عنصر داخلها له لون معين

قصد كل item

وهذا مثال

99948c84e3734cfe.jpg

#2

أولاً هذه ListView وليست TListBox

هذا مكون خاص تبع شركة SUISkin

وليس من مكونات ديلفى الأصلية

لكن لايوجد اختلاف بينة وبين TListView

مرفق مثال يحتوى على جميع العمليات الخاصة بالتلوين ووضع الخلفية

post-87900-1221145620_thumb.gif

post-87900-1221145627_thumb.gif

article_16_demo.zip

تم تعديل هذه المشاركة بواسطة Swift في 11 سبتمبر 2008 في 18:07

Comming Soon

#3

طيب شكرا وجاري التجربه

#4

ايضاً يمكن ذلك بطريقة بسيطة لل TlistBox عن طريق وضع خاصية Style = lbOwnerDrawFixed وكتابة الكود التالي في حدث OnDraawItem

  if Index mod 2 = 0 then
	lst1.Canvas.Brush.Color := clSilver;

  lst1.Canvas.FillRect(Rect);
  lst1.Canvas.TextOut(rect.Left,Rect.Top,lst1.Items[Index]);

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#5

اعتقد الكود السابق يلزمه تعديل بسيط وهو عندما يتم اختيار عنصر معين يجب ان يكون لونه بالازرق المعتاد

  if odSelected in State then
	lst1.Canvas.Brush.Color := clHighlight
  else
  if Index mod 2 = 0 then
	lst1.Canvas.Brush.Color := clSilver;

  lst1.Canvas.FillRect(Rect);
  lst1.Canvas.TextOut(rect.Left,Rect.Top,lst1.Items[Index]);

ايضا لاحظ ان ان lst1 هو اسم ال ListBox لدي، يمكن التغاضي عن الاسم عن طريق استخدام المعامل Control وعمل كاست له ك TlistBox

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…