Sr. Antonio - FIVEWIN BUG

[MGA]

Sr. Antonio,

Algumas vezes utilizando o sistema acontecia de estar com uma MSGINFO ou mesmo uma DIALOG na tela, e conseguir clicar na WINDOW no fundo. Ou seja, o FIVEWIN se perdia e não conseguia travar este tipo de ação. Postei varias vezes no forum o problema e o Senhor sempre me pedia um EXE simulando o problema.

Porem, isto acontecia aleatoriamente, e não era possível reproduzir o problema.

Hoje eu consegui simular

#include "fivewin.ch"

function main()

local oWnd1

DEFINE WINDOW oWnd1 TITLE "oWnd1" mdi

ACTIVATE WINDOW oWnd1 on init(CriaDialog(),syswait(5),msginfo('CLICK ON THE WINDOW IN THE BACKGROUND TO SIMULATE THE BUG'))

return nil


/**********************************/
function CriaDialog()

local oDlg

DEFINE DIALOG oDlg FROM 6, 6 TO 20, 60 TITLE "DIALOG NOWAIT - SEMPRE A FRENTE"

@ 2, 2 BUTTON "&Hello" OF oDlg ;
ACTION ( msginfo("click on dialog"))

@ 4, 2 BUTTON "&Bye!" OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg on init(setwindowpos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 ) ) nowait

return(.t.)

[MGA]

Up!

[Sistem]

"FIVEWIN se perdia" se perdia como?
executei seu exemplo nao encontrei nenhum problema, acho q seja por isso que ninguem responde, kd o problema?

minha versao fwh1205

[MGA]

Obrigado por responder...

Com a minha versão do fivewin ocorre o seguinte:

1) tenho uma WINDOW

2) abro uma MSGINFO

3) com a MSGINFO ativa, não poderia ser possível clicar na WINDOW no fundo e a WINDOW ganhar o foco! entende? ou seja para poder clicar na WINDOW no fundo, eu deveria clicar em OK da MSGINFO.

veja:

[Sistem]

SGS »
para ter o efeito desejado acho que vc deveria fazer assim,

Code: Select all  Expand view

#include "fivewin.ch"

function main()

 local oWnd1

 DEFINE WINDOW oWnd1 TITLE "oWnd1" mdi

 ACTIVATE WINDOW oWnd1 on init(CriaDialog(),syswait(5),msginfo('CLICK ON THE WINDOW IN THE BACKGROUND TO SIMULATE THE BUG'))

return nil

/**********************************/
function CriaDialog()

local oDlg

DEFINE DIALOG oDlg FROM 6, 6 TO 20, 60 TITLE "DIALOG NOWAIT - SEMPRE A FRENTE"

@ 2, 2 BUTTON "&Hello" OF oDlg ;
 ACTION ( msginfo("click on dialog"))

@ 4, 2 BUTTON "&Bye!" OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg on init(setwindowpos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 ) ) //nowait

return(.t.)

[MGA]

Sistem,

Mais é este o problema, o que procuro demonstrar com o PRG é que se houver uma dialog nowait o problema ocorre. Entende?

O PRG é apenas para demonstrar o problema quando se utiliza uma DIALOG NOWAIT ou mesmo que você de o foco para um programa externo antes de carregar a MSGINFO.