BottttonBar colorriddo

Daniel Halon · April 15, 2021

Boa tarde, copiei esta foto de um comenta rio do Kapi, alguem teria um exemplo de como fazer a butttonbar assim?

o que circulei em vermelho, Obrigado

Pd:: imagem pequena, pois não me permite botar mais de 266Kb

mkyx · April 15, 2021

Os bmps são figuras normais coloridas, com fundo transparente

segue o fonte abaixo:

.

DEFINE BUTTONBAR oBar SIZE 60,60 3D LOOK OF oWnd 2007

DEFINE BUTTON OF oBar FILE "FIRMAS.BMP" PROMPT "Firmas" TOOLTIP "Ficha da Firma" top NOBORDER ACTION AD_CADFIR(0) ON DROP AD_CADFIR(0)

DEFINE BUTTON OF oBar FILE "FUNC.BMP" PROMPT "Func" TOOLTIP "Ficha de funcionário" top NOBORDER ACTION AD_CADFUNC()

DEFINE BUTTON OF oBar FILE "INSS.BMP" PROMPT "Inss" TOOLTIP "Tabela de Inss" top NOBORDER group ACTION AD_INSS()

DEFINE BUTTON OF oBar FILE "IRENDA.BMP" PROMPT "Irenda" TOOLTIP "Tabela de Imposto de Renda" top NOBORDER ACTION AD_IR()

DEFINE BUTTON OF oBar FILE "SALFAM.BMP" PROMPT "Sal.Fam" TOOLTIP "Tabela de Imposto de Salário Família" top NOBORDER action ad_cadfam()

DEFINE BUTTON OF oBar FILE "LANCA.BMP" PROMPT "Lançtos" TOOLTIP "Lançamentos de Eventos não Automáticos na Folha" top NOBORDER group ACTION AD_LANCTO("FOL")

DEFINE BUTTON OF oBar FILE "V.BMP" PROMPT "Vale" TOOLTIP "Emissão de Vale Antecipação" top NOBORDER action ad_vale()

DEFINE BUTTON OF oBar FILE "R.BMP" PROMPT "Recibos" TOOLTIP "Emissão de Recibos de Pagamentos" top NOBORDER menu MENUHOLL() ON DROP MENURES()

DEFINE BUTTON OF oBar FILE "FORM.BMP" PROMPT "Resumo" TOOLTIP "Emissão do Resumo da Folha de Pagamento" top NOBORDER menu MENURES() ACTION MENURES() ON DROP MENURES()

DEFINE BUTTON OF oBar FILE "GPS.BMP" PROMPT "Gps" TOOLTIP "Emissão da guia de GPS" top NOBORDER menu MENUGPS()

DEFINE BUTTON OF oBar FILE "FERIAS.BMP" PROMPT "Férias" TOOLTIP "Emissão do Recibo de Férias" top NOBORDER ACTION AD_FERIAS()

DEFINE BUTTON OF oBar FILE "RESCISAO.BMP" PROMPT "Rescisão" TOOLTIP "Emissão da Rescisão do Funcionário" top NOBORDER ACTION AD_RESC()

DEFINE BUTTON OF oBar FILE "DISCO.BMP" PROMPT "G.D.M." TOOLTIP "Geração de Discos Magnéticos (FGTS, CAGED, RAIS, DIRF, NIS)" top NOBORDER menu buildpopup()

DEFINE BUTTON OF oBar FILE "E_SOCIAL.BMP" TOOLTIP "Gerar os eventos do e-Social" top NOBORDER menu gre_social()

DEFINE BUTTON OF oBar FILE "user.bmp" PROMPT "Usuários" TOOLTIP "Troca de Usuários" top NOBORDER group

DEFINE BUTTON OF oBar FILE "certif1.bmp" PROMPT "Certif" TOOLTIP "Tabela de Cerficados Disponíveis" top NOBORDER group action ver_certif()

DEFINE BUTTON OF oBar FILE "saida.bmp" PROMPT "Sair" TOOLTIP "Sair do programa" top NOBORDER action oWnd:end() group

Espero ter ajudado.

Daniel Halon · April 15, 2021

Obrigado, vou testar, meu problema e que quando coloco 2007 na butttonbar me faz um degradeee entre preto e branco, não estou conseguindo nesssas cores

Daniel Halon · April 15, 2021

1249157812_Semttulo.jpg.a2032b09b019e1c5aad167c303effb0a.jpg

Daniel Halon · April 16, 2021

////////////////////////////////////////////////////////////////////////////////////////
// CONSTRUCAO DA TELA PRINCIPAL
/////////////////////////////////////////////////////////////////////////////////////

   DEFINE BITMAP opapel FILENAME Alltrim(VARIOS->NOME_FUNDO) 
   DEFINE BRUSH  oBrush FILENAME Alltrim(VARIOS->NOME_FUNDO) 
   DEFINE ICON   oIcon  RESOURCE "DGH48"
   DEFINE CURSOR oHand  RESOURCE "MANO2"
   oCheck  := cCheck  := "Mensagem &Estilo Banner"
   
   
   DEFINE WINDOW oWnd;
          TITLE ''; 
          FROM 1, 5 TO 20, 70; // COLOR  rgb(150,150,255), rgb (220,222,229);
          MENU MenuMain(oWnd) ;
          ICON oIcon 
  
        
  DEFINE BUTTONBAR oBar SIZE 70, 55 3D LOOK OF oWnd  2007
 
      DEFINE BUTTON oBt1 of oBar RESOURCE "Bar_grupo";
        PROMPT "Clientes";
        ACTION IF(Check_Setor(8) == .T.,Pesqcli(), ''); 
        NOBORDER transparent;
        TOOLTIP "Cadastro de clientes" 
       
      
             
      DEFINE BUTTON oBt2 OF oBar RESOURCE "BAR_MOTO";
        PROMPT "Entreg.";
        ACTION IF(Check_Setor(10) == .T.,PesqMot(), '');
        Top;
        TOOLTIP "Cadastro de Entregadores";
        NOBORDER
        
        
     
   ********* BARRA DO MENU INFERIOR **********************************************************
   SET MESSAGE OF oWnd TO 'Licenciado para:  ' + ALLTRIM(NEWPAR->EMPRESA1);
       KEYBOARD DATE CLOCK 2007 //color RGB( 255, 255, 254 ), RGB( 0, 0, 255 )
      
   DEFINE MSGITEM oMiCasilla OF oWnd:oMsgBar;
   PROMPT "V-"+STR(VERSAO,6,2);
   SIZE 50;
   TOOLTIP  "Versão Atual do Sistema";
   ACTION MsgInfo("Versão do Sistema" + CRLF +;
                  '1.01.20')

   DEFINE MSGITEM OF oWnd:oMsgBar   ;
                   BITMAP "BMP_PRINTER" ;
                   ACTION (PrnGetName());
                   TOOLTIP  "Impressora para Relatorios" + PrnGetName()+ CRLF + "Impressora de Pedidos " + Alltrim(NEWPAR->PORTA)
                   
  

   DEFINE MSGITEM OF oWnd:oMsgBar     ;
                   BITMAP IF(DRIVE_TR = "C:","BMP_REDE","BMP_REDE");
                   TOOLTIP  "Sistema Esta Logado em  "+;
                            " " +DRIVE_TR +"\"+CURDIR() + " ";
                   ACTION MsgInfo( "Sistema Logado Em" + chr(13) +;
                   " " + chr(13) +;
                   "Driver.: "+DRIVE_TR+"\" + chr(13) +;
                   " " + chr(13) +;
                   "  \" +CURDIR() + chr(13) +;
                   " " + chr(13) +;
                   "Informacao ",;
                  "Informacao")
  
   
   DEFINE MSGITEM oMiCasilla OF oWnd:oMsgBar;           
   PROMPT "         DGH Sistemas";
   BITMAP "DGH48" ;
   SIZE 120; 
   TOOLTIP  "DGH Sistemas";
   ACTION sobre_sist()
   ******************************************************************************
  oWnd:nHorzRes(),oWnd:nVertRes()-106 Of oWnd Adjust
 
   ACTIVATE WINDOW oWnd MAXIMIZED; 
   ON INIT( TIRA_X(), IF(Criador=='12081952',SerialProtect(Criador),Valida_Senha('Entrada ao Sistema', '1', .T.)),Ativa_Teclas(),Check_Agenda())

kapiaba · April 16, 2021

Veja se ajuda:

// modelos de cores para a barra
/*
#Define GRAD_BTNSAI     { | lPressed | If( ! lPressed,;
                        { { 1, RGB( 254, 154, 128 ), RGB( 252, 085, 040 ) } },;
                        { { 1, RGB( 252, 085, 040 ), RGB( 254, 154, 128 ) } } ) }
*/
	/*
#Define GRAD_BTN_OURO   { | lInvert | If( ! lInvert, ;
                        { { 1.00,14481663,38075   },{ 1.00,38075,14481663   } }, ;
                        { { 0.10,16777215,9363707 },{ 0.10,9363707,16777215 } } ) }
*/
	/*
#Define GRAD_BTN_BOSQUE { | lInvert | If( ! lInvert, ;
                        { { 0.60,4348740,3256493 },{ 0.60,3256493,4348740 } },;
                        { { 0.70,8764566,65535   },{ 0.70,3256493,4292931 } } ) }
*/
	/*
#Define GRAD_BTN_BLACK  { | lInvert | If( ! lInvert, ;
                        { { 0.70,0      ,12429486 },{ 0.70,12429486,0       } },;
                        { { 0.40,9928844,12429486 },{ 0.40,12429486,9928844 } } ) }
*/
	/* // gosto
#Define aPubGrad        { | lInvert | If( lInvert, ;
                        { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
                        { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }  ;
                        }, ;
                        { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
                        { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) }  ;
                        } ) }
*/
	/*
// tudo branco
#Define aPubGrad        { | lInvert | If( ! lInvert,;
                        { { 1, RGB( 244, 244, 245 ), RGB( 244, 244, 245 ) } },;
                        { { 1, RGB( 145, 201, 247 ), RGB( 145, 201, 247 ) } } ) }
*/
// amarelo lindo.
/*
#Define aPubGrad        { | lPressed | if ( lPressed,;
                        { ;
                        { 2/5, nRGB( 254, 215, 169 ), nRGB( 251, 179, 99 ) } , ;
                        { 3/5, nRGB( 250, 155,  50 ), nRGB( 253, 239,  173 ) } ;
                        },;
                        {;
                        { 2/5, nRGB( 255, 253, 222 ), nRGB( 255, 231, 147 ) } ,;
                        { 3/5, nRGB( 255, 215,  86 ), nRGB( 255, 231,  153 ) } ;
                        } ) }
*/
	// azul com um corte ao meio
/*
#Define aPubGrad        { | lInvert | If( ! lInvert, { { 0.50,16776960,16777215 }, ;
                        { 0.50,16777215,16776960 } }, { { 0.50,128,16777215 },     ;
                        { 0.50,16777215,128 } } ) }
*/
	// amarelo claro bonito
#Define aPubGrad        { | lInvert | If( ! lInvert, ;
                        { { 0.30,12961221,16777215 },;
                        { 0.30,16777215,12961221 } },;
                        { { 0.10,9363707,16777215 },;
                        { 0.10,16777215,9363707 } } ) }
	
   DEFINE BUTTONBAR OBAR BUTTONSIZE 64, 52 _3DLOOK TOP OF oWnd 2007
	   // http://forums.fivetechsupport.com/viewtopic.php?f=6&t=36652
   // Re: Buttonbar linea inferior
   // Hola, lo logre de la siguiente forma:
   // oBar:WinStyle( WS_BORDER, .F. )  // Com este modelo nao funciona
   // Gradiente na barra de tarefas da window...
   // oBar:bClrGrad := GRAD_BTN_OURO    // Legal
   // oBar:bClrGrad := GRAD_BTNSAI
   // oBar:bClrGrad := GRAD_BTN_BOSQUE  // Legal
   // oBar:bClrGrad := GRAD_BTN_BLACK   //
   oBar:bClrGrad := aPubGrad  // Preferi assim.

Abs

Daniel Halon · April 16, 2021

Obrigado Kapi, vou testar

Valdir · April 16, 2021

Altere a sua ButtonBar para esta forma:

DEFINE BUTTONBAR oBar _3D OF oWnd SIZE 80,70 2007

Daniel Halon · April 16, 2021

Obrigado pessoal,

Fiz um teste com os exemplos,e funciona bem, acho que meu problema e a vlib do Wagner, estou eliminando para ver aonde interfere, apenas resolva, posto, obrigado a todos, o exemplo do kapiaba, funciona perfeito

Sign In

BottttonBar colorriddo

Recommended Posts

Daniel Halon

Link to comment

Share on other sites

mkyx

Link to comment

Share on other sites

Daniel Halon

Link to comment

Share on other sites

Daniel Halon

Link to comment

Share on other sites

Daniel Halon

Link to comment

Share on other sites

kapiaba

Link to comment

Share on other sites

Daniel Halon

Link to comment

Share on other sites

Valdir

Link to comment

Share on other sites

Daniel Halon

Link to comment

Share on other sites

Join the conversation

Browse

Activity