TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

[Fernando queiroz]

Código: Selecionar todos

	@ 1,-1 TOOLBAR oToolbar1  SIZE hwg_Getdesktopwidth(),43;     
				STYLE WS_DLGFRAME + BTNS_AUTOSIZE + TBSTYLE_TRANSPARENT  
		oToolbar1:AddButton("CMDINSERT", , 0, 16, "Inclui" ,{||CONTASAPAGAR( 'INCLUIR' ),obrowse1:REFRESH(),DBUNLOCKALL(),hwg_WriteStatus( oDlg,3,"Ordem: Nome Fornecedor")},'Incluir nova conta a pagar','', "oToolbutton1") 
		oToolbar1:AddButton("CMDEDIT", , 0, 16, "Altera" ,{||CONTASAPAGAR( 'ALTERAR' ),obrowse1:REFRESH(),DBUNLOCKALL(),hwg_WriteStatus( oDlg,3,"Ordem: Nome Fornecedor")},'Altera conta a pagar','', "oToolbutton2")
 		oToolbar1:AddButton("CMDDELETE", , 0, 16, "Exclui" ,{|| F4_Exclui( ), obrowse1:REFRESH() },'Exclui conta a pagar','', "oToolbutton3")
		oToolbar1:AddButton("Store", , 4, 16, "Duplica" ,{||DUPLICACONTASAPAGAR( ) },'Gera Automaticamente varios lançamentos','', "oToolbutton4")
		oToolbar1:AddButton("Accounting16", , 4, 16, "Baixa" ,{|| contasapagarbaixa( ) },'Baixar conta a pagar','', "oToolbutton5")
		oToolbar1:AddButton("SCANNER", , 4, 16, "Recibo" ,{|| SCANNER_CONTASAPAGAR( ) },'Recibo do Pagamento em PDF','', "oToolbutton6")
		oToolbar1:AddButton("REL_EMAIL", , 4, 16, "e-Mail"    ,{||ENVIAEMAIL(  )},'Envia Recibo do Pagamento em PDF por e-Mail','', "oToolbutton7")		
		oToolbar1:AddButton("boss", , 4, 16, "Atualiza" ,{||ATUALIZADADOS(  )},'Atualiza Fornecedor do conta a pagar','', "oToolbutton8")
		oToolbar1:AddButton("CLFLBMP", , 4, 16, "Consulta" ,{||CONSULTACONTASAPAGAR( )},'Consulta dados Contas a Pagar','', "oToolbutton9")
		oToolbar1:AddButton("rel_print",, 4, 128, "Relatórios" ,,, {{"Despesas em Aberto por Fornecedor", 4,{| This, nId | RELATORIOCONTASAPAGAR1(  ),Ordsetfocus(9),DBGOTOP(),onDlgInit(  ) }};
                                                                   ,{"Despesas em Aberto por Vencimento", 5,{| This, nId | RELATORIOCONTASAPAGAR2(  ),Ordsetfocus(9),DBGOTOP(),onDlgInit(  ) }};
																   ,{"Despesas Pagas por Fornecedor    ", 7,{| This, nId | RELATORIOCONTASAPAGAR3(  ),Ordsetfocus(9),DBGOTOP(),onDlgInit(  ) }};
																   ,{"Despesas Pagas por Vencimento    ", 8,{| This, nId | RELATORIOCONTASAPAGAR4(  ),Ordsetfocus(9),DBGOTOP(),onDlgInit(  ) }};
																   ,{"Recibo                           ", 9,{| This, nId | RECIBO_AVULSO(  )         ,Ordsetfocus(9),DBGOTOP(),onDlgInit(  ) }} };
																   , "oToolbutton16") 
		oToolbar1:AddButton("EXIT16BMP", , 4, 16, "Sair" ,{|| DBCLOSEALL(), oDlg:Close() },'Sair da rotina','', "oToolbutton15")
		oToolbar1:CreateTool()

Só não consegui colocar um separador entre os relatórios, mas o resultado ficou legal ) ) )

[JoséQuintas]

Quando a LIB quer enfeitar demais, complica tudo.
Esse é o menu normal do Windows, deve seguir a mesma regra do menu principal pra separador.
Só não sei se liberaram isso para o programador, já que vai direto o array, e não um menu.

[Fernando queiroz]

Quando a LIB quer enfeitar demais, complica tudo.
Esse é o menu normal do Windows, deve seguir a mesma regra do menu principal pra separador.
Só não sei se liberaram isso para o programador, já que vai direto o array, e não um menu.

Tentei seguindo as mesmas regras de separador do menu principal mas deu erro.

andei olhando no método e não vi nada de separador no array. :'( :'( :'(

[pauloa1]

Olá Fernando!

Uso separador aqui sem problemas.

Código: Selecionar todos

  oToolbar1:AddButton(ID_CONV_01_32     , , 4,  8, "Convênios"    ,{||SCC128HW()},"Convênios"; //, "oToolbutton11")
    ,{;
	   { "Lançamentos Futuros /Parcelamento" , 4,{||SCC128HWP()}};
	 , { "", 5,""}; // separador
	 , { "Conveniados"                       , 6,{||SCC116aHW()}};
	 , { "Contas "                           , 7,{||SCC116BHW()}};
	 , { "", 8,""};
	 , { "Lançados "                         , 9,{||SCC41701()}};
	 , { "Negativos"                         , 10,{||SCC41702()}};
	 , { "Extrato "                         , 11,{||SCC41703()}};
	 , {"Total a Repassar aos Conveniados"   , 12,{||SCC41704()}} };
	 , "oToolbutton11")

Só não descobri como adicionar ícone ao lado esquerdo.

Paulo

[asimoes]

Só para contribuir:

Adicionando um separador

oToolbar1:AddButton(0, , 4, 1, "" ,,,'', "oToolbuttonsep1")

Código: Selecionar todos

  @ 0,0 TOOLBAR oToolbar1 ;
                   SIZE oDlg:nWidth,32 ;     
                   BITMAPSIZE 24, 24 ;
                   STYLE BTNS_AUTOSIZE + TBSTYLE_TRANSPARENT  

     TOOLBUTTON  oToolbar1 ;
                 ID       700 ;
                 BITMAP   "AVI\folder.bmp" ;
                 STATE    4;
                 TEXT     ""  ;
                 TOOLTIP  "Abrir o documento." ;
                 ON CLICK {||  ::AbrirDocumento( GridDocumentos ) }
   
    oToolbar1:AddButton(0, , 4,  1, "" ,,,'', "oToolbuttonsep1")
               
    TOOLBUTTON  oToolbar1 ;
                ID       701 ;
                BITMAP   "AVI\iCancela.BMP" ;
                STATE    4;
                TEXT     ""  ;
                TOOLTIP  "" ;
                ON CLICK {||  oDlg:Close() }
    
    oToolbar1:AddButton(0, , 4,  1, "" ,,,'', "oToolbuttonsep2")

[asimoes]