tFolderEX posible solucion ON CHANGE

[Patricio Avalos Aguirre]

Estimados

El los folder el mensaje ON CHANGE si retornaba .f. este no cambiaba de pestaña, pero con
FOLDEREX cambia igualmente

una posible solucion es evaluar antes ..

Code: Select all  Expand view  RUN

METHOD SetOption( nOption ) CLASS TFolderEx

   LOCAL nOldOption := ::nOption, lVal
   LOCAL nOpt :=0, nOldOpt := 0, i := 0, lVisible

   IF ! ::aEnable[ noption ]
      RETURN NIL
   ENDIF

   if nOption != ::nOption

      if ! Empty( ::bAction )
         lVal := Eval( ::bAction, nOption, nOldOption, Self )
            if valtype( lVal ) = "L" .and. !lVal
                Return( NIL )
            endif
      endif

      IF ::aSrcPrompt != NIL


..
..
y comentar esto

      /*if ! Empty( ::bAction )
         Eval( ::bAction, nOption, nOldOption, Self )
      endif*/

      ::ChangeOrder()
      ::Refresh()

   endif

return nil

[Sebastián Almirón]

Gracias, me estaba volviendo loco. 10 años después (FW 2102) aun no ha sido solucionado y con el prg de TFolderex de las ultimas versiones sigue con el problema que describes.

[cnavarro]

Espero haber entendido vuestras sugerencias, a ver si esto os valdría igualmente

Code: Select all  Expand view  RUN

METHOD SetOption( nOption ) CLASS TFolderEx

   LOCAL nOldOption := ::nOption
   LOCAL nOpt :=0, nOldOpt := 0, i := 0, lVisible

   nOption = Max( 1, Min( nOption, Len( ::aPrompts ) ) )

   IF ! ::aEnable[ nOption ]
      RETURN NIL
   ENDIF

   // Añadido CNL 24/06/2021
   if Valtype( ::bChange ) = "B"
      if !Eval( ::bChange, Self, nOption, ::nOption )
         Return nil
      endif
   endif

   if nOption != ::nOption
.../...

 

Sin perder la funcionlidad del :bAction

[Sebastián Almirón]

Gracias Cristobal,
Tal y como lo has puesto no funciona, a pesar de que en la declaración del FORDEREX tengo puesto "ON CHANGE mifuncion()", al llegar al código que has puesto, el ::bChange no es un codebloq y no se evalua, ahí valtype(::bChange) devuelve 'U' en vez de 'B'.

Saludos

[cnavarro]

Sebastian, si funciona, lo que no se ha cambiado es el metacomando
Si pruebas asi

Code: Select all  Expand view  RUN

   @ r. c FOLDEREX oFld ...
   oFld:bChange   := { || .F. }
 

lo podrás probar

[Sebastián Almirón]

Así si funciona, gracias Cristobal.