Code: Select all
::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:SetFocus() }
Code: Select all
::oBtn:bAction := {|| ( Eval( oThis:bAction, oThis ), if( ::lKeepFocus, oThis:SetFocus(), nil ) ) }
Code: Select all
::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:SetFocus() }
Code: Select all
::oBtn:bAction := {|| ( Eval( oThis:bAction, oThis ), if( ::lKeepFocus, oThis:SetFocus(), nil ) ) }
Code: Select all
if !::lKeepFocus
::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:refresh(),if(valtype(::bValid) == "B",; //if bvalid is "B"
if(Eval( ::bValid, oThis ),; //if bValid == .T.
::oWnd:gonextctrl(::hWnd),; //next control
oThis:Setfocus()),; //focus stay
::oWnd:gonextctrl(::hWnd)); //automatic next control
}
endif
Code: Select all
if !::lKeepFocus
::oBtn:bAction := {|| Eval( oThis:bAction, oThis ),oThis:refresh(),if(valtype(::bValid) == "B",; //if bvalid is "B"
if(Eval( ::bValid, oThis ),; //if bValid == .T.
(if(::oJump != nil,setfocus(::oJump:hWnd),::oWnd:gonextctrl(::hWnd))),; //next control or oJump
oThis:Setfocus()),; //focus stay
if(::oJump != nil,setfocus(::oJump:hWnd),::oWnd:gonextctrl(::hWnd))); //automatic next control or oJump
}
endif
Code: Select all
REDEFINE GET oPosition VAR cPosition ID 142 of oGrps PICTURE "@!" BITMAP "find";
ACTION ( _PosGet( cMode,@cPosition,oPosition,oPositionAbbr,@cPositionAbbr,"BUTTON",;
oButt1,oButt2,oRsEmp ),;
oPositionAbbr:SetFocus(),oPositionAbbr:oJump := oPositionAbbr ) UPDATE
oPosition:lAdjustBtn := .t.
oPosition:bKeyDown := {|nK| if( nK==VK_RETURN,( ;
_PosGet( cMode,@cPosition,oPosition,oPositionAbbr,@cPositionAbbr,"FIELD",;
oButt1,oButt2,oRsEmp ),;
oOrganU:SetFocus(),oOrganU:oJump := oOrganU ), ) }
REDEFINE GET oPositionAbbr VAR cPositionAbbr ID 148 of oGRPS UPDATE //COLOR CLR_BLACK, 16053492 READONLY