وضع اختصارات اسفل القائمة

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

كما تعلم ان فيجوال فوكس برو - ترتكز على برمجة الكائنات - وسوف تلاحظ ذلك فى الخطوات التالية

التى يمكنك اتباعها لعمل شريط الادوات Toolbar

1 - من قائمة ملف File Menu - اختار New - ثم Class - ثم OK

2 - اختار الاسم الذى يناسبك - وليكن mytoolbar (الكود يعتمد على الاسم) - ثم اختار Based on Toolbar

3 - سوف يتم فتح شاشة تصميم - خاصة بال Classes - وهى شبيهة بمصمم النماذج Form Designer - قم بتصميم شريط الادوات عادى جدا

4 - عند اضافة الازار الى شريط الادوات - اضبط الخاصية Special Effects بحيث تكون القيمة 2 بمعنى hot tracking وهذا اذا كنت تريد ان يكون شكل الازرار Flat Toolbar - وبالتاكيد تضبط الخاصية Themes بحيث تكون True - وكل ذلك طبعا من نافذة الخصائص Properties Window

5 - اختار قائمة Class - ثم Edit Property/Method - ثم اضف خاصية جديدة باسم oformref (او اى اسم اخر تراه مناسبا - الكود يعتمد على الاسم)

- قم بفتح نافذة الاحداث - الحدث init event واضف التعليمات التالية

#DEFINE ERR_NOFORMPARM_LOC  "You must pass a form reference to create this toolbar."
PARAMETER oForm
IF TYPE("m.oForm")#"O" OR ISNULL(m.oForm) OR UPPER(oForm.BaseClass) # "FORM" 
	MESSAGEBOX(ERR_NOFORMPARM_LOC)
	RETURN .F.
ENDIF
THIS.oFormRef = oForm

6- قم بانشاء نموذج form - او افتح النموذج - الذى تريد ان يشتمل على toolbar

7- قم باختيار قائمة form - ثم edit property/method - ثم اضف خاصية جديدة بعنوان omytoolbar او اى اسم تراه مناسبا

8 - افتح نافذة الاحداث events window الخاصة بالنموذج وبالتحديد الحدث Init Event الذى يتم تنفيذه بعد حدث load وبعد انشاء جميع الكائنات - ولكن قبل رسم اى شىء

9 - اكتب التعليمات التالية

set classlib to mytoolbar additive
thisform.omytoolbar = create("mytoolbar",thisform)
thisform.omytoolbar.show()
release classlib mytoolbar

مع تحياتى

محمود فايد