أضف اللون إلى جداول بيانات دلفي

الكاتب：Eve Cole وقت التحديث：2025-02-19 12:48:01

غالبًا ما يتم استخدام التحكم في الشبكة (DBGRID) في دلفي. في عناصر جدول الوحدة في الشبكة ، وما إلى ذلك ، دعنا نستخدم مثالًا بسيطًا لإخبارك بكيفية القيام بذلك.

على سبيل المثال ، إذا كان هناك استرداد للكتاب في الربيع ، يتم تمثيله باللون الأحمر ، وإذا كان هناك استرداد كتاب في الخريف ، يتم تمثيله باللون الأصفر (الشكل 1)

الشكل 1

يمكن تحقيق هذه المتطلبات بسهولة باستخدام وظيفة السحب الذاتي DBGRID. يمكن للمستخدمين التعامل مع حدث OnDrawColumnCell الخاص بـ DBGrid ، حيث يحققون مؤثرات خاصة. لتحديد ما إذا كان السجل يفي بالمتطلبات ، يمكنك استخدام خاصية Datalink الخاصة بـ DBGRID للحصول على البيانات ، ولكن خاصية Datalink of DBGRID هي عضو محمي ويجب استدعاؤه في الفئة الفرعية لـ TCUSTOMDBGRID.

اكتب TmyCustomDbgrid = tcustomdbgrid) ؛ : = datalink.fields [5] .Asstring ؛ : = clred آخر إذا تم عرض SQJTS <> '' ثم // يتم عرض عدد كتب الخريف> 0 في Canvas.brush.color: = clyellow else canvas.brush.color: = clwhite ؛ = clblack ؛

يمكن لهذه الطريقة تمديد طرق التعديل المختلفة لعناصر التحكم الأخرى ، مثل الألوان المختلفة يمكن استخدامها وفقًا لقيمة عنصر البيانات ، ويمكن عرض ألوان مختلفة وفقًا لرقم السجل. باختصار ، يمكن لتطبيق كائنات مرنة مثل اللوحة القماشية والمستقيم وقطعة النقطة النقطية تزيين شبكات مختلفة بطريقة ملونة.