OpenEuphoria

Re: Win32Lib - MenuItem

• Posted by Brian Jackson <bjackson at 2FARGON.HYPERMART.NET> Dec 21, 1999
• 483 views

On Wed, 1 Dec 1999 21:01:45 -0200, MiCkeY <mickeysc at ZAZ.COM.BR> wrote:

>Does anybody here know how can I create MenuItem in MenuItem?
>
>--/--
>
>ie:
>
>-File
>--Print
>---Print
>---Setup
>
>--/--
>
>Thanks,
>Lu=EDs Fernando
>
Try this (untested code follows!)

without warning

include win32lib.ew

global constant

MainWin =3D create(Window,"Main Window", 0, Default, Default, 640, 480, 0),

FileMenu  =3D create(Menu,"&File", MainWin, 0, 0, 0, 0, 0),
PrintMenu =3D create(Menu,"&Print", FileMenu, 0, 0, 0, 0, 0),
PrintMenuItem =3D create(MenuItem,"&Print", PrintMenu, 0, 0, 0, 0, 0),
SetupMenuItem =3D create(MenuItem,"&Setup", PrintMenu, 0, 0, 0, 0, 0)

WinMain(MainWin, Normal)

-- end code

That should do it...

Brian