Menu HWGUI com aplicativo
Enviado: 09 Mar 2024 00:43
Verdade. Desculpe.
Agora finalmente deu certo a compilação. Precisei incluir também a xhb.hbc e a hbwin.hbc. Mas finalmente compilou. Estou finalmente usando a versão 2.23.
Vi um primeiro problema nessa mudança de versão: o campo para digitação da senha, que na versão anterior ficava em branco, agora é preenchido com vários *****. E pior: mesmo selecionando todos os **** e digitando por cima, ele não apaga os ****. Preciso apagar manualmente depois de digitar a senha, algo que o usuário vai ter certa dificuldade para entender.
Mas testei o menu agora, e ainda assim não funcionou, está dando erro. Copiei o modelo do tutorial, para testar.
O erro:
A linha 34, indicada na mensagem de erro, é esta:
Não consigo entender este erro.
Agora finalmente deu certo a compilação. Precisei incluir também a xhb.hbc e a hbwin.hbc. Mas finalmente compilou. Estou finalmente usando a versão 2.23.
Vi um primeiro problema nessa mudança de versão: o campo para digitação da senha, que na versão anterior ficava em branco, agora é preenchido com vários *****. E pior: mesmo selecionando todos os **** e digitando por cima, ele não apaga os ****. Preciso apagar manualmente depois de digitar a senha, algo que o usuário vai ter certa dificuldade para entender.
Mas testei o menu agora, e ainda assim não funcionou, está dando erro. Copiei o modelo do tutorial, para testar.
O erro:
A função está assim:Error BASE/1086 Argument error: ++
Called from (b)HWG_ERRSYS(20)
Called from HWG_BEGINMENU(204)
Called from MAIN(34)
HWGUI 2.23 Build 7
Date:09/03/24
Time:00:22:00
Código: Selecionar todos
#include "hwgui.ch"
MEMVAR cnSQL
FUNCTION Main
Local cRet, oSay1, oSay2, oSay3, nId, cTxt, oMain
Local oFont := HFont():Add( "MS Sans Serif",0,-13 )
private vers :="12/07/22"
private oDlg, cnSQL, us, nmus, seis
private cSair :="N"
private hrabertura :=time()
private nProvAtiv :=3
set date brit
PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
PREPARE FONT oFontSay NAME "MS Sans Serif" WIDTH 0 HEIGHT -13 WEIGHT 700
do while .t.
if us=NIL
cRet=login()
endif
INIT DIALOG oDlg TITLE "Processos - Versão: "+substr(vers,7,2)+"."+substr(vers,4,2)+"."+substr(vers,1,2) AT 1, 1 SIZE 650, 600 FONT oFont
MENU OF oMain
MENU TITLE "&Finalizar"
MENUITEM "&Message" ACTION hwg_Msginfo( "Just a test", "Message" )
SEPARATOR
MENUITEM "&Exit" ACTION ConfirmarFechar()
ENDMENU
MENU TITLE "&Consultar"
MENUITEM "&About" ACTION hwg_Msginfo( HwG_Version(), "About" )
ENDMENU
ENDMENU
@ 0,110 BITMAP Bitmap1 ;
SHOW "ImagemLondres.jpg" ;
STRETCH 0 ;
SIZE 650,430 //nWidth, nHeight - 65
if cRet="N" .or. cSair="S"
return .f.
elseif cRet="S"
@ 0,5 BUTTON "Finalizar (Esc)" SIZE 140,50 ON CLICK {||ConfirmarFechar()}
@ 170,5 BUTTON "Consultar" SIZE 140,50 ;
ON CLICK {||consulta()}
@ 340,5 BUTTON "Cadastrar" SIZE 140,50 ;
ON CLICK {||cadastro()}
@ 510,5 BUTTON "Manutenção" SIZE 140,50 ;
ON CLICK {||manutencao()}
endif
ACTIVATE DIALOG oDlg
if lastkey()=27
if confirmarfechar()="S"
return .f.
else
loop
endif
endif
enddo
Return
Código: Selecionar todos
MENU OF oMain
