Página 1 de 1

Menu com GtWvW ???

Enviado: 16 Jan 2007 15:07
por Cezar
Boa tarde,

Como faço um menu com vários subitens ??

1.cadastros

2.relatorio
2.1.venda
2.1.1.vendas por produto
2.1.2.vendas por vendedor
2.2.compras
2.2.1.compras por produto

3.movimentos

Existe algum manual do gtwvw ou um site com exemplos ???


grato

cez_a@ubbi.com.br

Enviado: 17 Jan 2007 10:36
por Luiz
Documentação e exemplos voce pode encontrar dentro da pasta contrib/gtwvw

exemplo de menus:

Código: Selecionar todos

#include "\xbase\xharbour\contrib\what32\include\winuser.ch"

Function Main()
  hMainMenu = WVW_CreateMenu( )
  hSubMenu1 = WVW_CreateMenu( )
    WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING, 101, "Opção1"  )
    WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_STRING, 102, "Opção2 " )
    hSubMenu1_1 = WVW_CreateMenu( )
      WVW_AppendMenu( hSubMenu1_1 , MF_ENABLED + MF_STRING, 105, "Opção5"  )
    WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , hSubMenu1_1 , "Sub",  )
    
  WVW_AppendMenu( hMainMenu     , MF_ENABLED + MF_POPUP , hSubMenu1 , "Submenu1",  )
  
  hSubMenu2 = WVW_CreateMenu( )
    WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_STRING, 103, "Opção3"  )
    WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_STRING, 104, "Opção4 " )
  WVW_AppendMenu( hMainMenu     , MF_ENABLED + MF_POPUP , hSubMenu2 , "Submenu2",  )
  
  WVW_SetMenu(, hMainMenu )

  inkey(0)

Enviado: 17 Jan 2007 13:16
por Cezar
Boa tarde,


Grato luiz,


cez_a@ubbi.com.br