minigui afetando todo windows

[JoséQuintas]

Adicionei isto na validação/lostfocus

Código: Selecionar todos

FUNCTION frm_Valid( aItem, Self )

   LOCAL nSelect, lFound := .T., xValue, nPos

   IF ! gui_IsCurrentFocus( ::xDlg )
      gui_SetFocus( ::xDlg, aItem[ CFG_FCONTROL ] )
      RETURN .F.
   ENDIF
   ...

Agora, se o foco está no getbox, o ENTER não funciona mais no Windows inteiro.

Sim....
No editor de textos o ENTER parou de funcionar, e em todas as outras janelas.
Está afetando o windows inteiro, e não apenas o aplicativo.

[JoséQuintas]

O problema aparece no uso de _DefineHotKey()

Código: Selecionar todos

FUNCTION gui_DlgSetKey( Self )

   LOCAL aItem

   FOR EACH aItem IN ::aDlgKeyDown
         _DefineHotKey( ::xDlg, 0, aItem[ 2 ], { || gui_DlgKeyDown( aItem[1], ;
            aItem[ 2 ], Self ) } )
   NEXT

   RETURN Nil

Não lembro se alguma vez testei essa situação.

Exemplo:
Estou com o Programmers Notepad aberto com o fonte.
Na tela do dlgauto, clico em EDIT, o que habilita edição.
A partir daí, no Programmers Notepad não funciona ENTER, e nem em outros lugares.
Na tela do dlgauto, clico em CANCEL, o que desabilita edição.
Tudo volta ao normal.

Tanto faz WINDOW MAIN OFF ou não.
As teclas usadas em _DefineHotKey() ficam afetadas.

[marcosLP]

então foi isso que ontem me travou todo o windows, usei um componente (TREE) e ele simplesmente travou tudo, por isso usei só para testes mesmo, imagina se tivesse ido pro cliente.