bb.donnay-software.com

Good afternoon Roger
The problem with HIDE is in this _WhenHideEval function, you have it with this programming * ================================== = ===========================================

STATIC FUNCTION _WhenHideEval( lEnable, lShow, lProtect, oXbp )
IF Valtype(oXbp:whenBlock) = 'B'
lEnable:= Eval(oXbp:whenBlock,oXbp)
YES lEnable
oXbp:enable()
OTHERS
oXbp:disable()
ENDIF
ENDIF

IF Valtype(oXbp:hideBlock) = 'B' .AND. oXbp:isVisible() ;
.AND. IIF(oXbp:parent:isDerivedFrom('XbpTabPage'),IIF(oXbp:parent:Minimized,.f.,.t. ),.t. )
lShow := !Eval(oXbp:hideBlock,oXbp)
YES lShow
oXbp:show()
OTHERS
oXbp:hide()
ENDIF
ENDIF

IF Valtype(lProtect) == 'L' .Y. Valtype(oXbp:protectBlock) = 'B'
lProtect := Eval(oXbp:protectBlock,oXbp)
ENDIF
RETURN oXbp



Modification made by Nolberto Paulino has canceled this line and everything is working fine.
// .AND. oXbp:isVisible() ; // Nolberto Paulino
// .AND. IIF(oXbp:parent:isDerivedFrom('XbpTabPage'),IIF(oXbp:parent:Minimized,.f.,.t. ),.t. ) // Nolberto Paulino

STATIC FUNCTION _WhenHideEval( lEnable, lShow, lProtect, oXbp )
IF Valtype(oXbp:whenBlock) = 'B'
lEnable:= Eval(oXbp:whenBlock,oXbp)
YES lEnable
oXbp:enable()
OTHERS
oXbp:disable()
ENDIF
ENDIF

IF Valtype(oXbp:hideBlock) = 'B' // .AND. oXbp:isVisible() ; // Nolberto Paulino
// .AND. IIF(oXbp:parent:isDerivedFrom('XbpTabPage'),IIF(oXbp:parent:Minimized,.f.,.t. ),.t. ) // Nolberto Paulino
lShow := !Eval(oXbp:hideBlock,oXbp)
YES lShow
oXbp:show()
OTHERS
oXbp:hide()
ENDIF
ENDIF

IF Valtype(lProtect) == 'L' .Y. Valtype(oXbp:protectBlock) = 'B'
lProtect := Eval(oXbp:protectBlock,oXbp)
ENDIF

RETURN oXbp