Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: BELBAL SAID
  Where is BELBAL SAID?
 constantine
 Algeria
 BELBAL SAID
 Tags
Subject: right to left menu
Thread ID: 143371 Message ID: 143371 # Views: 2 # Ratings: 0
Version: Visual FoxPro 9 Category: Menus
Date: Tuesday, August 28, 2007 11:57:02 AM         
   


Dear Experts,
I want to show Right to Left Menu
After searching in (foxite) I found this solution,
it work but toolbar disappear , probably due to DOCK method
please help me.

************************************************************
SET SYSMENU TO rtljustify
SYS(4015)
#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))
**************************************************************
do menu1.mpr with this,.T.
public otoolbar,ofin
set classlib to d:\atelier\wbudget\budclass.vcx
wok=.F.
thisform.oToolbar = CREATEOBJECT('barfiche')
thisform.oToolbar.dock(0)
thisform.oToolbar.Visible = .T.
thisform.oToolbar.show()
thisform.ofin = CREATEOBJECT('bardos')
thisform.ofin.dock(0)
thisform.ofin.Visible = .T.
thisform.ofin.show()
**************************************************************

ENTIRE THREAD

right to left menu Posted by BELBAL SAID @ 8/28/2007 11:57:02 AM