Clipper On Line • Ver Tópico - Teclado numerico hwgui220

Teclado numerico hwgui220

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Teclado numerico hwgui220

Mensagempor gilbertosilverio » 08 Out 2017 08:15

Ola amigos,

Estou fazendo testes com HB34+MINGW7.10+HWGUI220, e não estou conseguindo fazer funcionar o teclado numerico do meu pc.

Na rotina abaixo, compilado com XHB110+BCC55+WVT+HWGUI, esta pesquisa funciona perfeitamente, o teclado numérico funciona corretamente, ja na compilação somente com a HWGUI220, o teclado numérico retorna letras a,b,c,d... para cada numero digitado.

Montei esta rotina para faciliTar a mudança da DBEDIT para o Browse, mais estou enroscado no uso do TECLADO NUMERICO.

Minha duvida:
Preciso incluir algo na HWGUI220 para conseguir usar o teclado numérico, uso por padrão o HB_CODEPAGE_PTISO e o HB_LANG_PT, alguem ja passou por isso e consegui resolver.

#include "hwgui.ch"

function main()
   REQUEST HB_CODEPAGE_PTISO
   REQUEST HB_LANG_PT
   HB_SETCODEPAGE( 'PTISO' )
   HB_LANGSELECT( 'PT' )
   altcliente()
return nil

Function aLTCLIENTE()
   Local oDlg, oPanel, oButton1
  Private nPES, gPes, vPes:="", keyAnt:=0, aVERDE, aAMARELO, oTECLA:="", nORDEM:=1, cRAZ
  PRIVATE CM1:=1, aCOMBO, nPosicao:=0, cProgressKey:=""

  KSETCAPS(.T.)

  aCOMBO:= {[1 - Razao    ],;
            [2 - Codigo   ],;
            [3 - N chave  ] }

   USE xCLIENTE NEW SHARED
   SET INDEX TO xRCLIDES,xRCLICOD,xRCLINCH

   DECLARE V1[52], V2[52], V3[52]
   //       REGISTRO                 MASCARA                       DESCRITIVO
   V1[01]:="RAZAO"         ; V2[01]:="@!"               ; V3[01]:="Razao Social"
   V1[02]:="COMCLAS1"      ; V2[02]:="!!"               ; V3[02]:="Cat"
   V1[03]:="NONCO"         ; V2[03]:="999999"           ; V3[03]:="CRM"
   V1[04]:="ADMI"          ; V2[04]:="@!"               ; V3[04]:="Medico"
   V1[05]:="ATIVO"         ; V2[05]:="!"                ; V3[05]:="S  "
   V1[06]:="ULTCONTATO"    ; V2[06]:="99/99/9999"       ; V3[06]:="UltimoCto"
   V1[07]:="PROCONTATO"    ; V2[07]:="99/99/9999"       ; V3[07]:="Proximo"
   INIT DIALOG oDlg TITLE "Cadastro de Clientes" AT 0, 0 SIZE 814, 484 BACKCOLOR 12632256 ;
         STYLE WS_TABSTOP+DS_CENTER FONT HFont():Add( "MS Sans Serif",0,-13 )

   @ 0,0 PANEL oPanel SIZE 814,32 ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS

   @ 2,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Proximo")} ;
       SIZE 32,26 FLAT BITMAP "next.bmp"

   @ 34,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Ultimo")} ;
       SIZE 32,26 FLAT BITMAP "bottom.bmp"

   @ 66,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Primeiro")} ;
       SIZE 32,26 FLAT BITMAP "top.bmp"

   @ 98,3 OWNERBUTTON OF oPanel ON CLICK {||hwg_MsgInfo("Anterior")} ;
       SIZE 32,26 FLAT  BITMAP "previous.bmp"

   @ 500,370 SAY gPes CAPTION vPes   SIZE 300,22 COLOR 255

   @ 02,50 BROWSE oBrw1 DATABASE OF oDLG  SIZE 750,300 AUTOEDIT STYLE WS_TABSTOP+WS_HSCROLL

      oBrw1:alias     := "xCLIENTE"
      oBrw1:aColumns  := {}
      oBrw1:bColorSel := 12507070

      Teste_CreateColumn( oBrw1, V1[01], V3[01], "xCLIENTE", nORDEM, V2[01])
      Teste_CreateColumn( oBrw1, V1[02], V3[02], "xCLIENTE", nORDEM, V2[02])
      Teste_CreateColumn( oBrw1, V1[03], V3[03], "xCLIENTE", nORDEM, V2[03])
      Teste_CreateColumn( oBrw1, V1[04], V3[04], "xCLIENTE", nORDEM, V2[04])
      Teste_CreateColumn( oBrw1, V1[05], V3[05], "xCLIENTE", nORDEM, V2[05])
      Teste_CreateColumn( oBrw1, V1[06], V3[06], "xCLIENTE", nORDEM, V2[06])
      Teste_CreateColumn( oBrw1, V1[07], V3[07], "xCLIENTE", nORDEM, V2[07])

      oBrw1:bKeyDown := { |o,key|HB_SYMBOL_UNUSED(o),IIF(key==27,(hwg_EndDialog(oDlg:handle),.F.),a_BrwKeyfun(o,key))}

      oBrw1:Refresh()

      @ 680,400 BUTTON oButton1 CAPTION "Sai&r"  SIZE 100,32 STYLE WS_TABSTOP  ;
                ON CLICK {|| DBCLOSEALL(), oDLG:Close() }

      @ 540,400 BUTTON oButton2 CAPTION "&Ordem"   SIZE 98,32 STYLE WS_TABSTOP ;
                ON CLICK {|| MsgGetORDEM( @nORDEM, @aCOMBO ), xCLIENTE->(DBSETORDER(nORDEM)), oBrw1:Refresh(), oBrw1:Setfocus() }

   ACTIVATE DIALOG oDlg

return nil

STATIC FUNCTION Teste_CreateColumn( oBrw, oCol, oHead, oAr, seq, xPIC )
   Local i
   Local nArea := &oAr->(select())
   IF VALTYPE(xCLIENTE->(&oCol)) = [C]
      oBrw:AddColumn( HColumn():New( oHead , FieldWBlock( oCol, nArea ),,,, .F. ,DT_LEFT  , DT_LEFT   , xPIC)) //, oType, oLen, oDec, .F. ) )
   ELSEIF VALTYPE(xCLIENTE->(&oCol)) = [N]
      oBrw:AddColumn( HColumn():New( oHead , FieldWBlock( oCol, nArea ),,,, .F. ,DT_RIGHT , DT_RIGHT  , xPIC)) //, oType, oLen, oDec, .F. ) )
   ELSE
      oBrw:AddColumn( HColumn():New( oHead , FieldWBlock( oCol, nArea ),,,, .F. ,DT_CENTER, DT_CENTER , xPIC)) //, oType, oLen, oDec, .F. ) )
   ENDIF
   oBrw:Refresh()
RETURN Nil

FUNCTION a_BrwKeyFun( oBrw, key )   // Pesquisa incremnetal em arqquivo DBF
   LOCAL nPosicao:=0, nKeyPress:=key
   LOCAL cRegEx := "[a-zA-Z0-9 ]{1}"
   KSETCAPS(.T.)
   /*
   if hwg_ISNUMLOCKACTIVE()
      hwg_msginfo(Chr(nKeyPress)+[ - ]+str(nKeyPress))
   endif
   */
   aResult:=HB_RegEx( cRegEx, Chr(nKeyPress) )
   IF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ "13|34|33|37|38|39|40|20|16"
      cProgressKey:=""
      gPES:settext(cProgressKey)
      RETURN .T.
   ENDIF
   IF nKeyPress = VK_F5
      cProgressKey:=""
      gPES:settext(cProgressKey)
      nORDEM:=1
      xCLIENTE->(DBSETORDER(nORDEM))
      oBrw:Refresh()
      RETURN .T.
   ELSEIF nKeyPress = VK_F6
      cProgressKey:=""
      gPES:settext(cProgressKey)
      nORDEM:=2
      xCLIENTE->(DBSETORDER(nORDEM))
      oBrw:Refresh()
      RETURN .T.
   ELSEIF nKeyPress = VK_F7
      cProgressKey:=""
      gPES:settext(cProgressKey)
      nORDEM:=3
      xCLIENTE->(DBSETORDER(nORDEM))
      oBrw:Refresh()
      RETURN .T.
   ENDIF
// IF IsAscii(Chr(nKeyPress)) .AND. nKeyPress # 8
   If nKeyPress # 8
      cProgressKey += Chr(nKeyPress)
      nPosicao:=AScan(oBrw:aArray,cProgressKey)
      gPES:settext(cProgressKey)
      PesqInc( oBrw, key )
   ELSEIF nKeyPress = 8 .AND. Len(cProgressKey) >= 1
      cProgressKey:=Left(cProgressKey,Len(cProgressKey) - 1)
      nPosicao:=AScan(oBrw:aArray,cProgressKey)
      gPES:settext(cProgressKey)
      PesqInc( oBrw, key )
   ENDIF
   IF nPosicao # 0
      oBrw:rowPos := nPosicao
      Eval( oBrw:bGoTo, oBrw, nPosicao )
      oBrw:Refresh()
   ENDIF
RETURN .T.

Function PesqInc( oBrw, key )
  KSETCAPS(.T.)
  xCLIENTE->(DBSETORDER(nORDEM))
  vPes := cProgressKey
  gPes:SetText(vPes)
  xCLIENTE->(dbseek(vpes, .t.))
  IF xCLIENTE->(FOUND())
     oBRW:REFRESH()
     oBrw:Setfocus()
     nPosicao:=xCLIENTE->(RECNO())
     return .t.
  ELSE
     hwg_Msginfo([Ultimo item localizado conforme os caracteres digitados],[Atenção])
     oBRW:REFRESH()
     oBRW:Setfocus()
     return .t.
  ENDIF
return .F.

Function MsgGetORDEM( nORDEM , aCOMBO )
   Local oModDlg, oFont := HFont():Add( "TAHOMA",0,-13 )
   LOCAL oCOMBO, CM:=nORDEM
   INIT DIALOG oModDlg TITLE "Alterar ordem da listagem" SIZE 300,140  ;
        FONT oFont CLIPPER NOEXIT STYLE DS_MODALFRAME+WS_POPUP+WS_VISIBLE+WS_CAPTION+WS_SYSMENU+DS_CENTER
   @ 20,10 SAY "Ordem da pesquisa" SIZE 220,22
   @ 20,35 GET COMBOBOX oCOMBO VAR CM ITEMS aCombo SIZE 180,25 STYLE WS_TABSTOP
   @ 200,95 BUTTON "Ok"  ID 101  SIZE 90,24 STYLE WS_TABSTOP ;
            ON CLICK { || nORDEM:=VAL(SUBSTR(aCOMBO[CM],1,1)), hwg_EndDialog(), oBRW1:SETFOCUS() }
   ACTIVATE DIALOG oModDlg
   oFont:Release()
Return nORDEM

gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Teclado numerico hwgui220

Mensagempor JoséQuintas » 08 Out 2017 21:50

Não sei se é proposital ou não, mas....

olhando hbrowse.prg

ELSEIF msg == WM_KEYDOWN
IF ::bKeyDown != Nil
IF !Eval( ::bKeyDown, Self, wParam )
retValue := 1
ENDIF
ENDIF


Está retornando direto a mensagem do Windows.
E olhando no MSDN,

API VM_KEYDOWN

https://msdn.microsoft.com/pt-br/library/windows/desktop/ms646280(v=vs.85).aspx

vkeypad0.png
vkeypad0.png (5.83 KiB) Visualizado 2992 vezes


Olhando a tabela de Virtual Key Codes

vkeypad.png
vkeypad.png (7.49 KiB) Visualizado 2992 vezes


O que chega nisto:

CASE nKeyPress == 0x30 ; nKeyPress := Asc( "0" )
CASE nKeyPress == 0x31 ; nKeyPress := Asc( "1" )
CASE nKeyPress == 0x32 ; nKeyPress := Asc( "2" )
CASE nKeyPress == 0x33 ; nKeyPress := Asc( "3" )
CASE nKeyPress == 0x60 ; nKeyPress := Asc( "1" )
CASE nKeyPress == 0x61 ; nKeyPress := Asc( "1" )

Não sei se está certo ou errado, mas não está retornando o Ascii, e sim o código da tecla no teclado.

O que isso significa?
Alguém usa a HWGUI 2.20 ?
Isso é correto ou é bug mesmo?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Teclado numerico hwgui220

Mensagempor gilbertosilverio » 04 Nov 2017 10:53

Ola amigos,

Enviei este exemplo ao Kresin, mais como ele não respondeu nem fez nenhuma alteração na HWGUi 220, por tentativa e erro, devido a meu total desconhecimento de como corrigir o código, inclui estas verificações na função abaixo, referente a que tecla esta retornando, e aparentemente funciona, ele troca a letras a,b,c,etc... pelos números do teclado numerico, o unico incoveniente e que so funciona pra caracteres maisculos...kkkk

FUNCTION a_BrwKeyFun( oBrw, Nkey )   // Pesquisa incremnetal em arqquivo DBF
   LOCAL nPosicao:=0, nKeyPress:=nkey
   LOCAL cRegEx := "[a-zA-Z0-9 ]{1}"
   KSETCAPS(.T.)
   /*
   if hwg_ISNUMLOCKACTIVE()
      hwg_msginfo(Chr(nKeyPress)+[ - ]+str(nKeyPress))
   endif
   */
   //hwg_msginfo(Chr(nKeyPress)+[=]+AllTrim(Str(nKeyPress)))

   aResult:=HB_RegExALL( cRegEx, Chr(nKeyPress) )

   IF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ "13|34|33|37|38|39|40|20|16"
      cProgressKey:=""
      gPES:settext(cProgressKey)
      RETURN .T.
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [96]
      nKeyPress := 48
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [97]
      nKeyPress := 49
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [98]
      nKeyPress := 50
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [99]
      nKeyPress := 51
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [100]
      nKeyPress := 52
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [101]
      nKeyPress := 53
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [102]
      nKeyPress := 54
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [103]
      nKeyPress := 55
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [104]
      nKeyPress := 56
   ELSEIF nKeyPress # 8 .AND. AllTrim(Str(nKeyPress)) $ [105]
      nKeyPress := 57
   ENDIF

   IF nKeyPress = VK_F5
      cProgressKey:=""
      gPES:settext(cProgressKey)
      nORDEM:=1
      xCLIENTE->(DBSETORDER(nORDEM))
      oBrw:Refresh()
      RETURN .T.
   ELSEIF nKeyPress = VK_F6
      cProgressKey:=""
      gPES:settext(cProgressKey)
      nORDEM:=2
      xCLIENTE->(DBSETORDER(nORDEM))
      oBrw:Refresh()
      RETURN .T.
   ELSEIF nKeyPress = VK_F7
      cProgressKey:=""
      gPES:settext(cProgressKey)
      nORDEM:=3
      xCLIENTE->(DBSETORDER(nORDEM))
      oBrw:Refresh()
      RETURN .T.
   ENDIF
// IF IsAscii(Chr(nKeyPress)) .AND. nKeyPress # 8
   If nKeyPress # 8
      cProgressKey += Chr(nKeyPress)
      nPosicao:=AScan(oBrw:aArray,cProgressKey)
      gPES:settext(cProgressKey)
      PesqInc( oBrw, nkey )
   ELSEIF nKeyPress = 8 .AND. Len(cProgressKey) >= 1
      cProgressKey:=Left(cProgressKey,Len(cProgressKey) - 1)
      nPosicao:=AScan(oBrw:aArray,cProgressKey)
      gPES:settext(cProgressKey)
      PesqInc( oBrw, nkey )
   ENDIF
   IF nPosicao # 0
      oBrw:rowPos := nPosicao
      Eval( oBrw:bGoTo, oBrw, nPosicao )
      oBrw:Refresh()
   ENDIF
RETURN .T.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Teclado numerico hwgui220

Mensagempor JoséQuintas » 05 Nov 2017 16:29

Sei lá se o melhor é conhecer ou não conhecer....

Hoje encontrei isto:

http://www.kresin.ru/en/index.html

e me chamou a atenção esta parte:

24/06/2013 - HwGUI - HwGUI 2.16c was uploaded to Sourceforge as a main branch and the number was set to 2.18.


Ou seja, a HWGUI 2.17, que muitos usam aqui no site, parece que não existiu, ou não foi considerada.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18010
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Teclado numerico hwgui220

Mensagempor gilbertosilverio » 06 Nov 2017 14:41

Quintas,

Uso a 2.17, que era mantida pelo Basso, é creio que ele ainda deve fazer as alterações, mais para uso próprio.

O Duro e isso, o Kresin, pai da criança, havia abandonado a HWGUI, o Basso adotou, fez as alterações, deixou ela uma joia, ai o PAI, retomou a criança, tirou todas as melhorias e deixou ela, como ele usa (uma M....) kkkkk

Estava fazendo uns testes com a HWGUI 220+HB34, pra ver se e possível usa-la em produção, mais como não tem jeito, vou abandona-la e usar a 2.17 ate onde der...

Uma pena que a HWGUI 2.17 não teve mais atualizações, a que tenho aqui não consigo fazer funcionar com o HB34, visto que o BASSO usa o XHB, queria ficar atualizado, para não sofre no futuro, como o caso do TSL da versão 4.0 da NFe, não rodar mais em SO antigos, como li no grupo da UNINFE, postado pelo Wandrey.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Teclado numerico hwgui220

Mensagempor esbasso » 07 Nov 2017 23:22

Na realidade o teclado tem uma serie de códigos
Eu tinha implementado tanto no browse como no edit o tratamento deles
Não sei se ele removeu isso
Luis Fernando Basso
Desenvolvedor VFP + XHARBOUR + HWGUI
lfbasso@gmail.com
http://www.engersoft.com.br
esbasso
Colaborador

Colaborador
 
Mensagens: 325
Data de registro: 24 Jan 2007 16:49
Cidade/Estado: CHAPECO/SC
Curtiu: 0 vez
Mens.Curtidas: 8 vezes

Teclado numerico hwgui220

Mensagempor gilbertosilverio » 08 Nov 2017 06:14

Ola Luiz,

Acho que sim, que ele deixou de fora, ele deve ter dado mais enfase a HWGUI para rodar no linux...

Por acaso, você deve ter dado continuidade a HWGUI 217, não seria possível você disponibilizar ela pra gente vê se consegue roda-la no HB34...
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Teclado numerico hwgui220

Mensagempor esbasso » 08 Nov 2017 08:51

Eu teria de instalar o HB34 para testar e adequar
Vou ver se faço isso assim que der
Luis Fernando Basso
Desenvolvedor VFP + XHARBOUR + HWGUI
lfbasso@gmail.com
http://www.engersoft.com.br
esbasso
Colaborador

Colaborador
 
Mensagens: 325
Data de registro: 24 Jan 2007 16:49
Cidade/Estado: CHAPECO/SC
Curtiu: 0 vez
Mens.Curtidas: 8 vezes

Teclado numerico hwgui220

Mensagempor gilbertosilverio » 08 Nov 2017 09:28

Luiz,

Creio que muitos vão ficar aguardando...

Obrigado.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Teclado numerico hwgui220

Mensagempor Itamar M. Lins Jr. » 08 Nov 2017 21:41

Ola!

O Duro e isso, o Kresin, pai da criança, havia abandonado a HWGUI, o Basso adotou, fez as alterações, deixou ela uma joia, ai o PAI, retomou a criança, tirou todas as melhorias e deixou ela, como ele usa (uma M....) kkkkk

Isso não é verdade. As alterações do Luis Basso, estão todas lá. Leia o Changelog da 2.2x
Fora isso tinha o Przemek e outras pessoas fazendo atualizações na versão 17. É só ler o CHANGELOG! Não era Luis Basso exclusivamente.
Nada foi perdido, esta tudo lá na pasta CONTROLES EXTENDIDOS.
Falta reconhecimento com o trabalho do Alexander Kresin.

Estava fazendo uns testes com a HWGUI 220+HB34, pra ver se e possível usa-la em produção, mais como não tem jeito, vou abandona-la e usar a 2.17 ate onde der...

Eu uso em produção a 2.20.
Quais são os erros da 2.20 ? Cadê suas reclamações quanto aos problemas da 2.20 no forum ?

Uma pena que a HWGUI 2.17 não teve mais atualizações, a que tenho aqui não consigo fazer funcionar com o HB34, visto que o BASSO usa o XHB, queria ficar atualizado, para não sofre no futuro, como o caso do TSL da versão 4.0 da NFe, não rodar mais em SO antigos, como li no grupo da UNINFE, postado pelo Wandrey.

Tem a classe do José Quintas e outras opções para NFE e NFCe. Aqui no forum mesmo tem as informações.

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

Teclado numerico hwgui220

Mensagempor Itamar M. Lins Jr. » 08 Nov 2017 21:48

Ola!
Por essas e outras que digo que o pessoal do xHarbour só fez detonar o Harbour e seus utilitários.
Demora para alguns verem a realidade, mas ela chega na percepção das pessoas.
É o que o José Quintas vem escrevendo ai nos posts ensinando ao pessoal sair desses processos(ensinos) paralelos que só atrapalham.

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

Teclado numerico hwgui220

Mensagempor Itamar M. Lins Jr. » 08 Nov 2017 23:12

Ola!
O que foi removido da parte principal, foi colocado na pasta \ext_controls, tá tudo documentado.
Porque essas opções VISUAIS e determinados controles não rodam no GTK (Linux) impedindo a Hwgui de ser utilizada no LINUX.
O problema é que engessaram a Hwgui no BCC , XHarbour e no Windows.
A mesma coisa ele fez com o próprio código, criou a pasta \GTK e colocou a parte que é da GTK lá, ele apenas organizou a bagunça que estava. Isso nas palavras dele.

2015-01-26 11:50 UTC+0300 Alexander Kresin <alex@belacy.ru>
  + contrib/ext_controls/hcomboex.prg
    + HCheckCombobox from 2.17 added
  * contrib/ext_controls/makefile.bc
  * contrib/ext_controls/makefile.gcc
    * Changed to include the hcomboex.prg
  * include/hwg_extctrl.ch
    * GET COMBOBOXEX command added from 2.17
  * source/winapi/control.c
    * comboproc related stuff removed

2015-01-26 09:40 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/winapi/hcontrol.prg
  * source/gtk/hcontrol.prg
    * :Enabled() SETGET method is introduced, :isEnabled() has been removed.
  * contrib/ext_controls/hctrlex.prg
  * contrib/ext_controls/hbrowsex.prg
    * :isEnabled() calls are replaced by :Enabled
    * Checking of a bitmap is added ( provided by Itamar M. Lins Jr. )


Ultima atualização da Hwgui 2.20.

2017-06-11 17:45 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * contrib/activex/htmlcore.c
    ! Small fix

2017-06-09 15:22 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/winapi/control.c
    ! Warning fixed ( hb_snprintf() instead of sprintf )
  * source/common/editor/hilight.prg
    * Hilight rules may be set directly in Hilight():New() now.


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

Teclado numerico hwgui220

Mensagempor Itamar M. Lins Jr. » 08 Nov 2017 23:37

Ola!
Faltou o exemplo demonstrando o problema e que possa ser compilado por qualquer um.
Aqui um bug da 2.20 que ele não corrigiu. Qualquer um pode rodar que vai ver o problema.

//This example show anomaly with use of TAB class and tooltip flag.
#include "hwgui.ch"

Function main
LOCAL oDlg, cGetA:=space(50), cGetB:=space(50), cGetC:=space(50), oTab

INIT DIALOG oDlg CLIPPER AT 100,100 SIZE 400,400

@ 20,30 TAB oTab ITEMS {} SIZE 200,200 OF oDlg
BEGIN PAGE "A" OF oTAB   
@ 30,40 get oGetA VAR cGetA size 80,25
END PAGE OF oTAB

BEGIN PAGE "B" OF oTAB   
@ 30,40 get oGetB VAR cGetB size 80,25
END PAGE OF oTAB

BEGIN PAGE "C" OF oTAB   
@ 30,40 get oGetC VAR cGetC size 80,25 tooltip "One tooltip!" //Here disable all gets ! ;-(
END PAGE OF oTAB

ACTIVATE Dialog oDlg
return nil


Ele disse que ainda tá na área...
Hi,

I'm here. Just busy with some other things. The company, where I work
in, moves to another ERP system and I need to participate.
Besides, yestrday we celebrated a Victory Day here)

Regards, Alexander.


Bom seria, um retorno dele nestes problemas.

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

Teclado numerico hwgui220

Mensagempor asimoes » 09 Nov 2017 05:36

Eu também fiz tentativas para atualizar para a 2.2x e ainda não obtive sucesso, continuo na 2.17, talvez uma versão fork da 2.17 com um merge da 2.2x, mantendo o que está funcionando seria ótimo. Assim como foi feito na letodb.

Nota: Não é para polemizar, mas essa mensagem do Alexander já tem um tempo.
â–º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

Teclado numerico hwgui220

Mensagempor gilbertosilverio » 09 Nov 2017 06:33

Bom dia Itamar,

Me desculpe se te ofendi, ou ofendi o pessoal da HWGUI, não quis criar polemica, simplesmente fiz um comentário do que aconteceu.

Estávamos trabalhando com a versão, 217, o Kresin simplesmente deixou ela de lado e colocou a 2.20.

Mandei vários emails não época, demostrando os erros entre as versões, para podermos manter a compatibilidade entre elas, mais veja, não falo nem o português corretamente, imagina eu tentando explicar algo, convertendo do português para o Inglês e ele lendo em russo, acho que deve ter sido algo muito estranho.

Sei que todos aqui se beneficiam das linguagens OPEN, eu sempre "COMPREI" as versões comerciais, pois creio que ninguém vive de brisa, tenho todas as versões originais e comerciais, do CLIPPER 5,2, CAVO, FIVEWIN, XHARBOUR, sempre que posso contribuo, para poder manter os projetos.

As vezes por comodidade ficamos estáticos, uso em produção o XHB110+BCC55+HWGUI217+WVW, por que nunca tive problemas com elas.

Estou sempre tentando testar com as versões mais novas, para evitar ficar desatualizado, mais a cada nova versão, ocorrem erros, e como sua LEIGO, tento passar o que ocorre, o pessoal não entende o que expliquei, ou não consegue me mostrar que o errado e minha rotina, ai vou ficando com a que esta funcionando.

Eu uso em produção a 2.20.
Quais são os erros da 2.20 ? Cadê suas reclamações quanto aos problemas da 2.20 no forum ?

Por favor, me demonstre como você usa o o teclado numérico em um BROWSE, como no exemplo que postei aqui.

Este mesmo exemplo envie ao Kresin, e não obtive resposta, como sou "UMA ANTA", não tenho como dizer que o erro e dele e não meu.

Novamente me desculpe, não tive a intenção de cria polemica, simplesmente quis valorizar o trabalho do LUIZ FERNANDO BASSO, que mesmo sem ganhar nada, sempre foi e ainda é muito prestativo.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

Próximo



Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 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