Clipper On Line • Ver Tópico - como clicar sem clicar ????

como clicar sem clicar ????

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

como clicar sem clicar ????

Mensagempor asimoes » 17 Dez 2017 19:54

Pode tentar isso também:
Nesse caso não tem o on init da janela

ACTIVATE DIALOG oDlg ON ACTIVATE { || GERAARQUIVOS(), hwg_KEYB_EVENT( VK_END ) }
â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como clicar sem clicar ????

Mensagempor asimoes » 17 Dez 2017 20:08

Troca o VK_END po VK_ESCAPE

ACTIVATE DIALOG oDlg ON ACTIVATE { || GERAARQUIVOS(), hwg_KEYB_EVENT( VK_ESCAPE ) }
â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como clicar sem clicar ????

Mensagempor asimoes » 17 Dez 2017 20:36

Pronto acho que é isso que você quer:
Veja a função GERAARQUIVOS() vai te dar uma ideia como a barra corre

#include "hwgui.ch"
************************************************************
FUNCTION abrearquivos(  )
************************************************************

  LOCAL oDlg,  oLabel1, oLabel2, oLabel3, oLabel4, oProgressbar1, oProgressbar2, oLabel5

  INIT DIALOG oDlg TITLE "Verificando Arquivos Aguarde..."    AT 0, 0 SIZE 656,208   ;
       STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER
     
    ThisNFE := oDlg

   @ 14,18 SAY oLabel1 CAPTION "Arquivo:"  SIZE 55,18 
   @ 76,18 SAY oLabel2 CAPTION "nome do arquivo"  SIZE 566,18 
   @ 73,67 SAY oLabel4 CAPTION "nome do Indice"  SIZE 566,18 
   @ 15,66 SAY oLabel3 CAPTION "Indice:"  SIZE 45,18 
   @ 11,122 SAY oLabel5 CAPTION "Total:"  SIZE 45,18 
   @ 12,89 PROGRESSBAR oProgressbar1 SIZE 635,18  BARWIDTH 20 QUANTITY 100
   @ 12,143 PROGRESSBAR oProgressbar2 SIZE 635,18  BARWIDTH 26 QUANTITY 100   
   
   ACTIVATE DIALOG oDlg ON ACTIVATE { || GERAARQUIVOS(), hwg_KEYB_EVENT( VK_ESCAPE ) }

RETURN oDlg:lresult

FUNCTION GERAARQUIVOS()
LOCAL I
   FOR I:=1 TO 10
      Eval( {|| ThisNFE:oProgressbar1:Set(, (i/10) * 100), ThisNFE:oProgressbar1:Refresh(), .T., hwg_DoEvents()} )
      Eval( {|| ThisNFE:oProgressbar2:Set(, (i/10) * 100), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} ) 
      InkeyGui(1)
   NEXT

RETURN Nil

#pragma BEGINDUMP

#include <windows.h>

#include "hbapi.h"

#include <olectl.h>

#include <time.h>

HB_FUNC( INKEYGUI ) 
{                                                                     
    MSG Msg;
    BOOL lNoLoop=FALSE;
    UINT dwTimer, nRet=0, uTimeout=1, uMilisec=1000;   

    if( HB_ISNUM(1) ) uTimeout = hb_parni(1);

    if( HB_ISNUM(2) ) uMilisec = hb_parni(2);

    if( uTimeout==0 ) uTimeout = 0x0FFFFFFF;

    if( uTimeout>0 ) uTimeout = uTimeout * uMilisec;

    dwTimer = SetTimer( NULL, 0, uTimeout, NULL);

    while( GetMessage(&Msg, NULL, 0, 0) )
    {

       switch( Msg.message )
       {
          case WM_KEYDOWN    :
          case WM_SYSKEYDOWN : { nRet    = Msg.wParam; lNoLoop = TRUE; break; }
          case WM_TIMER      : { lNoLoop = Msg.wParam == dwTimer;      break; }
       }
 
       if( lNoLoop )
       {
          KillTimer( NULL, dwTimer );
          hb_retni( nRet );
          return ;
       }
       else 
       {
          TranslateMessage( &Msg );  // Translates virtual key codes
          DispatchMessage( &Msg );   // Dispatches message to window
       } 
    }
}

#pragma ENDDUMP
â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como clicar sem clicar ????

Mensagempor asimoes » 18 Dez 2017 09:12

â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como clicar sem clicar ????

Mensagempor Fernando queiroz » 18 Dez 2017 09:33

tentei mas como disse antes o GERAARQUIVOS() acontece antes de aparecer a tela

ON ACTIVATE
ON INIT

ocorre antes da tela aparecer
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

como clicar sem clicar ????

Mensagempor Fernando queiroz » 18 Dez 2017 09:36

#include "hwgui.ch"
************************************************************
FUNCTION abrearquivos(  )
************************************************************

  LOCAL oDlg,  oLabel1, oLabel2, oLabel3, oLabel4, oProgressbar1,  oLabel5, ThreadID
  PRIVATE oProgressbar2

INIT DIALOG oDlg TITLE "Verificando Arquivos Aguarde..."    AT 0, 0 SIZE 656,208  ;
        STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER

   ThisNFE := oDlg
   
   
   @ 14,18 SAY oLabel1 CAPTION "Arquivo:"  SIZE 55,18 
   @ 76,18 SAY oLabel2 CAPTION "nome do arquivo"  SIZE 566,18 
   @ 73,67 SAY oLabel4 CAPTION "              "  SIZE 566,18 
   @ 15,66 SAY oLabel3 CAPTION "Indice:"  SIZE 45,18 
   @ 11,122 SAY oLabel5 CAPTION "Total:"  SIZE 45,18 
   @ 12,89 PROGRESSBAR oProgressbar1 SIZE 635,18  BARWIDTH 20 QUANTITY 100
   @ 12,143 PROGRESSBAR oProgressbar2 SIZE 635,18  BARWIDTH 26 QUANTITY 100
      
   
   ACTIVATE DIALOG oDlg ON ACTIVATE { || GERAARQUIVOS(), hwg_KEYB_EVENT( VK_ESCAPE ) }

   
RETURN    NIL

******************************************
STATIC FUNCTION GERAARQUIVOS()
******************************************
   InkeyGui(1)

   Eval( {|| ThisNFE:oProgressbar2:Set(, 4), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} )
     ThisNFE:oLabel2:SetText("CAIXA")
   ABRE_CAIXA()
   USE

   
   Eval( {|| ThisNFE:oProgressbar2:Set(, 8), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} )
   ThisNFE:oLabel2:SetText("PRODUTOS")
   ABRE_PRODUTOS()
   USE

   
   Eval( {|| ThisNFE:oProgressbar2:Set(, 12), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} )
   ThisNFE:oLabel2:SetText("CLIENTES")
   ABRE_CLIENTES()
   USE

   
   Eval( {|| ThisNFE:oProgressbar2:Set(, 16), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} )
   ThisNFE:oLabel2:SetText("FORNECEDOR")
   ABRE_FORNECEDOR()
   USE

   
   Eval( {|| ThisNFE:oProgressbar2:Set(,20), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} )
   ThisNFE:oLabel2:SetText("FORPRO")
   ABRE_FORPRO()
   USE
   
   Eval( {|| ThisNFE:oProgressbar2:Set(, 24), ThisNFE:oProgressbar2:Refresh(), .T., hwg_DoEvents()} )
   ThisNFE:oLabel2:SetText("VENDEDOR")
   ABRE_VENDEDOR()
   USE
   
//   ThisNFE:oProgressbar2:Set(,28)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("PEDIDO")
   ABRE_PEDIDO()
   USE
   
//   ThisNFE:oProgressbar2:Set(,32)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("ENTRADA")
   ABRE_ENTRADA()
   USE
   
//   ThisNFE:oProgressbar2:Set(,36)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("ORCAMENTO")   
   ABRE_ORCAMENTO()
   USE
   
//   ThisNFE:oProgressbar2:Set(,42)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("LOGGERAL")
   ABRE_LOG()
   USE
   
//   ThisNFE:oProgressbar2:Set(,46)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("RECEBER")
   ABRE_RECEBER()
   USE
   
//   ThisNFE:oProgressbar2:Set(,50)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("PAGAR")   
   ABRE_PAGAR()
   USE
   
//   ThisNFE:oProgressbar2:Set(,54)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("MOVCAIXA")   
   ABRE_MOVCAIXA()
   USE
   
//   ThisNFE:oProgressbar2:Set(,60)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("ITENS")   
   ABRE_ITENS(SUBSTR(DTOS(M->DAT_HOJE),3,6))
   USE
   
//   ThisNFE:oProgressbar2:Set(,64)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("CFOP")
   ABRE_CFOP()
   USE
   
//   ThisNFE:oProgressbar2:Set(,68)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("SERVICO")   
   ABRE_SERVICO()
   USE
   
//   ThisNFE:oProgressbar2:Set(,70)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("PECAS")   
   ABRE_PECAS(SUBSTR(DTOS(M->DAT_HOJE),3,6))
   USE
   
//   ThisNFE:oProgressbar2:Set(,74)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("NCM")
   ABRE_NCM()
   USE
   
//   ThisNFE:oProgressbar2:Set(,78)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("MUNICIPIOS")
   ABRE_MUNIC()
   USE
   
//   ThisNFE:oProgressbar2:Set(,82)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("LEMBRETE")
   ABRE_LEMBRETE()
   USE
   
//   ThisNFE:oProgressbar2:Set(,86)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("VENCIMENTO DE PRODUTOS")   
   ABRE_VENCIM()
   USE   
   
//   ThisNFE:oProgressbar2:Set(,90)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("NOTA FISCAL ELETRONICA")
   ABRE_NFE()
   USE
   
//   ThisNFE:oProgressbar2:Set(,92)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("ITENS DA NOTA FISCAL ELETRONICA")
   ABRE_NFEITEM()
   USE
   
//   ThisNFE:oProgressbar2:Set(,94)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("NOTA FISCAL AO CONSUMIDOR ELETRONICA")
   ABRE_NFCE()
   USE
   
//   ThisNFE:oProgressbar2:Set(,98)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("ITENS NOTA FISCAL AO CONSUMIDOR ELETRONICA")
   ABRE_NFCEITEM()
   USE
   
//   ThisNFE:oProgressbar2:Set(,100)
//   ThisNFE:oProgressbar2:increment()
//   ThisNFE:oLabel2:SetText("CERTIFICADO DIGITAL")
   ABRE_CERTIFICADO()
   USE

RETURN

#pragma BEGINDUMP

#include "hbapi.h"

HB_FUNC( INKEYGUI ) 
{                                                                     
    MSG Msg;
    BOOL lNoLoop=FALSE;
    UINT dwTimer, nRet=0, uTimeout=1, uMilisec=1000;   

    if( HB_ISNUM(1) ) uTimeout = hb_parni(1);

    if( HB_ISNUM(2) ) uMilisec = hb_parni(2);

    if( uTimeout==0 ) uTimeout = 0x0FFFFFFF;

    if( uTimeout>0 ) uTimeout = uTimeout * uMilisec;

    dwTimer = SetTimer( NULL, 0, uTimeout, NULL);

    while( GetMessage(&Msg, NULL, 0, 0) )
    {

       switch( Msg.message )
       {
          case WM_KEYDOWN    :
          case WM_SYSKEYDOWN : { nRet    = Msg.wParam; lNoLoop = TRUE; break; }
          case WM_TIMER      : { lNoLoop = Msg.wParam == dwTimer;      break; }
       }
 
       if( lNoLoop )
       {
          KillTimer( NULL, dwTimer );
          hb_retni( nRet );
          return ;
       }
       else 
       {
          TranslateMessage( &Msg );  // Translates virtual key codes
          DispatchMessage( &Msg );   // Dispatches message to window
       } 
    }
}

#pragma ENDDUMP


FIZ ASSIM mas deu erro nessa parte de baixo
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

como clicar sem clicar ????

Mensagempor Fernando queiroz » 18 Dez 2017 09:37

ABREARQUIVOS.PRG: In function 'HB_FUN_INKEYGUI':
ABREARQUIVOS.PRG:210:5: error: unknown type name 'MSG'
ABREARQUIVOS.PRG:211:5: error: unknown type name 'BOOL'
ABREARQUIVOS.PRG:211:18: error: 'FALSE' undeclared (first use in this function)
ABREARQUIVOS.PRG:211:18: note: each undeclared identifier is reported only once for each function it appears in
ABREARQUIVOS.PRG:212:5: error: unknown type name 'UINT'
ABREARQUIVOS.PRG:222:15: warning: implicit declaration of function 'SetTimer' [-Wimplicit-function-declaration]
ABREARQUIVOS.PRG:224:12: warning: implicit declaration of function 'GetMessage' [-Wimplicit-function-declaration]
ABREARQUIVOS.PRG:227:19: error: request for member 'message' in something not a structure or union
ABREARQUIVOS.PRG:229:16: error: 'WM_KEYDOWN' undeclared (first use in this function)
ABREARQUIVOS.PRG:230:16: error: 'WM_SYSKEYDOWN' undeclared (first use in this function)
ABREARQUIVOS.PRG:230:47: error: request for member 'wParam' in something not a structure or union
ABREARQUIVOS.PRG:230:66: error: 'TRUE' undeclared (first use in this function)
ABREARQUIVOS.PRG:231:16: error: 'WM_TIMER' undeclared (first use in this function)
ABREARQUIVOS.PRG:231:47: error: request for member 'wParam' in something not a structure or union
ABREARQUIVOS.PRG:236:11: warning: implicit declaration of function 'KillTimer' [-Wimplicit-function-declaration]
ABREARQUIVOS.PRG:242:11: warning: implicit declaration of function 'TranslateMessage' [-Wimplicit-function-declaration]
ABREARQUIVOS.PRG:243:11: warning: implicit declaration of function 'DispatchMessage' [-Wimplicit-function-declaration]
hbmk2[sgc]: Erro: Executando compilador C/C++. 1
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

como clicar sem clicar ????

Mensagempor Fernando queiroz » 18 Dez 2017 09:56

porque a tela nao aparece comigo, nao estou entendendo

uso a HWGUI 2.20 :% :% :% :%
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

como clicar sem clicar ????

Mensagempor asimoes » 18 Dez 2017 09:57

Meus testes foram com a 2.17
â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como clicar sem clicar ????

Mensagempor asimoes » 18 Dez 2017 10:00

Outra coisa tá faltando na função InkeyGui:

#include <windows.h>
#include "hbapi.h"
#include <olectl.h>
#include <time.h>
â–º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: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como clicar sem clicar ????

Mensagempor Itamar M. Lins Jr. » 18 Dez 2017 10:55

Ola!
Com 2.20 sem nada! Lembrem-se do Dialog NOMODAL!, Tem um BUG, via oDlg:bActivate:= {||oDlg:Show(), geraarquivos(oDlg)}, faz o gráfico(mostra) mas não mostra os outros componentes, oLabel, OwnerButton... Vou reportar isso para o Kresin, mas um BUG esperando correção.

#include "hwgui.ch"
FUNCTION MAIN
ABREARQUIVOS()
RETURN NIL

************************************************************
FUNCTION abrearquivos(  )
************************************************************

  LOCAL oDlg,  oLabel1, oLabel2, oLabel3, oLabel4, oProgressbar1, oProgressbar2, oLabel5, nomodal:=.T.

  INIT DIALOG oDlg TITLE "Verificando Arquivos Aguarde..."    AT 0, 0 SIZE 656,208 
     
   
   @ 580,177 OWNERBUTTON oOwnerbutton1  SIZE 68,28 ;
        TEXT 'Sair'  ;
        COORDINATES 0, 0, 0, 0  ;
        ON CLICK {|| oDlg:Close() }
   
   @ 14,18 SAY oLabel1 CAPTION "Arquivo:"  SIZE 55,18 
   @ 76,18 SAY oLabel2 CAPTION "nome do arquivo"  SIZE 566,18 
   @ 73,67 SAY oLabel4 CAPTION "nome do Indice"  SIZE 566,18 
   @ 15,66 SAY oLabel3 CAPTION "Indice:"  SIZE 45,18 
   @ 11,122 SAY oLabel5 CAPTION "Total:"  SIZE 45,18 
   @ 12,89 PROGRESSBAR oProgressbar1 SIZE 635,18  BARWIDTH 20 QUANTITY 100
   @ 12,143 PROGRESSBAR oProgressbar2 SIZE 635,18  BARWIDTH 26 QUANTITY 100   

   //oDlg:bActivate :=  {||oDlg:Show(),GeraArquivos(oDlg) } aqui funciona parcialmente :-(
   oDlg:Activate(nomodal,,,.T.)

GERAARQUIVOS(oDlg)
oDlg:Close()

RETURN oDlg:lresult

FUNCTION GERAARQUIVOS(oDlg)
LOCAL I
   FOR I:=1 TO 10
      Eval( {|| oDlg:oProgressbar1:Set(, (i/10) * 100), oDlg:oProgressbar1:Refresh(), .T.} )
      Eval( {|| oDlg:oProgressbar2:Set(, (i/10) * 100), oDlg:oProgressbar2:Refresh(), .T.} ) 
      inkey(.1)
   NEXT

RETURN Nil



Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

como clicar sem clicar ????

Mensagempor Fernando queiroz » 31 Ago 2018 15:21

:)) :)) :)) :)) :)) :)) :))

COM a atualizacao da HWGUI 2.20 o problema foi resolvido

oBar := HProgressBar():NewBox( "Verificando Arquivos ...",183,0,423,70, 20,28 )
oBar:Step()
oBar:SetLabel("CAIXA")
ABRE_CAIXA()
USE

o METHOD :NEWBOX cria a janela e faz tudo certinho

:{ :{ :{ :{ :{ :{ :{
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Anterior



Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


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