FiveTech Software tech support forums

... bWHEN cuando cambia en ejecucion. de momento lo he solucionado modificando control.prg (gracias a la ayuda de Cristobal), en el metodo : METHOD ForWhen() CLASS TControl /* #ifdef REVN1807 ::oContainerWnd:AEvalWhen() #else */ ::oWnd:AEvalWhen() //#endif El ambiente en que me sucede es : Ventana ...

... TEVENT:BWHEN( 0 ) Called from: .\source\classes\WINDOW.PRG => TRBGROUP:AEVALWHEN( 0 ) Called from: .\source\classes\CONTROL.PRG => TGET:FORWHEN( 0 ) Called from: .\source\classes\CONTROL.PRG => TGET:FWLOSTFOCUS( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( ...

... el m‚todo: HWND Args: [ 1] = L .F. Stack Calls =========== Called from: => HWND( 0 ) Called from: .\source\classes\CONTROL.PRG => TBTNBMP:FORWHEN( 900 ) Called from: .\source\classes\CONTROL.PRG => TBTNBMP:FWLOSTFOCUS( 1142 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( ...

... BASE/1004 Class: 'NUMERIC' has no exported method: HWND Called from: => HWND(0) Called from: .\source\classes\CONTROL.PRG => TBUTTONBMP:FORWHEN(802) Called from: .\source\classes\CONTROL.PRG => TBUTTONBMP:FWLOSTFOCUS(928) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1468) ...

Carlos
prueba esto:
oDBC2:b LostFocus := {|| oDlg:Update()}

ó esto otro
oDBC2:bLostFocus := {|| oGet:ForWhen() }
ó esto otro
oDBC2:bLostFocus := {|| oGet:AeValWhen() }

salu2
paco

For anyone that is interested, the problem was that when the memo control loses focus the ForWhen method in control.prg is executed and if the last key pressed is an up/down arrow focus is moved to the next or previous control. I fixed this problem by adding oDate:oJump ...

... testfw.prg->MAIN(19) [testfw.prg->(b)MAIN] (14) Called from: WINDOW.PRG->TDIALOG:AEVALWHEN(0) CONTROL.PRG->TGET:FORWHEN(0) CONTROL.PRG->TGET:FWLOSTFOCUS(0) CONTROL.PRG->TCONTROL:HANDLEEVENT(0) TGET.PRG->TGET:HANDLEEVENT(0) WINDOW.PRG->_FWH(0) ->DIALOGBOXINDIRECT(0) ...

... testfw.prg->MAIN(19) [testfw.prg->(b)MAIN] (14) Called from: WINDOW.PRG->TDIALOG:AEVALWHEN(0) CONTROL.PRG->TGET:FORWHEN(0) CONTROL.PRG->TGET:FWLOSTFOCUS(0) CONTROL.PRG->TCONTROL:HANDLEEVENT(0) TGET.PRG->TGET:HANDLEEVENT(0) WINDOW.PRG->_FWH(0) ->DIALOGBOXINDIRECT(0) ...

... 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

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() ?????

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. ...

... CODE 000A:2E68 00114H ADJRIGHT CODE 000A:2F7C 00099H _SETFOCUS CODE 000A:3016 000ECH COLORS CODE 000A:3102 00099H NTOP CODE 000A:319C 0014EH FORWHEN CODE 000A:32EA 001E9H KILLFOCUS CODE 000A:34D4 0013EH FWLOSTFOCU CODE 000A:3612 0006AH DRAGBEGIN CODE 000A:367C 0058EH CHECKDOTS CODE 000A:3C0A ...

... CODE 000A:2E68 00114H ADJRIGHT CODE 000A:2F7C 00099H _SETFOCUS CODE 000A:3016 000ECH COLORS CODE 000A:3102 00099H NTOP CODE 000A:319C 0014EH FORWHEN CODE 000A:32EA 001E9H KILLFOCUS CODE 000A:34D4 0013EH FWLOSTFOCU CODE 000A:3612 0006AH DRAGBEGIN CODE 000A:367C 0058EH CHECKDOTS CODE 000A:3C0A ...

... VK_UP ) ) // JAAM Agregue ";TSBUTTON" para que le haga caso a ::oWnd:lValidating = .t. // la clusula CANCEL en los botones ::oWnd:nLastKey := 0 ::ForWhen() ::oWnd:lValidating = .f. ::LostFocus() return nil else if Upper( GetClassName( hCtlFocus ) ) == "TBTNBMP" ::oWnd:nLastKey := 0 // it fixes ...

... CODE 000A:1096 00114H ADJRIGHT CODE 000A:11AA 00099H _SETFOCUS CODE 000A:1244 000ECH COLORS CODE 000A:1330 00099H NTOP CODE 000A:13CA 0014EH FORWHEN CODE 000A:1518 001D1H KILLFOCUS CODE 000A:16EA 00084H FWLOSTFOCU CODE 000A:176E 0006AH DRAGBEGIN CODE 000A:17D8 0058EH CHECKDOTS CODE 000A:1D66 ...