الموضوع: Dexterity
عرض مشاركة واحدة
قديم 17-Apr-2012, 06:59 AM   #16
saif79
عضو جديد
 
تاريخ التسجيل: Apr 2008
الدولة: Oman
المشاركات: 9
إرسال رسالة عبر مراسل AIM إلى saif79 إرسال رسالة عبر مراسل MSN إلى saif79
من مواضيعي  
افتراضي

لقد قمت بعمل نافذة منفردة مع جميع المينوز ايضا حسب الخطوات التالية
1) في ال Startup procedure وضعت عبارة Tools_EnableCommandMenus();
2) قمت بعمل ال Command list , وال command form للوندوز dummy
3) وضعت العبارات التالي ب بروسيجر Bulid_Menus وعملت Call لهذا الالبروسيجر من ال ٍStartup
العبارات هي
local integer result;
local integer menu_tag;
local integer submenu_tag;

{Add the top-level menus}
{File menu}
menu_tag = Command_GetTag(command CL_File of form 'Main Menu');
result = MenuBar_AddMenu(menu_tag);
CommandList_Add(menu_tag, Command_GetTag(command CL_Test of form 'Main Menu'));
CommandList_Add(menu_tag, Command_GetTag(command CMD_Test of form 'Main Menu'));
وعند تنفيذ البرنامج ضهرت المينيوز كما متوقع بدون مشاكل

ولكن عند تطبيق نفس الخطوات على ال dynamics.dic لم يتحقق المطلوب ولا اعرف السبب؟؟

ارجو المساعدة

شكر
saif79 غير متواجد حالياً   رد مع اقتباس