+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اود انشآء او التعديل على ال Listbox ؟ (/showthread.php?tid=1458)
الصفحات:
1
2
اود انشآء او التعديل على ال Listbox ؟ - AL-MOB4RM3G - 31-12-2009
السلام عليكم ورحمة الله,,
اخوآني الكرام,
اود ان اعدل على ال Listbox حتى يصبح بالشكل التآلي,, (او شئ مثل هذا)
![[صورة: speciallistbox.jpg]](http://img694.imageshack.us/img694/990/speciallistbox.jpg)
اطلعت على درس الدورة عن النشآء الكومبننتات لكن حقيقة رغم ذلك لا اعرف من اين ابدئ,
هناك في الحقيقة امرين احتاج التعديل عليهما,
الأول,
كل Item يحتاج الى Border حتى يصبح كما في الأعلى,
ثانيا,
عند الضغط على Item,
بدل الّون الإفترآضي الأزرق سيكون مثلا لون الأحمر او شئ من هذا,,
حسب البحث, فهناك شئ يجب عمله على OnDrawItem والله اعلم,
السمكة مهمّة بالنسبة لي, لكن الأهم هو ان اتعلم كيف اصيدها,,
بارك الله لكم
وجزآكم خيرا
اود انشآء او التعديل على ال Listbox ؟ - mohfa - 31-12-2009
اي نسخة من دلفي تعمل عليها .؟
اود انشآء او التعديل على ال Listbox ؟ - AL-MOB4RM3G - 31-12-2009
إقتباس :اي نسخة من دلفي تعمل عليها .؟
آسف, نسيت كتآبة هذا,
الدلفي 2010
بارك الله لك.,
اود انشآء او التعديل على ال Listbox ؟ - mohfa - 31-12-2009
لي مكون على شكل ListBox ولكن برمجته كانت From scratch برمجته خصيصا للبتار فيه ميزات كثيرة منها ماذكرته ولكنني استعمله تحت delphi 7 , لم اجربه مع 2009 او 2010 اذا اردت سوف ارسل لك نسخة وتقوم بتجربتها تحت 2010 واذا استلزم الامر قم بالتعديل عليه لكي تعمل على 2009 او 2010
اود انشآء او التعديل على ال Listbox ؟ - AL-MOB4RM3G - 31-12-2009
طيب حسناً, بارك الله فيك, انتظر المكون منك ان شاء الله,
ساستخدمه كحل مؤقت, (حتى اصنع وآحدا بنفسي)
ومع هذا, فأنا اود فعرفة الطريقة من البدآية بارك الله لكم
:bye1:
اود انشآء او التعديل على ال Listbox ؟ - hanipino - 01-01-2010
هدا عبارة عن مكون ListBox عادى ... قم بلصق هده الكتابة على ال
Form
PHP كود :
object ListBox1: TListBox
Left = 16
Top = 24
Width = 249
Height = 100
Style = lbOwnerDrawVariable
BorderStyle = bsNone
Color = 11775662
ItemHeight = 20
Items.Strings = (
'Item 0'
'Item 1'
'Item 2'
'Item 3'
'Item 4')
TabOrder = 0
end
جرب هدا فى حدث DrawItem
PHP كود :
begin
with ListBox1.Canvas do
begin
Pen.Color := RGB(127, 157, 185);
if Index < 1 then
Rectangle(Rect)
else
Rectangle(Rect.Left, Rect.Top - 1, Rect.Right, Rect.Bottom);
if (odSelected in State) then
begin
Brush.color := ListBox1.Color;
Font.color := 255;
Fillrect(Rect);
end;
TextOut(Rect.Left + 3, Rect.Top + 2, ListBox1.Items[Index]);
end;
end;
النتيجة
![[صورة: 725142558.png]](http://www13.0zz0.com/2010/01/01/06/725142558.png)
اود انشآء او التعديل على ال Listbox ؟ - AL-MOB4RM3G - 01-01-2010
جزآك الله خيرا اخي هاني,
بالنسبة لهذا, عند وضعه وعمل Scroll بالموس يحدث خلل,
PHP كود :
begin
with ListBox1.Canvas do
begin
Pen.Color := RGB(222, 222, 222); // BorderColor
if Index < 1 then
Rectangle(Rect)
else
Rectangle(Rect.Left, Rect.Top - 1, Rect.Right, Rect.Bottom);
if (odSelected in State) then
begin
Brush.color := $00cccccc;//ListBox1.Color;
Font.color := $888888;//Text Color
Fillrect(Rect);
end;
TextOut(Rect.Left + 3, Rect.Top + 2, ListBox1.Items[Index]);
end;
end;
الخلل هو, بعد الضغط على احد ال items ولنفترض الخآمسة,
وبعدها عمل Scroll يحدث تلوّن في السيت بوكس غير صحيحة,,
هل هناك طريقة لتفآدي هذا الخطأ ؟
وهذا,
PHP كود :
if (odSelected in State) then
جزآك الله خيرا اخي الكريم
اود انشآء او التعديل على ال Listbox ؟ - AL-MOB4RM3G - 01-01-2010
عذرا, يبدوا الخلل لا يحدث مع الدلفي 2010, فقط الدلفي 7,,
بقي هذه,
إقتباس :ال state معرّف townerdrawstate لكن ما هو ال state على ارض الوآقع ؟
اود انشآء او التعديل على ال Listbox ؟ - hanipino - 01-01-2010
TOwnerDrawState
هو عبارة عن مجموعة من الاحداث الخاصة بال Items كل حدث ودوره و odSelected حدث من بين تلك الاحداث وهو خاص ب ... ينفد عند اختيار احدى ال Item وينفد على هدا الاخير فقط .
بالنسبة لخلل التلوين انا لا يحدث عندى اى خلل ... ارفق صورة للخلل.
اود انشآء او التعديل على ال Listbox ؟ - hanipino - 01-01-2010
هدا غير شكل FocusRect ... نعم هكدا احسن ...
PHP كود :
Font.color := $888888;