Hi:
Good Day..
Is there way to develop Arabic or Right to left reading order Applications?
I found a code (see below) from this website
http://www.microsoft.com/middleeast/msdn/visualfoxpro.aspx#4 however this is only applicable to Top-Level Form. My form is not a Top-Level Form.
Please advise.
thanks,
Jan
--------------------------
Mirroring the Top-Level Form
Mirroring the window means making the horizontal origin on the right edge of it instead of the left edge. The following example explains how to develop mirrored Windows form control. The example uses two extended window styles:
WS_EX_LAYOUTRTL: Creates a window whose horizontal origin is on the right edge. Increasing horizontal values as you advance to the left.
WS_EX_NOINHERITLAYOUT: A window created with this style does not pass its window layout to its child windows.
To mirror the Top-Level form and its menu without affecting the child forms, you can add the following code in the form Load event
*-- 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))
--------------------------