Hola, quiero actualizar los "when" de unos botones toolbar conforme a unos datos ya probe con oBar:ForWhen() y no me hace nada, probe con oBar:aButtons[x]:Forwhen() y me da error, alguna pista...
por lo pronto lo estoy haciendo de uno por uno asi:
oBar:EnableButton( x, .T. ), pero no quiero habilitarlos directo esto conforme a la clausuala when que tiene cada boton
oBar:
salu2
paco
Veamos, oBar:ForWhen() no funciona porque el objeto bar es contenedor, no es el objeto perse.
oBar:aButtons[x]:Forwhen() tampoco va a funcionar porque la barra contenedora no tiene ninguna data llamada aButtons, por lo taunto cuasra error.
Haz probado con oBar:aControls[x]:ForWhen() ?????
fijate que lo probe como me sugieres y me manda un error de arreglo.
Basicamente lo que hago es en un browse en una ventana y los botones, pero si el browse esta sin registros ciertos botones se deshabilitan y si tiene registros se habilitan, estaba viendo la clase toolbar y nomas veo que se evalua el bwhen al crear el objeto boton, dejo mi codigo
IF lNew .AND. (oDCaj)->(OrdKeyCount())==0
FOR x := 1 TO LEN(oBar:aButtons)
oBar:aControls[x]:ForWhen()
NEXT
ENDIF
con oBar:aButtons[x]:ForWhen() como comentas el error es no export method, algo mas?
gracias
paco
Paco:
pruebas con
oDlg:AEvalWhen()
Arriba el "Atletico san pancho" 
Armando
nop tampoco armando, solo se ejecuta para los controles de la ventana no para la barra de botones
salu2
paco
METHOD AddButton( bAction, cToolTip, cText, bWhen, cMsg ) CLASS TToolBar
AAdd( ::aButtons, { bAction, cToolTip, cMsg,, bWhen } ) // esta
...METHOD AEvalWhen() CLASS TToolBar
local n
for n = 1 to Len( ::aButtons )
If ::aButtons[ n ][ 5 ] != nil
::EnableButton( n, Eval( ::aButtons[ n ][ 5 ] ) )
endif
next
return nilPerfecto, gracias antonio
salu2
Paco