Jump to content
Fivewin Brasil

ribbon


Alain da Silva

Recommended Posts

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...