Página 1 de 1
submenu de submenu
Enviado: 10 Out 2007 08:21
por ederxc
Ola amigos , sei que com a gtwvw é possivel se criar submenus em forma de arvore seria possivel criar submenus de submenus em forma de cascata
ex:
Código: Selecionar todos
cadastros
--------------
|clientes -> |
| |-----------------
| | novos |
| | alteracoes |
--------------| |
------------------
Bão , a gente faz o que pode ...
Enviado: 10 Out 2007 08:29
por Itamar M. Lins Jr.
Ola!
wvw ou hwgui ?
Se for hwgui...
Código: Selecionar todos
MENU TITLE "Aaaaaaaaaaaa"
MENUITEM "&zxzxzxz" ACTION {||fornecedores()}
MENU TITLE "&OPÇÃO"
MENUITEM "bbbbbb" ACTION {||bbb()}
MENUITEM "ccccccc" ACTION {||cccc()}
ENDMENU
MENUITEM "&dddd" ACTION {||d()}
MENUITEM "&eeee" ACTION {||e()}
ENDMENU
Código: Selecionar todos
MENU TITLE
MENU TITLE
MENU TITLE
MENUITEM "OPÇÂO" Action {||AÇÂO()}
ENDMENU
ENDMENU
ENDMENU
Saudações
Itamar M. Lins Jr.
Enviado: 10 Out 2007 12:41
por Daniel_halon
MENU OF oMain
MENU TITLE "Parametros"
MENUITEM "&Gerais" ID 1001 ACTION IIF(Valida_senha('Parametros', '1'), Parametros(), '' ) //BITMAP "\hbvisual\image\br0.bmp"
MENUITEM "&Promoções" ID 1002 ACTION Para_promo() //BITMAP "\hbvisual\image\br1.bmp"
MENUITEM "&Data e Turno" ID 1003 ACTION Para_data() //BITMAP "\hbvisual\image\br2.bmp"
SEPARATOR
MENU TITLE "&Tela"
MENUITEM "&Tela" ID 1004 ACTION Tela_Inteira(.t.) //BITMAP "\hbvisual\image\br3.bmp"
MENUITEM "&Janela" ID 1005 ACTION Tela_inteira(.f.) //BITMAP "\hbvisual\image\br4.bmp"
ENDMENU
MENUITEM "Trocar &Senha" ID 1006 ACTION Troca_senha('Alteracao de Senha', '20') //BITMAP "\hbvisual\image\br5.bmp"
MENUITEM "&Color" ACTION (nColor:=Hwg_ChooseColor(nColor,.F.), ;
MsgInfo(Iif(nColor!=Nil,str(nColor),"--"),"Color value"))
SEPARATOR
MENUITEM "Sobre" ID 1007 ACTION Informe() //BITMAP "\hbvisual\image\br6.bmp"
SEPARATOR
MENUITEM "Sai&r" ID 1008 ACTION oMain:Close() //BITMAP "\hbvisual\image\br7.bmp"
ENDMENU
ENDMENU
MENUITEMBITMAP oMain ID 1009 BITMAP "\hbvisual\image\logo.bmp"
SPLASH oSplash TO "Juntos.jpg" TIME 2000 // Exibe uma imagem .bmp .jpg etc ao iniciar o programa por tempo estipulado[Time 2000], logo entra normal no sistema
ACTIVATE WINDOW oMain MAXIMIZED
Return Nil
Nota: quando utilizamos bitmat no menu deve ser inserida ID como no exemplo
Eu tambem estou loco para saber como inserir uma figura na tela principal, vamos aguardar para ver se alguem nos orienta, sei que tem um comando BACKGROUND, mas não sei como utilizar o mesmo. :)Pos
Daniel Halon
Enviado: 10 Out 2007 16:47
por ederxc
Tenho uma outra questão relacionada a menus...
como fazer um questionamento pelo ID de um MENIITEM tipo
tentei dessa forma mais não funciona , qual seria o geito correto de questinonar um ID ?? o ID pode conter qualquer numero tipo ID01 ou ID02 ??
-:]
Enviado: 10 Out 2007 19:08
por sygecom
Eder, explica o que vc quer exatamente...não entendi !
Enviado: 10 Out 2007 21:33
por ederxc
Vamos la ...
Para cada MENUITEM posso atribuir um ID , entendo que isse ID possa servir como uma possivel verificação ....
tipo do menu vou chamar a funcão de fornecedor em com o ID gostaria de dar o proximo passo , para alteração ou novo "po, assim ningume vai entender nada , vou por um exemplo:
Código: Selecionar todos
MENU OF vPrijar
MENU TITLE "Fornecedores"
MENUITEM "NOVO" ID 101 ACTION forn()
SEPARATOR
MENUITEM "ALTERAR" ID 102 ACTION forn()
ENDMENU
ENDMENU
*_____________________________________________
func forn()
sele fornec
use blablbalnaaajhj
sele cep
use kcnr3ufnhvervrncuy
*______________________________________________
IF ID101 // é esse tipo d questionamento que quero !
inclu_fonr()
elseif ID102
alt_forn()
endif
...ou seja , atravez do ID quero decidir qual rumo tomar , manja !
Enviado: 10 Out 2007 21:40
por sygecom
Código: Selecionar todos
MENU OF vPrijar
MENU TITLE "Fornecedores"
MENUITEM "NOVO" ID 101 ACTION forn("C")
SEPARATOR
MENUITEM "ALTERAR" ID 102 ACTION forn("A")
ENDMENU
ENDMENU
*_____________________________________________
func forn(TIPO_CAD)
sele FORNE ALIAS FORNE shared NEW
use FORNE
IF TIPO_CAD="A"
SELE FORNE
BROWSE()
ELSE
SELE FORNE
DBAPPEND()
ENDIF
Etc....
Return
Enviado: 10 Out 2007 22:31
por ederxc
show , ja esta rodando !