طلب الكود الذى يجعل الmenu من اليمين الى البسار

أى خدمة

يسلمو المعلم عبده :rose:

السلام عليكم

اقدم لكم فائق الاحترام

واشكركم جزيلا على القائدة التي تقدمونها من خلال هذا المنتدى

هذه اول مشاركة لي واول رد لي في هذا المنتدى

ولقد استفدت كثيرا من مشاركات الاعضاء

وشكرا خاص للعضو

على المثال على وضعه في هذا الموضوع

شكرا جزيلا لك وبارك الله فيك

اهلا وسهلا بك

والحمد لله انك وجدت ماينفعك

لكل من يبحث عن طريقة  عرض القائمة بواسطة النموذج 

menu to at top level form 

بالصيغة العربية اي من اليمين لليسار 

هنالك طريقتين 

الاولى : هي تغيير اعدادات النظام (وندوز ) من لوحة التحكم ثم اللغات والمدى للدول وجعل الاعدادات عربية من عرض والارقام وغيرها واعتماد الصيغة الوطنية للغة ومن ثم تاكيدها في اعدادات الفيجوال فوكس برو 

ثانيا : عن طريق ايعازات توضع في الحدث load  للنموذج واليكم الايعازات كما تم ذكرها من الشركة مايكروسوفت 

**Define extended Windows styles
#DEFINE GWL_EXSTYLE -20
#DEFINE WS_EX_LAYOUTRTL 0x400000
#DEFINE WS_EX_NOINHERITLAYOUT 0x100000
*-- Define the Get window long API
DECLARE INTEGER GetWindowLong IN user32;
INTEGER hWnd, INTEGER nIndex 
*-- Define the Set window long API
DECLARE INTEGER SetWindowLong IN user32;
INTEGER hWnd, INTEGER nIndex, INTEGER dwNewLong 
*-- Get this form's current style. 
OldLong = GetWindowLong(ThisForm.HWnd, GWL_EXSTYLE)
*-- Set the window extended style RTL non-inheritable.
SetWindowLong(ThisForm.HWnd,GWL_EXSTYLE,; 
BITOR(OldLong,WS_EX_LAYOUTRTL,WS_EX_NOINHERITLAYOUT))

ويمكن نسخ الكود وجعله في النموذج المرفق للمثال بداية الموضوع وسوف تلاحظ اتجاه القائمة 

وتجياتي للجميع