Clipper On Line • Ver Tópico - TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Mensagempor Fernando queiroz » 05 Out 2019 21:26

   @ 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
HARBOUR 3.2, HWGUI 2.22 B4, SEFAZCLASS, DBFCDX, PDFClass, LETODBF
Fernando queiroz
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 440
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 6 vezes
Mens.Curtidas: 16 vezes

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Mensagempor JoséQuintas » 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14703
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 867 vezes

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Mensagempor Fernando queiroz » 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. :'( :'( :'(
HARBOUR 3.2, HWGUI 2.22 B4, SEFAZCLASS, DBFCDX, PDFClass, LETODBF
Fernando queiroz
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 440
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 6 vezes
Mens.Curtidas: 16 vezes

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Mensagempor pauloa1 » 13 Dez 2019 17:58

Olá Fernando!

Uso separador aqui sem problemas.

  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
pauloa1
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 202
Data de registro: 25 Jun 2008 14:57
Cidade/Estado: Augusto Pestana-RS
Curtiu: 1 vez
Mens.Curtidas: 7 vezes

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Mensagempor asimoes » 20 Set 2020 21:37

Só para contribuir:

Adicionando um separador

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

  @ 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")
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4738
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 321 vezes
Mens.Curtidas: 226 vezes

TOOLBUTTON Com BOTÃOMenu WHOLEDROPDOWN

Mensagempor asimoes » 20 Set 2020 21:50

2020-09-20 21_49_41-Documentos do sócio.png
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4738
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 321 vezes
Mens.Curtidas: 226 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro