PC Toledo

Código: Selecionar todos

#command CREATEMENU <hMenu>         => ;
         <hMenu> := WVW_CreateMenu()

#command CREATESUBMENU <hMenuItem>     ;
         OF <hSubMenuItem>             ;
         PROMPT <cPrompt>           => ;
         <hSubMenuItem> := WVW_CreateMenu(); WVW_AppendMenu( <hMenuItem>, MF_POPUP, <hSubMenuItem>, <cPrompt> )

#command MENUITEM <hMenuItem>          ;
         OF <hMenu>                    ;
         PROMPT <cPrompt>           => ;
         <hMenuItem> := WVW_CreateMenu(); WVW_AppendMenu( <hMenu>, MF_ENABLED + MF_POPUP, <hMenuItem>, <cPrompt> )

#command SUBMENUITEM <hMenuItem>       ;
         PROMPT <cPrompt>              ;
         ACTION <nAction>              ;
         FLAGS <nFlags>             => ;
         WVW_AppendMenu( <hMenuItem>, <nFlags>, <nAction>, <cPrompt> )

#command MENUTRACOS   <hMenuItem>   => ;
         WVW_AppendMenu( <hMenuItem>, MF_SEPARATOR )

Código: Selecionar todos

CREATEMENU hMenu
  MENUITEM hMenuItem OF hMenu PROMPT "~Cadastros"
     SUBMENUITEM hMenuItem PROMPT "~Filiais" ACTION OPC_1 FLAGS fMenu( OPC_1 )
     SUBMENUITEM hMenuItem PROMPT "~Grupos" ACTION OPC_2 FLAGS fMenu( OPC_2 )
     MENUTRACOS  hMenuItem
     SUBMENUITEM hMenuItem PROMPT "~Produtos" ACTION OPC_3 FLAGS fMenu( OPC_3 )
     SUBMENUITEM hMenuItem PROMPT "~Clientes" ACTION OPC_4 FLAGS fMenu( OPC_4 )

WVW_SetMenu(, hMenu )