FiveTech Software tech support forums

David,

Con este pequeño cambio, tu ejemplo funciona como deseas

Code: Select all  Expand view

   @ 1, 1 BUTTON oBtn PROMPT "Desactivar" SIZE 50, 30 OF oDlg WHEN lEdit ;
      ACTION ( lEdit := .f., oDlg:AEvalWhen() ) CANCEL
 

David,

Todos los controles estan contenidos en oDlg:aControls por lo que puedes hacer:

AEval( oDlg:aControls, { | oControl | oControl:Enable() } )

ó lo que necesites

Francisco, Gracias por tu ayuda. Estoy probando el trocito de código que has propuesto. Me ha abierto los ojos para muchas cosas, es muy interesante (de hecho ya le he dado uso en otras partes de mi código), pero para este caso concreto no me sirve, pues los controles que han de funcionar son unos 2...

Triunvirato, esto lo hice al vuelo (es solo un ejemplo, no lo he probado): Function Des_Act_Ctrls(oDlg, lActivar) local aCtrls, n aCtrls:=oDlg:aControls if !lActivar //desactivar For n:= 1 to len(aCtrls) if aCtrls[n]:ClassName() ="TBUTTON" .or. aCtrls[n]:ClassName() = "TGET" if o...

¿A nadie se le ocurre algo o es que el comportamiento es el esperado?. Estoy atascado con esto...

Gracias.

... por tu ayuda. Si lo hago de esta manera, al tener unos 200 controles que actualizar en el diálogo como decía antes, necesito incluir unas 199 cláusulas Enable() y otras 199 cláusulas Disable(). En el ejemplo se usa un GET y dos botones, en mi código son unos 200 controles a actualizar entre ...

Pedro, Gracias por tu ayuda. Si eliminamos la cláusula CANCEL (que es la que permite saltarse el VALID del Get), Al situarte en el Get, no puedes pinchar sobre el botón Desactivar. La cláusula CANCEL es necesaria 100%. En mi código había hecho alguna prueba con los Refresh y Updates, el problema est...

Hola He tomado tu ejemplo, lo he dejado así, y funciona #include "FiveWin.ch"//----------------------------------------------------------------------------//function Main()   local oDlg   local cName1 := Space(25)   local lEdit    &nb...

Hola compañeros, Tengo un problema que no consigo darle solución: Al pulsar el botón Desactivar, deberían quedar desactivados el propio botón desactivar, el Get y activado el botón Activar. Sin embargo, no sucede en la forma que debería. Si suprimimos la cláusula VALID del Get y la cláusula CANCEL d...

... respeta cuando pulsas con ratón sobre el boton, y se lo salta cuando oprimes sobre el la tecla Enter, pero si obedece en ambos casos al resto de cláusulas. Un ejemplo a ver si me sabe alguien ayudar, Gracias. #include "Fivewin.ch"function Main()   local oDlg_GenAut, ...

... Alguién sabría construir una clase para poder dibujar líneas en una ventana como un control más de la Window? Y a ser posible que acepte las cláusulas PIXEL, DESIGN, UPDATE y BOX (además claro está de las coordenas, color, altura y anchura). Yo no se construir esa clase, no acabo de entender ...

... en donde se crean, y esto hace que las variables locales se destruyan, salvo que se usen en codeblocks (FWH usa automaticamente codeblocks en las cláusulas ACTION...) Por ejemplo, si cerrasemos una DBF despues de activar una ventana MDICHILD, la DBF se cerrará de inmediato y no se esperará a que ...

... la barra de mensajes SET MESSAGE bla bla bla CLOCK 2007 2.- La barra de mensajes se forma primero con el mensaje y posteriormente el resto de las cláusulas KEYBOARD CLOCK etc etc. 3.- Despues de armar la barra de mensajes podemos agregar más items (msgitem) pero siempre van despues de las cláusulas ...

... existentes Se pueden especificar fácilmente los fondos la creación del xbrowse (ventanas / o cuadros de diálogo desde recursos) con las nuevas cláusulas proporcionadas en la sintaxis del comando: Ejemplos: @ r, c, XBROWSE ( o REDEFINE XBROWSE ) ....... ; BACKGROUND cImageFile/cResource/hBmphandle/oBrush ...

... uso Btnget para los gets con botones, lo he ido reemplazando en muchos casos con get... action... bitmap... pero.. tengo un problemilla cuando hay cláusulas de validación... En btnget yo podía persionar el botón del get salteando la validación, es decir como si el botón y el get fueran una misma ...