PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Bug da 2.18

https://pctoledo.org/viewtopic.php?t=15707

Página 1 de 3

Bug da 2.18

Enviado: 10 Dez 2014 22:31
por Itamar M. Lins Jr.
Ola!
Alguém do forum pode testar ai com a 2.18 p/ ver se funciona ?
O problema que ao teclar por exemplo "AAAAA" 5 caracteres ele não executa o valid na 2.18, só funciona se teclar enter.

Código: Selecionar todos

#include 'hwgui.ch'

Function Main

Local oDlg, cAc02:=Space(5)

SET CONFIRM OFF

INIT Dialog oDlg AT 0,0 SIZE 350,220 CLIPPER Style DS_CENTER 

   @ 010,090 say "PASSW:" SIZE 65,15
   @ 010,110 get oAc02 VAR cAc02 PICTURE "!!!!!" SIZE 100,30 Valid {||hwg_msginfo('Show only with ENTER'),.T.}


ACTIVATE Dialog oDlg


Return Nil
Saudações,
Itamar M. Lins Jr.

Bug da 2.18

Enviado: 11 Dez 2014 14:13
por asimoes
Itamar,

Eu postei no sourceforge um bug com a utilização do botão nicebutton e até agora não respoderam.

Ainda tem muita coisa para acertar nesta versão, por enquanto utilizo uma versão anterior a julho/2013

Este é o erro:

Error BASE/1075 Argument error: >
Called from ->HWG_FINDPARENT(51)
Called from ->HWG_FINDSELF(73)
Called from ->HWG_NICEBUTTPROC(134)
Called from ->HWG_CREATENICEBTN(0)
Called from ->HNICEBUTTON:ACTIVATE(115)
Called from ->HNICEBUTTON:NEW(82)
Called from ->MAIN(7)
HWGUI 2.18 Build 2
Date:12/10/14
Time:21:16:13

Bug da 2.18

Enviado: 11 Dez 2014 18:22
por Itamar M. Lins Jr.
Mandei outro email, vamos aguardar. Tomara que ele corrija, para podermos continuar com os testes.

Saudações,
Itamar M. Lins Jr.

Bug da 2.18

Enviado: 13 Dez 2014 10:36
por asimoes
Continuando com os testes da versão 2.18
Alguns erros que eu informei foram resolvidos ainda estou tendo este erro:

tenho esse GET e uma validação no botão.

Código: Selecionar todos

@ 110,17 GET oGetcUsuario VAR vUsuario SIZE 80, 28 PICTURE '@!' STYLE WS_DLGFRAME MAXLENGTH 6 COLOR hwg_RGB(0,0,255) BACKCOLOR 16777172 TOOLTIP "Digite o usuário." 

 @  30,85 BUTTONEX btnOk ;
                        CAPTION  "Entrar" ;
                        ON CLICK {||IF(!ValidaUsuarioSenha(@cUsuario,@cSenha),oGetcUsuario:SetFocus(),HWG_EndDialog())} ;
                        SIZE     70, 20 ;
                        ICON     oIconOk:handle  ;
                        FONT HFont():Add( "Arial", 0, -13,550 ) ;
                        STYLE WS_TABSTOP ;
                        TOOLTIP   "Entrar com a senha de acesso." 


FUNCTION ValidaUsuarioSenha(cUsuario,cSenha)
LOCAL cErro:="", lResp:=.T.
      DO CASE
      CASE Empty(oGetcUsuario:VarGet()) .AND. Empty(oGetcSenha:VarGet())
         cErro:="Usuário e senha inválida."
      CASE Empty(oGetcUsuario:VarGet())
         cErro:="Usuário inválido."
      CASE Empty(oGetcSenha:VarGet())
         cErro:="Senha inválida."
      ENDCASE
      lValida:=Empty(cErro)
      IF !lValida
         IF hwg_MsgYesNo(cErro+" tentar outra vez?","Atenção")
            oGetcUsuario:VarPut(Space(6))
            oGetcSenha:VarPut(Space(6))
            oGetcUsuario:Refresh()
            oGetcSenha:Refresh()
         ELSE
            lValida :=.T.
            cUsuario:=""
            cSenha  :=""
         ENDIF
      ELSE
         cUsuario:=AllTrim(oGetcUsuario:VarGet())
         cSenha  :=AllTrim(oGetcSenha:VarGet())
      ENDIF
RETURN lValida

Código: Selecionar todos

Error HCUSTOMWINDOW/0  Invalid class member
Called from ->HEDIT:VARGET(225)
Called from procguicore1.prg->VALIDAUSUARIOSENHA(1480)
Called from procguicore1.prg->(b)GETLOGINUSUARIO(1455)
Called from ->HBUTTONEX:ONCLICK(395)
Called from ->(b)HBUTTONX_NEW(306)
Called from ->ONDLGCOMMAND(333)
Called from ->(b)(_INITSTATICS00003)(0)
Called from ->HDIALOG:ONEVENT(181)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(135)
Called from procguicore1.prg->GETLOGINUSUARIO(1466)
Called from PASA0001.prg->INICIALIZASISTEMA(69)
Called from PASA0000.prg->MAIN(407)

HWGUI 2.18 Build 2
Date:14.12.13
Time:10:08:27
Outro problema é que não há mais o get listbox

Ex:

Código: Selecionar todos

  @ 10,40 GET LISTBOX oList ;
              VAR nListPos ;
              ITEMS aPagBusca ;
              Font oFontListBox OF oModDlg ;
              SIZE 175,220 ;
              ON DBLCLICK { ||oModDlg:lResult:=.T.,hwg_EndDialog(oModDlg:handle)} ;
              TOOLTIP ""
Resumo ainda não dá pra usar esta versão, porque eu teria que alterar todo o meu sistema por conta destas novidades.

Bug da 2.18

Enviado: 13 Dez 2014 17:00
por Itamar M. Lins Jr.
Ola!
Ele corrigiu, algumas das solicitações, do NiceButton e do Get com Valid {||} com "set confirm off".
Agora é testar mais.

Código: Selecionar todos

2014-12-12 21:30 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/winapi/hdialog.prg
  + source/gtk/hhyper.prg
    * Two files, which I forgot to upload.

2014-12-12 14:30 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/gtk/control.c
    * hwg_button_settext() function added
  * source/gtk/hcontrol.prg
    * HButton():Settext() method added
  * utils/dbc/commands.prg
  * utils/dbc/dbchw.prg
    * Implementation of Csv format satisfies the requirements of RFC 4180 now.
      for both COPY TO and APPEND FROM commands

2014-12-12 13:15 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/winapi/hedit.prg
    ! Fixed a problem with last get in a dialog and SET CONFIRM OFF

2014-12-12 11:48 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/winapi/nice.c
  * source/winapi/guimain.prg
    ! Fixes for HWG_USE_POINTER_ITEM mode
  * source/gtk/misc.c
    * hwg_rgb() implemented, compatible with winapi version
  + source/gtk/hhyper.prg
    + HStaticLink from winapi version with some modifications
  * source/gtk/Makefile.linux
  * source/gtk/Makefile.scr
  * hwgui.hbm
    * Makefiles updated to include the gtk/hhyper.prg

2014-12-10 16:34 UTC+0300 Alexander Kresin <alex@belacy.ru>
  * source/winapi/control.c
    ! Tooltips creation fixed for UNICODE mode
  * utils/dbc/commands.prg
    * COPY TO Csv format added
Saudações,
Itamar M. Lins Jr.

Bug da 2.18

Enviado: 13 Dez 2014 20:38
por Itamar M. Lins Jr.
Neste caso do botão ButtonEx com validação, acredito que vc precisa passar o objeto para a função.
oGetcUsuario


Saudações,
Itamar M. Lins Jr.

Bug da 2.18

Enviado: 14 Dez 2014 07:08
por asimoes
Outro problema que eu identifiquei na 2.18 é este

Código: Selecionar todos

@  30,15 SAY "Usuário" SIZE 80,20 
@  30,50 SAY "Senha" SIZE 80, 20 Tooltip 'Digite a Senha'
Se usar o tooltip no segundo say o primeiro say não aparece

Bug da 2.18

Enviado: 14 Dez 2014 07:23
por asimoes
Comparando a 2.18 com a versão anterior
o método varget() foi removido do fonte hedit.prg que trata do get

Bug da 2.18

Enviado: 14 Dez 2014 07:33
por asimoes
Estou preocupado com esta versão 2.18 fizeram muitas intervenções nos códigos e não fizeram nenhum documento para nos auxiliar nas adaptações, não entendi muito o propósito desta versão.
Estou tendo que descobrir onde dá erro e procurar a solução sem documentação para resolver.

Bug da 2.18

Enviado: 14 Dez 2014 13:04
por Itamar M. Lins Jr.
Se usar o tooltip no segundo say o primeiro say não aparece
Testei aqui, e já foi corrigido.

Saudações,
Itamar M. Lins Jr.

Bug da 2.18

Enviado: 22 Dez 2014 22:34
por asimoes
Continuando os testes encontrei outro erro:

Ao chamar a função Status de um STATUS, congela a janela.

Não achei este método: settextpanel (este método fazia parte da classe HStatus)

ADD STATUS oStatus TO oDlgReport PARTS 280,90,90,120,0 FONT oFont3 ON INIT {|This| Status(This,aTexto) }

STATIC FUNCTION Status(This,aTexto)
This:settextpanel(2,'Lin: '+LTrim(Str(1,5)))
This:settextpanel(3,'Col: '+LTrim(Str(1,3)))
This:settextpanel(4,'Página: '+LTrim(Str(1,5))+" de "+LTrim(Str(Len(aTexto),5)))
RETURN Nil

Parei por hoje! 2 horas dedicadas para testar esta nova versão.

Bug da 2.18

Enviado: 23 Dez 2014 00:27
por Itamar M. Lins Jr.
E nós aqui, já temos alguns meses...

Saudações,
Itamar M. Lins Jr.

Bug da 2.18

Enviado: 24 Dez 2014 09:33
por asimoes
Outro problema para verificar com a RICHEDIT:

Está faltando o método ON OTHERMESSAGES ou virou o que?

Esse código da HwGui parece-me que colocou de fora tudo que estava na 2.17 só pra complicar a vida do programador.

Tô naquele dilema esquece esta versão e usa a antiga até onde der ou continuo descobrindo o que mais tem de errado ou faltando.

ADD STATUS continua com erro em ON INIT .

Bug da 2.18

Enviado: 24 Dez 2014 09:50
por asimoes
Vou fazer uma atualização por mês e ver o que acontece, será que tem mais alguém além de mim e Itamar se aventurando com esta nova versão?

Bug da 2.18

Enviado: 24 Dez 2014 10:19
por Antonio
Ola asimoes!

Ja deu uma olhada nos PRGs em hwgui\contrib\ext_controls?
Acredito que o que voce procura esta ai.

Penso que é uma forma de voce compilar seu sistema na nova versão, mantendo seu codigo e fazendo ajustes ate uma total adaptação.

Em hwgui\contrib
hbmk2 hwg_extctrl.hbp

Resultado
hwgui\lib\libhwg_extctrl.a
Todos os horários são UTC-03:00
Página 1 de 3

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB