*-- Set the window extended style to none-RTL IF BITAND(OldLong, WS_EX_LAYOUTRTL) <> 0 SetWindowLong(ThisForm.HWnd,GWL_EXSTYLE, BITAND(BITXOR(OldLong,WS_EX_LAYOUTRTL),WS_EX_NOINHERITLAYOUT)) ENDIFPlease use PRE tag for code readability.
>*-- 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)) >>