چگونه میشود منوی روی یک فرم را راست چین کرد [بایگانی]

naderigh

یک شنبه 17 دی 1385, 12:12 عصر

اگر در solution samples فرم Add a Menu to an SDI Form رفته باشید و فرم مربوطه را اجرا نموده باشید چگونه میشود گزینه منو را برای فرم مربوطه راست چین کرد

mehran_337

یک شنبه 17 دی 1385, 13:56 عصر

باید فرم را راست به چپ کنید این کد را در لود فرم بگذارید فقط اینکه همه چیز راست به چپ می شود کنترل باکس ها را بردارید بهتر است

#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_NOINHERITLAYOU T))