Este é o código que utilizo em meu Main.prg:
Código: Selecionar todos
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
