Hi Pritpal:

I'm interesting in add submenus to mainmenu

it's posible?

if yes , may you give me an example?

my mainmenu is:

FUNCTION CreateMainMenu()
   LOCAL oMenu, g_oMenuBar := wvtMenu():new():create()

   oMenu := WvtMenu():new():create()
   oMenu:Caption:= "Primer menu"
   oMenu:AddItem( "subopcion uno-uno", {|| alert("uno uno") } )
   oMenu:AddItem( "subopcion uno-dos", {|| alert("uno dos") } )
   oMenu:AddItem( "-" )
   oMenu:AddItem( "Salir"      , {|| salir() } )
   g_oMenuBar:addItem( "",oMenu )

   oMenu := wvtMenu():new():create()
   oMenu:Caption := "Segundo menu"
   oMenu:AddItem( "subopcion dos-uno"     , {|| alert("dos uno")      } )
   oMenu:AddItem( "subopcion dos-dos"       , {|| alert("dos dos")      } )
   oMenu:AddItem( "-")
   oMenu:AddItem( "subopcion dos-tres"     , {|| alert("dos tres") } )
   g_oMenuBar:addItem( "",oMenu )

RETURN g_oMenuBar


best regards
Ciro

--
http://sistemascvc.tripod.com  (la casa del no2imp / the no2imp home )

http://www.oohg.org ( Object Oriented Harbour GUI, more simple, more powerfull )


_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to