Erro no controle Button ou ButtonEX
Enviado: 07 Nov 2015 22:20
Boa noite!
Estou com o seguinte erro ocorrendo em meu sistema, tenho uma tela de Login com dois botões um para entrar no sistema e o outro para cancelar.
Quando eu teclo a tecla ESC ele sai da tela de login, mas se eu clico no botão 1 ou 2 a tela congela e o Windows mostra a mensagem: Se eu quero finalizar o programa ou aguardar resposta do programa. Parte do meu sistema:
Estou utilizando Windows 8.1 PRO 64 bits e Minigui Extend 2.5.4. E estranho que ontem estava funcionando normalmente, eu só fui compilá-lo de novo pois tive que fazer algumas mudanças no sistema.
Desde já agradeço a quem puder me ajudar a resolver este problema.
Estou com o seguinte erro ocorrendo em meu sistema, tenho uma tela de Login com dois botões um para entrar no sistema e o outro para cancelar.
Quando eu teclo a tecla ESC ele sai da tela de login, mas se eu clico no botão 1 ou 2 a tela congela e o Windows mostra a mensagem: Se eu quero finalizar o programa ou aguardar resposta do programa. Parte do meu sistema:
Código: Selecionar todos
FUNCTION Login()
DEFINE WINDOW JanelaLogin ;
AT 278 , 252 WIDTH 468 HEIGHT 220 ;
TITLE 'Acesso ao Sistema' ;
MAIN ;
TOPMOST ;
NOSIZE ;
NOSYSMENU ;
NOCAPTION ;
BACKCOLOR RIBON_COR ;
ON INIT { || DoMethod( 'JanelaLogin' , 'oUsuario' , 'Setfocus' ) }
ON KEY ESCAPE ACTION { JanelaLogin.Release }
oSistema:Caixa01( 0 , 0 , 468 , 30 , '01' , 10 , 0 , 0 , 160 , .T. )
DEFINE IMAGE ImageLogin
ROW 40
COL 20
WIDTH 128
HEIGHT 128
PICTURE 'img\Login-icon128x128.png'
STRETCH .T.
TRANSPARENT .T.
BACKGROUNDCOLOR RIBON_COR
END IMAGE
DEFINE LABEL oTitulo
ROW 5
COL 6
WIDTH 120
HEIGHT 18
VALUE "Acesso ao Sistema"
FONTNAME "Arial"
FONTSIZE 10
FONTBOLD .T.
VISIBLE .T.
TRANSPARENT .F.
BACKCOLOR { 0 , 0 , 160 }
FONTCOLOR BRANCO
END LABEL
DEFINE LABEL oLBUsuario
ROW 40
COL 160
WIDTH 85
HEIGHT 24
VALUE "Usuário:"
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
VISIBLE .T.
TRANSPARENT .F.
BACKCOLOR RIBON_COR
FONTCOLOR PRETO
END LABEL
DEFINE TEXTBOX oUsuario
ROW 65
COL 160
WIDTH 295
HEIGHT 32
FONTNAME "Arial"
FONTSIZE 12
TOOLTIP "Digite o nome do usuário"
FONTBOLD .T.
TABSTOP .T.
VISIBLE .T.
BACKCOLOR Nil
FONTCOLOR Nil
OnEnter { || DoMethod( 'JanelaLogin' , 'oSenha' , 'Setfocus' ) }
END TEXTBOX
DEFINE LABEL oLBSenha
ROW 100
COL 160
WIDTH 75
HEIGHT 24
VALUE "Senha:"
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
VISIBLE .T.
TRANSPARENT .F.
BACKCOLOR RIBON_COR
FONTCOLOR PRETO
END LABEL
DEFINE TEXTBOX oSenha
ROW 125
COL 160
WIDTH 290
HEIGHT 32
FONTNAME "Arial"
FONTSIZE 12
TOOLTIP "Digita a senha de acesso"
FONTBOLD .T.
TABSTOP .T.
VISIBLE .T.
BACKCOLOR Nil
FONTCOLOR Nil
PASSWORD .T.
ONENTER { || DoMethod( 'JanelaLogin' , 'oButtonLoginEntrar' , 'Setfocus' ) }
END TEXTBOX
DEFINE BUTTONEX oButtonLoginEntrar
ROW 180
COL 250
WIDTH 100
HEIGHT 28
CAPTION "Entrar"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP "Acessa o Sistema"
FONTBOLD .T.
ACTION { || JanelaLogin.Release , oSistema:InicializaAmbiente() }
END BUTTONEX
DEFINE BUTTONEX oButtonLoginCancelar
ROW 180
COL 360
WIDTH 100
HEIGHT 28
CAPTION "Cancelar"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP "Sai do Sistema"
FONTBOLD .T.
ACTION { || JanelaLogin.Release }
END BUTTONEX
END WINDOW
DoMethod( 'JanelaLogin' , 'Center' )
DoMethod( 'JanelaLogin' , 'Activate' )
RETURN NILDesde já agradeço a quem puder me ajudar a resolver este problema.