Como saber si un control cambio.. updated()

[Adolfo]

Hola fivewinners

Para una aplicacion debo saber si alguno de los controles cambio de su valor inicial, sea Get, checkbox, combobox.

Donde le puedo hechar una mirada, es para informar al usuario que no grabo las modificaciones hechas... ya sea con una alerta visual, mensajes, msgyesno(), aun no decido como, mi primer paso es averiguar que hay un control que cambio.

Cualquier consejo sera bienvenido.

Gracias de antemano.
Desde Chile
Adolfo

[Antonio Linares]

Adolfo,

Declaramos un array en donde se guardarán los valores iniciales:

local aInitValues := {}

y antes de llamar a ACTIVATE DIALOG, hacemos:

AEval( oDlg:aControls, { | oCtrl | AAdd( aInitValues, If( oCtrl:bSetGet != nil, Eval( oCtrl:bSetGet ), nil ) ) } )

Para comprobar si han habido cambios hacemos:

AEval( oDlg:aControls, { | oCtrl, n | If( oCtrl:bSetGet != nil .and. Eval( oCtrl:bSetGet ) != aInitValues[ n ], MsgInfo( "cambio" ),) } )

[Antonio Linares]

Usando AScan() buscamos el primer control que sea distinto:

AScan( oDlg:aControls, { | oCtrl, n | oCtrl:bSetGet != nil .and. Eval( oCtrl:bSetGet ) != aInitValues[ n ] } ) != 0

un valor .T. significa que han habido cambios

[Adolfo]

Gracias Master...

Probamos y comento como me fue..

Saludos desde Chile
Adolfo

[Adolfo]

Antonio...

En las pruebas que realice, funciono sin problemas..
Me falta probar en dialogos con folder.

Mi pregunta ahora es, podrá ponerse una DATA en la Clase tDialog, que asuma el valor de si cambio o no algún control, como para ser automático
...algo así como 'lChanged'


Saludos y gracias nuevamente