FiveTech Software tech support forums

Sr. Antonio, código abaixo demonstra que é possível ignorar o VALID de um GET pressionando VK_F3.

local oDlg, cTest := SPACE(20), oBut[2]

DEFINE DIALOG oDlg TITLE "VK_F3 ignore VALID"

odlg:bkeydown:={|nkey| if(nkey==VK_F3,oBut[1]:click(),)}

@ 1, 3 GET cTest picture "@!" valid .f.

@ 3, 5 BUTTON oBut[1] prompt "&Ok" SIZE 40, 12 ACTION MsgInfo( "Any action here. Ignore VALID problem!" )

@ 3, 16 BUTTON oBut[2] prompt "&Cancel" SIZE 40, 12 ACTION oDlg:End() cancel

ACTIVATE DIALOG oDlg CENTERED


Existe uma solução para este problema?

Please try it this way:

@ 1, 3 GET oGet VAR cTest picture "@!" valid .f.

odlg:bkeydown:={|nkey| if(nkey==VK_F3 .and. oGet:lValid(),oBut[1]:click(),)}

Antonio,

El tema es si tenes mas de 1 control (GET), debes hacer eso x cada uno ?? Xq sino se dispara igual...

Salu2, Ariel.

Se podría hacer:

odlg:bkeydown:={|nkey| if(nkey==VK_F3 .and. oWndFromHwnd( GetFocus() ):lValid(),oBut[1]:click(),)}

lo que no entiendo cual es la razón de asignar ese codeblock al diálogo.

Senhor Antonio,

é possível uma alteração na classe TGET ou TBUTTON para evitar alteração no sistema inteiro?

Please try this change in Class TButton in Method Click line 162 and let me know if it is fine for you:

Code: Select all  Expand view

     if ::bAction != nil .and. ::lValid()  // here !!!
         Eval( ::bAction, Self )
      endif

muito obrigado, vou testar e posto o resultado!

Sr. Antonio,

Não funciona:

if ::bAction != nil .and. ::lValid() // here !!!
Eval( ::bAction, Self )
endif

SGS

Forgive my spanish .. if you are trying to close a dialog without the valid firing try this ..

Code: Select all  Expand view

oBtn[2]:lCancel := .t.
 

Rick Lipkin

SGS wrote:Sr. Antonio,

Não funciona:

if ::bAction != nil .and. ::lValid() // here !!!
Eval( ::bAction, Self )
endif

Prueba asi:

Code: Select all  Expand view

#include "fivewin.ch"

Function Main()

local oDlg
local cTest := SPACE(20)
local oBut  := { , } //[2]
local oGet

DEFINE DIALOG oDlg TITLE "VK_F3 ignore VALID"

//oDlg:bKeydown := {| nkey | if( nkey == VK_F3, oBut[1]:click(), )}
oDlg:bKeydown := {| nkey | if( nkey == VK_F3, PulsaF3( oDlg, oBut ), )}

@ 1, 3 GET oGet VAR cTest picture "@!" valid ( .F. )

@ 3, 5 BUTTON oBut[1] prompt "&Ok" SIZE 40, 12 ACTION MsgInfo( "Any action here. Ignore VALID problem!" )

@ 3, 16 BUTTON oBut[2] prompt "&Cancel" SIZE 40, 12 ACTION oDlg:End() CANCEL

ACTIVATE DIALOG oDlg CENTERED

Return nil

//---------------------------------------------------

Function PulsaF3( oDlg, oBtt )

if oDlg:oCtlFocus:lValid()
   oBtt[1]:click()
else
   oDlg:oCtlFocus:SetFocus()
endif
Return nil

 

Funciona igual si se modifica la Clase TWindow en el metodo KeyDown

Code: Select all  Expand view

METHOD KeyDown( nKey, nFlags ) CLASS TWindow

...../...

   if ::oWnd != nil .and. IsChild( ::oWnd:hWnd, ::hWnd )
     
       if ::oWnd:oCtlFocus:lValid()                // He añadido
         ::oWnd:KeyDown( nKey, nFlags )
      endif                                                  //
   endif

return nil

 

Muito obrigado, vou testar!