submenu de submenu

[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 ...

[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.

[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

[ederxc]

Tenho uma outra questão relacionada a menus...


como fazer um questionamento pelo ID de um MENIITEM tipo

Código: Selecionar todos

if ID xxx 
    faça_isso()
else 
    faça_isso1()
endif

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 ??


-:]

[sygecom]

Eder, explica o que vc quer exatamente...não entendi !

[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 !

[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

[ederxc]

show , ja esta rodando !