Criar Sub_meu com a GTWVW

[Renato Xavier Corradi]

Amigos, não sei como fazer para criar sub-menus usando a GTWVW. Se alguém puder dar uma dica, agradeço.

Abraços

Renato

[angeiras]

Olá,

Eu criei uns defines :

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 )

e em seguida, pra fazer os menus fica facil. Por exemplo :

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 )

e basta sair criando MENUITEM e SUBMENUITEM a vontade.

[]s
Manoel Angeiras

[Renato Xavier Corradi]

Valeu Angeiras, deu certo. Obrigado

[Mário Isa]

qual a LIB para função fmenu() ?

[sygecom]

Olá Mario,
FMENU() você subistui pelas suas funções que deseja chamar.