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

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

يارب تكونوا أستفدتوا من الموضوع

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

أستودعكمـ الله

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

تابـع القـراءة

How to get System Directory Name using delphi

How to get System Directory using delphi !!

Hello every one , in this topic I'll represent to you the Function responsible for getting System directory Full Name !!

First : 

You have to use those library in delphi :

In delphi 7 version : use those   ( Windows, SysUtils, Classes, IOUtils ) 

In delphi Xe2 and higher : use those space-names  ( Winapi.Windows, System.SysUtils, System.Classes, IOUtils )

Go to the uses section code and type :

uses
    Windows, SysUtils, Classes, IOUtils;

Second : 

And then go to the Implementation section and type this function :

function GetSystemDir: AnsiString; var   buf: array [0 .. MAX_PATH] of Char; begin   GetSystemDirectory(buf, SizeOf(buf));   result := AnsiString(buf); end;

How Can I  use this ?

with a simple call ..... GetSystemDir()
  the function retrun the full name of system directory
in a format of AnsiString
you can convert to string and any other format !! it not a problem .
Thank you. 

تابـع القـراءة

How to check internet connection using delphi

How to check internet connection using delphi!!

Hello every one , in this topic I'll represente to you the Function responsible for making sure your internet connection.

First : 

You have to use those library in delphi :  ( WIndows , WinInet )

Go to the uses section code and type :

uses
   Windows,WinInet;

Second :

And then go to the Implementation section and type this function :

function checkInternet(): boolean;  var   dwFlags : DWORD; begin   dwFlags :=INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN            + INTERNET_CONNECTION_PROXY ;   RESULT := InternetGetConnectedState(@dwFlags,0); end;

How Can I  use this ?

with a simple call ..... checkInternet()
  the function retrun 1 if connection 
else return 0 if disconnection
Thank you. 

تابـع القـراءة

How to use BalloonHint in delphi (درس فيديو )

 

السلام عليكم ورحمة الله تعالى وبركاته

مرحبا بكم إخواني زوار مدونة  علوم الحاسب

حول الدرس

الدرس الثاني من دروس الدلفي DELPHI

شرح التعامل مع مكون BalloonHint

مشاهدة الدرس
من على اليوتوب في مدونتنا

تابـع القـراءة

التعامل مع الحدث ( DBGrid1DrawColumnCell) في الدلفي ( درس فيديو)

و الصلاة و السلام على اشرف المرسلين

أما بعد

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

في الدلفي

الشرح سهل و بسيط يمكنك إستعمال الطريقة لعدة اشياء مثلا للتحقق من قيمة أدخلت لل DBGRID

أترككم مع الفيديو

فرجة ممتعة 

 

تابـع القـراءة