Jump to content
Fivewin Brasil

ajuda com toolbar. resolvido..em parte

scom

By scom
in Programação

 Share

Recommended Posts

scom Newbie

scom

Posted
Posted

OLA AMIGOS

Estou tentando fazer um botão no ToolBar com menu popup mas quando clico na seta do botão o menu não abre. alguem pode me dar uma ajuda

1zfha50.jpg



oReBar = TReBar():New( oDlg )


oToolBar1 = TToolBar():New( oReBar, 50, 50, oImageList1,.T.)


oToolBar1:AddMenu({|| MsgInfo( "Print" ) }, "Relatorios", "F9-Relatorios",,,MenuPopCOX(oBrow) ) 


oToolBar1:nWidth = 290


oReBar:InsertBand( oToolBar1 )


function MenuPopCOX(oBrow)


   local oMenu


   MENU oMenu POPUP


      MENUITEM OemToAnsi("Teste")  ACTION oBrow:Refresh()


      MENUITEM OemToAnsi("Teste1") ACTION oBrow:Refresh()


   ENDMENU


return oMenu


id=code>id=code>
Editado por - scom on 21/08/2011  11:04:51


Editado por - scom on 21/08/2011  11:08:13


Editado por - scom on 22/08/2011  12:27:10


Editado por - scom on 22/08/2011  12:37:03



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		scom
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


scom
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

OLA AMIGOS


Estou tentando fazer um botão no ToolBar com menu popup mas quando clico na seta do botão o menu não abre. alguem pode me dar uma ajuda


1zfha50.jpg






oReBar = TReBar():New( oDlg )


oToolBar1 = TToolBar():New( oReBar, 50, 50, oImageList1,.T.)


oToolBar1:AddMenu({|| MsgInfo( "Print" ) }, "Relatorios", "F9-Relatorios",,,MenuPopCOX(oBrow) ) 


oToolBar1:nWidth = 290


oReBar:InsertBand( oToolBar1 )


function MenuPopCOX(oBrow)


   local oMenu


   MENU oMenu POPUP


      MENUITEM OemToAnsi("Teste")  ACTION oBrow:Refresh()


      MENUITEM OemToAnsi("Teste1") ACTION oBrow:Refresh()


   ENDMENU


return oMenu


id=code>id=code>
Editado por - scom on 21/08/2011  11:04:51


Editado por - scom on 21/08/2011  11:08:13


Editado por - scom on 22/08/2011  12:27:10


Editado por - scom on 22/08/2011  12:37:03



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Luiz Arruda (ICO)
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Luiz Arruda (ICO)
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bom Dia..


Mostre como está criando o botão-Menu






  DEFINE TBMENU OF oToolBar1           ; 


         ACTION  NewLancar()           ; 


         TOOLTIP "Menu de Lançamentos" ;


         PROMPT  "&Registros"          ;


         Menu LanMenu()


function LanMenu()


   local oMenu 


     MENU oMenu POPUP 


     MENUITEM "&Lancar   " Resource "LCC"    Action NewLancar()


     MENUITEM "&Visualiazar" Resource "VSS"  Action VisualizaLan()


     MENUITEM "&Alterar  "   Resource "ALTD" Action visualizalan() 


     MENUITEM "&Excluir  " Resource "Cancel" Action ExcluiLcto()


   ENDMENU


return oMenu      


return
id=code>id=code>
Veja se resolve..


Abraços..


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 22/08/2011  08:40:07



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Theotokos
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


Theotokos
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

o TBMENU é nativo?





citação:
Bom Dia..


Mostre como está criando o botão-Menu






  DEFINE TBMENU OF oToolBar1           ; 


         ACTION  NewLancar()           ; 


         TOOLTIP "Menu de Lançamentos" ;


         PROMPT  "&Registros"          ;


         Menu LanMenu()


function LanMenu()


   local oMenu 


     MENU oMenu POPUP 


     MENUITEM "&Lancar   " Resource "LCC"    Action NewLancar()


     MENUITEM "&Visualiazar" Resource "VSS"  Action VisualizaLan()


     MENUITEM "&Alterar  "   Resource "ALTD" Action visualizalan() 


     MENUITEM "&Excluir  " Resource "Cancel" Action ExcluiLcto()


   ENDMENU


return oMenu      


return
id=code>id=code>
Veja se resolve..


Abraços..


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc


Editado por - ico on 22/08/2011  08:40:07




id=quote>id=quote>
Perfil.jpg



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		scom
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


scom
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

assim:






FUNCTION BARRACOX(oDlg,oBrow,oImageList1)


         Local oBar,oReBar, oToolBar1


         oImageList1 = TImageList():New( 32, 32 ) 


         oImageList1:AddMasked( TBitmap():Define( "NOVO"    ,, oDlg ), nRGB( 255, 0, 255 ) )


         oImageList1:AddMasked( TBitmap():Define( "ALTERAR" ,, oDlg ), nRGB( 255, 0, 255 ) )


         oImageList1:AddMasked( TBitmap():Define( "EXCLUIR" ,, oDlg ), nRGB( 255, 0, 255 ) )


         oImageList1:AddMasked( TBitmap():Define( "BUSCAR"  ,, oDlg ), nRGB( 255, 0, 255 ) )


         oImageList1:AddMasked( TBitmap():Define( "PRINT"  ,,  oDlg ), nRGB( 255, 0, 255 ) )


         oImageList1:AddMasked( TBitmap():Define( "ESC_SAIR",, oDlg ), nRGB( 255, 0, 255 ) )


         oReBar = TReBar():New( oDlg )


         oToolBar1 = TToolBar():New( oReBar, 50, 50, oImageList1,.T.)


         oToolBar1:AddButton( { || TELACOX(oDlg,oBrow,CadAltE:=1) }, "Novo     ","F5-Novo" )


         oToolBar1:AddButton( { || TELACOX(oDlg,oBrow,CadAltE:=2) },"Alterar  ","F6-Alterar" )


         oToolBar1:AddButton( { || TELACOX(oDlg,oBrow,CadAltE:=3) },"Excluir","F7-Excluir" )


         oToolBar1:AddSeparator()


         oToolBar1:AddButton( { || MsgInfo( "Print" ) }, "Pesquisar", "F8-Pesquisar" )


         oToolBar1:AddSeparator()


         oToolBar1:AddMenu({|| MsgInfo( "Print" ) }, "Relatorios", "F9-Relatorios",,,MenuPopCOX(oBrow) )


         oToolBar1:AddSeparator()


         oToolBar1:AddButton( { || oDlg:End() }, "Sair", "Sair" )


         oToolBar1:nWidth = 290


         oReBar:InsertBand( oToolBar1 )


         RETURN .T.


function MenuPopCOX(oBrow)


   local oMenu


   MENU oMenu POPUP


      MENUITEM OemToAnsi("Imprimir Conexäes") ACTION oBrow:Refresh()


      MENUITEM OemToAnsi("Teste") ACTION oBrow:Refresh()


   ENDMENU


return oMenu


id=code>id=code>
FICA ASSIM:


14iftxj.jpg


Editado por - scom on 22/08/2011  12:15:03



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		scom
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


scom
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Luiz e Rone coloquei assim:






oToolBar1:AddMenu({|| MsgInfo( "Print" ) }, "Relatorios", "F9-Relatorios",,,{|| MenuPopCOX(oBrow)} ) 


id=code>id=code>
coloquei somente {|| } e a chamada do menu dentro e agora ta abrindo o menu popup certinho só que quando escolho um opção do menu ele fecha o dialog. e coloquei somente msginfo('ok') para ver se tava chamando a opcao e funcina so que fecha a tela(DIALOG) principal que estou focado.


Editado por - scom on 22/08/2011  12:36:50



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Luiz Arruda (ICO)
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Luiz Arruda (ICO)
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Quando eu usava ToolBar eu fazia diferente; 






   DEFINE IMAGELIST oImgList1 SIZE 32, 32   // Para a 1ª Barra


   DEFINE IMGBITMAP OF oImgList1 NAME "ARQUIVO"  COLOR nRGB( 255, 0, 255 )


   DEFINE IMGBITMAP OF oImgList1 NAME "NOTAS"    COLOR nRGB( 255, 0, 255 )


   DEFINE IMGBITMAP OF oImgList1 NAME "SALDOS"   COLOR nRGB( 255, 0, 255 )


   DEFINE IMGBITMAP OF oImgList1 Name "CADASTRO" COLOR nRGB( 255, 0, 255 ) 


   DEFINE IMGBITMAP OF oImgList1 NAME "Print"    COLOR nRGB( 255, 0, 255 )


   DEFINE IMGBITMAP OF oImgList1 NAME "Search"   COLOR nRGB( 255, 0, 255 )


   DEFINE IMGBITMAP OF oImgList1 NAME "calen"    COLOR nRGB( 255, 0, 255 )


   DEFINE IMGBITMAP OF oImgList1 NAME "Internet" COLOR nRGB( 255, 0, 255 )


   DEFINE IMAGELIST oImgList2 SIZE 32, 32   // a uma 2ª barra


   ...


   ..


   .


DEFINE REBAR oReBar OF oWnd


    DEFINE TOOLBAR oToolBar1 OF oReBar SIZE 50, 58 ;


    IMAGELIST oImgList1 


    oToolBar1:SetBrush( ABrush )


   DEFINE TBBUTTON OF oToolBar1       ;


      ACTION  Empresas()              ;


      TOOLTIP "Trocar Empresas"       ;


      PROMPT  "&Empresas"


  DEFINE TBMENU OF oToolBar1          ;  


     ACTION  NewLancar()              ; 


     TOOLTIP "Menu de Lançamentos"    ;


     PROMPT  "&Registros"             ;


     Menu LanMenu() 
id=code>id=code>
toolb.png


Luiz Arruda


Corumbá-MS


ico.corumba@gmail.com  | 


euchapeu.png


FiveWin 9.04


xHarbour


PellesC


Bcc



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
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...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •