FiveTech Software tech support forums

Günther I deleted my post after re-reading your initial post about oBtn ... here is the code I deleted that pertained to the oJump method .. REDEFINE GET oPosition  VAR cPosition  ID 142 of oGrps PICTURE "@!" BITMAP "find";      ACTION ( ...

Günther I deleted my post after re-reading your initial post about oBtn ... here is the code I deleted that pertained to the oJump method .. REDEFINE GET oPosition  VAR cPosition  ID 142 of oGrps PICTURE "@!" BITMAP "find";      ACTION ( _PosGet( cMode,@cPosition,oPosition,oPositionAbbr,@cPositionAbbr,"BUTTON",;  ...

Antonio, you set oJump after one navigation to this control to NIL, but if going again to the same control now the oJump is no further functioning as it is NIL!? METHOD ForWhen() CLASS TControl……...   // keyboard navigation  ...

Adapted code to respect oJump if present. if !::lKeepFocus        ::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:refresh(),if(valtype(::bValid) == "B",;    //if bvalid is "B"  ...

shri_fwh wrote:Dear Sir ,

It is working below code ...!

aoBtn[1]:oJump := aoGET[ 1 ]

Right, I forgot oJump.

EMG

Dear Sir , It is working below code ...! aoBtn[1]:oJump := aoGET[ 1 ]  aoBtn[1]:bAction := < ||                                        ...

Peter,

Please try with:

oGetEmploy:oJump := oGetPass

Maybe add oBC1:oJump := oBC1 to valid     REDEFINE GET oBC1 VAR cBarCode  ID 200 OF oBCdlg1 UPDATE ;        VALID ( AADD( aBrowseCodes, cBarCode),;        oLbc1:update(),;  ...

... I tried also with @ 80, 75 COMBOBOX aGet[6] VAR cpermesso ITEMS aTipo OF oDlg SIZE 50, 12 PIXEL FONT oFont ; ON CHANGE (iif(aGet[6]:nat=1, aGet[6]:oJump := aGet[7], aGet[6]:oJump := aGet[8] ) )

In fact is better than that. You can control what to disable and what to enable using oBtn:lFocused as flag.

EMG

Clever. That effectively disables the valid clause from the one get without disabling all the others. Wish I had known that years ago

Thank you. No, it's not the solution I needed. I already found the proper one. Please look at the sample in my previous message.

EMG

Enrico

Add this line after your close button .. it will keep any valids from firing .. hope that is the solution you are looking for ..

Rick Lipkin

Code: Select all  Expand view

oBtn2:lCancel := .t.
 

...          SIZE 100, 13;           VALID ( IF( nVar2 = 0 .AND. !oBtn1:lFocused, oGet2:oJump := oGet4, ), .T. )    @ 5, 1 GET nVar3;           SIZE 100, 13    @ 7, 1 GET oGet4 VAR ...

Thank you, but the valid is disable with both suggestions.

EMG