Clipper On Line • Ver Tópico - Sub Menu em DROPDOWN MENU

Sub Menu em DROPDOWN MENU

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Sub Menu em DROPDOWN MENU

Mensagempor NiltonGM » 24 Nov 2018 11:40

Amigos, em uma aplicação que estou desenvolvendo, não utilizo o menu convencional, mas faço uso do DROPDOWN MENU, ficou muito show, mas cheguei em um momento que preciso criar um Sub-Menu dentro de DROPDOWN MENU. Tem como fazer isso ou o componente não permite? Pelos tutoriais não há nada que mostre que seja possível.
Este é o código que utilizo em meu Main.prg:
         DEFINE SPLITBOX

            DEFINE TOOLBAR TooBar_1 BUTTONSIZE 45,40 IMAGESIZE 32,32 FONT "Open Sans" SIZE 8 FLAT

               // Botões do menu principal
               BUTTON Button_tb1_Agenda CAPTION "Agenda" PICTURE "btAgendaRosa"   AUTOSIZE WHOLEDROPDOWN
               BUTTON Button_tb1_Cadastros CAPTION "Cadastros" PICTURE "btCadastroRosa" AUTOSIZE WHOLEDROPDOWN
               BUTTON Button_tb1_Financeiro CAPTION "Financeiro" PICTURE "btFinanceiro"   AUTOSIZE WHOLEDROPDOWN
               BUTTON Button_tb1_RH CAPTION "RH" PICTURE "btRH" AUTOSIZE WHOLEDROPDOWN
               BUTTON Button_tb1_Sistema CAPTION "Sistema" PICTURE "btSistemaRosa"  AUTOSIZE WHOLEDROPDOWN

               // Menu Agenda
               DEFINE DROPDOWN MENU BUTTON Button_tb1_Agenda
                  ITEM 'Agendamento' ACTION form_agendamento() NAME Menu_bttb1_a_Agendamento IMAGE "mnCalendarioAzul"
                  ITEM 'Lembretes'   ACTION form_Lembretes()   NAME Menu_bttb1_a_Lembretes IMAGE "mnSinoAzul"
               END MENU

               // Menu Cadastro
               DEFINE DROPDOWN MENU BUTTON Button_tb1_Cadastros
                  ITEM 'Clientes'       ACTION form_clientes() NAME Menu_bttb1_b_Clientes IMAGE "mnClientes"
                  ITEM 'Profissionais'  ACTION form_profissionais() NAME Menu_bttb1_b_Profissionais IMAGE "mnProfissionalAzul"
                  ITEM 'Aparelhos'      ACTION form_aparelhos() NAME Menu_bttb1_b_Aparelhos IMAGE "mnAparelhoAzul"
                  ITEM 'Salas'          ACTION form_salas() NAME Menu_bttb1_b_Salas IMAGE "mnPortaAzul"
                  ITEM 'Usuários'       ACTION form_usuarios() NAME Menu_bttb1_b_Usuarios IMAGE "mnUsuarios"
               END MENU

               // Menu Financeiro
               DEFINE DROPDOWN MENU BUTTON Button_tb1_Financeiro
                  ITEM 'Faturamento'                  ACTION form_Faturamento() NAME Menu_bttb1_c_Faturamento IMAGE "mnCtasReceberAzul"
                  ITEM 'Contas a Receber / Recebidas' ACTION form_contasReceber() NAME Menu_bttb1_c_contasReceber IMAGE "mnCtasReceberAzul"
                  ITEM 'Contas a Pagar / Pagas'       ACTION form_ContasPagar() NAME Menu_bttb1_c_ContasPagar IMAGE "mnCtasPagarAzul"
                  SEPARATOR
                  ITEM 'Plano de Contas'              ACTION form_PlanoDeContas() NAME Menu_bttb1_c_PlanoDeContas IMAGE "mnPlanoCtasAzul"
                  ITEM 'Contas Bancárias / Movimento' ACTION form_Contas() NAME Menu_bttb1_c_Contas IMAGE "mnBank"
                  ITEM 'Fluxo de Caixa'               ACTION msginfo('Módulo não implementado!','Em desenvolvimento') NAME Menu_bttb1_c_FluxoCaixa IMAGE "mnFluxoCaixa"
                  SEPARATOR
                  ITEM 'Transferências entre Contas'  ACTION form_Transferencias() NAME Menu_bttb1_c_Transferencias IMAGE "mnFluxoCaixa"
                  ITEM 'Fechamento de Contas'         ACTION form_Fechamento_Contas() NAME Menu_bttb1_c_FechamentoContas IMAGE "mnCaixaRegistra"
                  SEPARATOR
                  // Aqui neste próximo item, gostaria que ele fosse um sub-Menu com outras opções
                  // SUB-MENU 'Gráficos e Relatórios'
                     // ITEM Sub-Menu 1...
                     // ITEM Sub-Menu 2...
                  // END SUB-MENU
               END MENU

               // Menu RH
               DEFINE DROPDOWN MENU BUTTON Button_tb1_RH
                  ITEM 'Fechamento de Comissões' ACTION form_Fechamento_Comissoes() NAME Menu_bttb1_d_FechamentoComssoes IMAGE "mnFolhaPgto"
               END MENU

               // Menu Sistema
               DEFINE DROPDOWN MENU BUTTON Button_tb1_Sistema
                  ITEM 'Empresas'        ACTION form_empresas() NAME Menu_bttb1_e_Empresas IMAGE "mnEmpresaAzul"
                  ITEM 'Configurações'   ACTION form_Configuracoes() NAME Menu_bttb1_e_Configuracoes IMAGE "mnConfigAzul"
                  ITEM 'Logs do Sistema' ACTION msginfo('Módulo não implementado!','Em desenvolvimento') NAME Menu_bttb1_e_LogSistema IMAGE "mnLogsisAzul"
                  ITEM 'Sobre'           ACTION Sobre() NAME Menu_bttb1_e_Sobre IMAGE "mnSobre"
               END MENU

            END TOOLBAR

            DEFINE TOOLBAR TooBar_0 BUTTONSIZE 200,40 IMAGESIZE 200,32 FONT "Open Sans" SIZE 8 FLAT
               BUTTON Button_tb0_Relogio CAPTION extendedDate() PICTURE "btCalendario" TOOLTIP 'Clique aqui para ver o calendário' AUTOSIZE ACTION ShowCalendario()
            END TOOLBAR

            DEFINE TOOLBAR TooBar_2 BUTTONSIZE 120,40 IMAGESIZE 90,32 FONT "Open Sans" SIZE 8 FLAT
               BUTTON Button_tb2_Notificacoes CAPTION "0.000 Notificações" PICTURE "btRecado" TOOLTIP 'Clique aqui para ver seus recados' AUTOSIZE ACTION ShowNotificacoes()
            END TOOLBAR

            DEFINE TOOLBAR TooBar_3 BUTTONSIZE 200,40 IMAGESIZE 200,32 FONT "Open Sans" SIZE 8 FLAT
               BUTTON Button_tb3_Empresas CAPTION "CLÍNICA ..." PICTURE "btEmpresa" TOOLTIP 'Clique aqui para trocar empresa' AUTOSIZE ACTION TrocarEmpresa()
            END TOOLBAR

            DEFINE TOOLBAR TooBar_4 BUTTONSIZE 60,40 IMAGESIZE 60,32 FONT "Open Sans" SIZE 8 FLAT
               BUTTON Button_tb4_TrocaSenha CAPTION "Olá ..." PICTURE "btUserHomem" TOOLTIP 'Clique aqui para alterar sua senha' AUTOSIZE ACTION TrocarSenha()
            END TOOLBAR

            DEFINE TOOLBAR TooBar_5 BUTTONSIZE 60,40 IMAGESIZE 60,32 FONT "Open Sans" SIZE 8 FLAT
               BUTTON Button_tb5_Sair CAPTION "Sair" PICTURE "btDesligar" AUTOSIZE ACTION FecharSistema()
            END TOOLBAR

         END SPLITBOX


Uma imagem vale por mil palavras, segue a tela principal do sistema e o dropdown menu:
sgce_tela.png
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes

Sub Menu em DROPDOWN MENU

Mensagempor JoséQuintas » 24 Nov 2018 17:09

Dá uma olhada, deve seguir o esquema do Main Menu.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Sub Menu em DROPDOWN MENU

Mensagempor NiltonGM » 25 Nov 2018 10:53

Já tentei Zeh, mas não funciona, da erro na compilação...
:(
Nilton Medeiros
nilton@sistrom.com.br
Avatar de usuário

NiltonGM
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 393
Data de registro: 05 Jun 2014 23:47
Cidade/Estado: Caieiras/SP
Curtiu: 249 vezes
Mens.Curtidas: 24 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro