06‏/02‏/2013

DRAWING IN DBGRID CANVAS Using delphi





 أول شيء نفتح مشروع جديد

و نضع المكونات التالية :
نحتاج لقاعدة بيانات للتجريب عليها

جدول واحد يكفي
 une seule table il suffit


المهم كما يجب وضع مكون imagelist
و dbgrid

كدلك 

سنتعامل مع الحدث OnDrawColumnCell


أول شيء سأريكم النتيجة النهائية للدرس
و هي رسم أيقونات داخل DBGRID تعبر عن قيم
يمكن التعبير عنها بهذه أليقونات

الصورة من أحد برامجي


بعد أن تضعو جميع المكونات نبدأ أول شيء ننشأ  حقل field في الجدول الدي سنرسم فيه 
و هو حقل من نوع Calc  يعني يحسب Calcfield


نتوجه إلى مكون adotable أو أي مكون آخر ربطناه مع الجدول لا يهم نوعه 
ندهب للجدول الخاص بنا و نختار
fields editor


نقوم بضغط أيمن للفأرة و نختار New field

بعد دلك نقوم بمللأ الخانات كما يلي :

كما تلاحظون أخترت field type من نوع Calculated 

و type إخترت string
و أعطيت الحقل إسم Status 



نكمل على بركة الله نتجه الآن لل IMAGELIST 
نقوم بوضع بعض الأيقونات الجميلة و المعبرة

كما في الصورة

 


بعد ذلك نتجه للل DBGRID الخاص بنا لنقوم بالرسم كما و دلك من خلال الحدث

OnDRAW COLUMNCELL


قد سبق لي و شرح هذا الحدث في آخر درس لي في المنتدى الشهر السابق

هو حدث متخصص عادة في الرسم و التحقق في كل خانة من خانات ال DBGRID

له عدة إستعمالات دكرت واحدة في الدرس السابق

و اليوم سنستعمل الحدث في الرسم

على بركة الله نقوم بكتابة مجموعة من العمليات داخل الحدث للرسم

و ذلك كما يلي و قد شرحت الكود بالفرنسية

 Snagitههههه راني فنيان عجزت إستعمال 
الدرس كتبته على 23:29  راني راقد و نكتب فيه ههههه

المهم أترككم مع الكود



بعض الملاحظات المهمة : يجب عليك دائما تحديد مكان الرسم و ذلك كما ترون وضعت إحداثيات رسم معتمدا على شكل خانات DBGRID

لا تنسو كدلك شرط التواجد داخل الخانة التي نرسم فيها Column.fieldname

 هذا و أكون قد إنتهيت من تقديم هذا الدرس البسيط جدا



يارب تكونوا أستفدتوا من الموضوع
كل اللى طالبه دعوة ليا من ظهر الغيب و أن ربنا يوفقنى فى دراستى
أستودعكمـ الله
السلام عليكم و رحمة الله و بركاته



0 commentaires:

إرسال تعليق