Clipper On Line • Ver Tópico - TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN
Mudar para estilo Clássico
Projeto HwGui - Biblioteca visual para Harbour/xHarbour
Postar uma resposta

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

05 Out 2019 21:26

Código:
   @ 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 :)) :)) :))

Untitled.jpg

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

05 Out 2019 21:54

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.

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

06 Out 2019 15:48

JoséQuintas escreveu: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. :'( :'( :'(

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

13 Dez 2019 17:58

Olá Fernando!

Uso separador aqui sem problemas.

Código:
  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

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

20 Set 2020 21:37

Só para contribuir:

Adicionando um separador

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

Código:
  @ 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")

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

20 Set 2020 21:50

2020-09-20 21_49_41-Documentos do sócio.png
Postar uma resposta