Page 1 of 1
Change in MENU levels?
Posted: Tue Feb 23, 2010 6:43 am
by skiman
Hi,
I'm using the menusystem up to 4 levels in my application. It seems as with 253, it is working up to three levels. I didn't change anything to my code, and suddenly it isn't working anymore. The only change is I'm using 253 at this moment.
Regards,
Chris.
Re: Change in MENU levels?
Posted: Tue Feb 23, 2010 7:02 am
by Tom
Hi, Chris.
I use build 253. This works - as you can see in the attachment - without problems at my place:
Code: Select all
PROCEDURE MAIN()
LOCAL GetList := {}
DCMENUBAR oMenuBar
DCSUBMENU oMenu1 PROMPT 'Test1' PARENT oMenuBar
DCSUBMENU oMenu2 PROMPT 'Test2' PARENT oMenu1
DCSUBMENU oMenu3 PROMPT 'Test3' PARENT oMenu2
DCSUBMENU oMenu4 PROMPT 'Test4' PARENT oMenu3
DCSUBMENU oMenu5 PROMPT 'Test5' PARENT oMenu4
DCMENUITEM 'Test' PARENT oMenu5 ACTION {||MsgBox('Test')}
@ 1,1 DCSAY 'Test'
@ 5,1 DCSAY 'Test'
DCREAD GUI FIT ADDBUTTONS
RETURN
Re: Change in MENU levels?
Posted: Tue Feb 23, 2010 7:07 am
by rdonnay
I need more information. The below test program works fine for me.
Click on this url to see it working:
http://bb.donnay-software.com:8080/tuto ... utest.html
Code: Select all
#INCLUDE "dcdialog.CH"
FUNCTION Main()
LOCAL GetList[0], oMenuBar, oMenu1, oMenu2, oMenu3, oMenu4
DCMENUBAR oMenuBar
DCSUBMENU oMenu1 PROMPT 'Menu 1' PARENT oMenuBar
DCMENUITEM 'Menu 1 / Item 1' PARENT oMenu1 ACTION {||Msgbox('1/1')}
DCMENUITEM 'Menu 1 / Item 2' PARENT oMenu1 ACTION {||Msgbox('1/2')}
DCSUBMENU oMenu2 PROMPT 'Menu 2' PARENT oMenu1
DCMENUITEM 'Menu 2 / Item 1' PARENT oMenu2 ACTION {||Msgbox('2/1')}
DCMENUITEM 'Menu 2 / Item 2' PARENT oMenu2 ACTION {||Msgbox('2/2')}
DCSUBMENU oMenu3 PROMPT 'Menu 3' PARENT oMenu2
DCMENUITEM 'Menu 3 / Item 1' PARENT oMenu3 ACTION {||Msgbox('3/1')}
DCMENUITEM 'Menu 3 / Item 2' PARENT oMenu3 ACTION {||Msgbox('3/2')}
DCSUBMENU oMenu4 PROMPT 'Menu 4' PARENT oMenu3
DCMENUITEM 'Menu 4 / Item 1' PARENT oMenu4 ACTION {||Msgbox('4/1')}
DCMENUITEM 'Menu 4 / Item 2' PARENT oMenu4 ACTION {||Msgbox('4/2')}
DCREAD GUI TITLE 'Menu Test'
RETURN nil
* --------------
PROC appsys ; return
Re: Change in MENU levels?
Posted: Tue Feb 23, 2010 9:23 am
by skiman
HI,
I have to check my code.
PS. Tom, your book is posted today. I hope you receive it soon.
Chris.
Re: Change in MENU levels?
Posted: Tue Feb 23, 2010 9:30 am
by Tom
Hi, Chris.
Tom, your book is posted today. I hope you receive it soon.
Thanks a lot!
Tom.
Re: Change in MENU levels?
Posted: Wed Feb 24, 2010 3:05 am
by skiman
Hi,
I found it. It was a stupid error in my code. Sorry for this, and thanks for the response.