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.
