FiveTech Software tech support forums

... nLastKey ) CLASS TMiCalendario // This method is very similar to TControl:GetDlgCode() but it is // necessary to have WHEN working if .not. ::oWnd:lValidating if nLastKey == VK_UP .or. nLastKey == VK_DOWN ; .or. nLastKey == VK_RETURN .or. nLastKey == VK_TAB ::oWnd:nLastKey = nLastKey else ::oWnd:nLastKey ...

...     2874  2885 LUSER                  WINDOW.PRG     2981  2985  2987 LVALID()               (function  in ?)    WINDOW.PRG      572   891 LVALIDATING            WINDOW.PRG      438   497  1151  1220 LVBX                    WINDOW.PRG      438 LVISIBLE                WINDOW.PRG      438 ...

... METHOD GetDlgCode( nLastKey ) CLASS TSButton If nLastKey > 0 .and. nLastKey == ::nWakeup ::nWakeup := 0 EndIf If ( ! ::oWnd:lValidating .and. ::lCancel .and. ::cAccel != Nil .and. GetAsyncKey( VK_MENU ) .and. ; GetAsyncKey( Asc( Upper( ::cAccel ) ) ) .and. ::nWakeup == 0 ...

... = bLClicked ::bRClicked = bRClicked ::bWhen = bWhen ::bValid = bValid ::bInit = bInit ::bPainted = bPainted ::bMoved = bMoved ::nResult = nil ::lValidating = .f. ::lVisible = .t. ::lResize16 = lResize16 ::lHelpIcon := .F. // added 06/sep/2006 V. // ? 'DEBUG LINE 267', VALTYPE(::binit), lModal ...

... ), CLR_GRAY ) ::lVisible = .t. ::l3D = l3D ::nMode = AScan( { "TOP", "LEFT", "RIGHT", "BOTTOM", "FLOAT" }, cMode ) ::oCursor = oCursor ::lValidating = .f. ::l2007 = l2007 //FranciscoA: Agosto 31/2008 ::nRGB1 = nRGB1 ::nRGB2 = nRGB2 //----------------------------------------------------------------------------// ...

... accelerators. If you press a button accelerator, the focus is given to the button so the VALID of the current focused control is fired. Changing lValidating we avoid to execute the current VALID. It is somehow similar to the CANCEL clause. But if we all agree that the current VALID should be ...

... Eval( ::bWhen ) ::lProcessing = .f. return nil endif if GetFocus() != ::hWnd //::oWnd:lValidating = .T. SetFocus( ::hWnd ) //::oWnd:lValidating = .F. endif So I excluded the ::Wnd:lValidating. ...

Michel, If ::oWnd:lValidating = .T. is set and not restored later on, then next clicks on the button will not fire the VALID of the control where the focus is. But in the portion of your code, that you shows, there are no push buttons. ...

... get ya no ejecuta el valid. Comprobando el código he visto que el método "FWLostFocus" de la clase control llama a lValid en el caso de que ::oWnd:lValidating sea nil o falso METHOD FWLostFocus( hCtlFocus ) CLASS TControl local oWnd, oCtl if ::oWnd:lValidating == nil .or. ...

... METHOD GetDlgCode( nLastKey ) CLASS TSButton If nLastkey > 0 .and. nLastkey == ::nWakeup ::nWakeup := 0 EndIf If (! ::oWnd:lValidating .and. ::lCancel .and. ::cAccel != Nil .and. ; GetAsyncKey( VK_MENU ) .and. ; GetAsyncKey( Asc( Upper( ::cAccel ) ) ) .and. ::nWakeup == ...

... nLastKey ) CLASS TSBrowse // This method is very similar to TControl:GetDlgCode() but it is // necessary to have WHEN working If ! ::oWnd:lValidating If nLastKey == VK_UP .or. nLastKey == VK_DOWN ; .or. nLastKey == VK_RETURN .or. nLastKey == VK_TAB ::oWnd:nLastKey := nLastKey Else ::oWnd:nLastKey ...

... is assigned. .. ok But if a valid block opens a new dialog any assignment is ignored and original value is restored. .. not ok I think while oGet:lvalidating is true, if the focus goes to any other control or application, the edit should not be cancelled.

Creo que encontré la solución. Añadiendo: METHOD GetDlgCode(nLastKey) CLASS TFondo IF .NOT. ::oWnd:lValidating IF nLastKey == VK_RETURN // .OR. nLastKey == VK_TAB ::oWnd:nLastKey = nLastKey ELSE ::oWnd:nLastKey = 0 ENDIF ENDIF RETURN IF( IsWindowEnabled( ::hWnd ), DLGC_WANTALLKEYS, ...

... != VK_RETURN .and. ; ::oWnd:nLastKey != VK_DOWN .and. ::oWnd:nLastKey != VK_UP ) ) // JAAM Agregue ";TSBUTTON" para que le haga caso a ::oWnd:lValidating = .t. // la clusula CANCEL en los botones ::oWnd:nLastKey := 0 ::ForWhen() ::oWnd:lValidating = .f. ::LostFocus() return nil else if Upper( ...