Alain da Silva Posted June 7, 2016 Report Share Posted June 7, 2016 bom dia pessoal, na função: DEFINE RIBBONBAR oRibbon OF oWnd PROMPTS "Faturamento","Financeiro","Recursos Humanos","Escrita Fiscal","Módulo Fiscal","Módulo Contábil" ; HEIGHT 150 TOPMARGIN 60 color BRANCO BackStage( oRibbon,oWnd ) Function BackStage( oRibbon,oWnd ) local oBackStage DEFINE BACKSTAGE oBackStage MAINWIDTH 200 DEFINE BSSELECT OF oBackStage PROMPT "Configurações do Sistema" ACTION CADEMP(); COLORS nRGB( 242, 96, 96 ), nRGB( 195, 37, 37 ) DEFINE BSBUTTON OF oBackStage PROMPT "Sobre o Sistema" ; BITMAP ".\bitmaps\16x16\info.bmp"; ACTION MsgAbout("FiveWin",FWVERSION+" >> "+VERSION()); GRADIENT { { 1, AZULXP, AMARELO } } DEFINE BSBUTTON OF oBackStage PROMPT "Backup" ; BITMAP ".\bitmaps\alphabmp\bs_save.bmp" ACTION Msginfo( oOpt:cPrompt ); GRADIENT { { 1, AZULXP, AMARELO } }; COLORTEXT CLR_BLACK, CLR_WHITE DEFINE BSBUTTON OF oBackStage PROMPT "Tela" ; BITMAP "bitmaps\config.bmp" ACTION (mudaTELA(),APLICATELA(oWnd,oBmp)); GRADIENT { { 1, AZULXP, AMARELO } }; COLORTEXT CLR_BLACK, CLR_WHITE DEFINE BSBUTTON OF oBackStage PROMPT "Cadastro da Empresa" ; BITMAP "Image\EMPRESA1616.bmp" ACTION CADEMP(); GRADIENT { { 1, AZULXP, AMARELO } }; COLORTEXT CLR_BLACK, CLR_WHITE DEFINE BSBUTTON OF oBackStage PROMPT "Ativar" ; BITMAP "Image\CHAVE.bmp" ACTION MSGINFO("CHAVE DE ATIVAÇÃO"); GRADIENT { { 1, AZULXP, AMARELO } }; COLORTEXT CLR_BLACK, CLR_WHITE SET BACKSTAGE oBackStage TO oRibbon eu ativo a Backstage. Eu quero saber o seguinte, Como eu faço pra voltar a tela principal sem ter que clicar no botão novamente. Tem um comando que fecha a BAckstage? OUtra coisa, Tem como mudar a cor da Ribbon? Obrigadao Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.