FiveTech Software tech support forums

hola Prueba modificando la clase TCONTROL de fwh en el method KILLFOCUS, pon ,TSBUTTON" METHOD KillFocus( hCtlFocus ) CLASS TControl   local oWnd   if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ...

... pase al siguiente, pero no se me ocurre como. No se como hacer referencia al get que estoy editando. He provado con todo lo que se me ocurre SELF:killfocus(), ::oget:killfocus, y no funciona.

... solución. De momento lo haré así, antes de asignar mi valor cuyo 'Type' sea diferente al que tiene el GET en ese momento, le hago un: - oCtrl:oGet:KillFocus() - oCtrl:oGet:Varput( UNvalordelTypequequiero ) y despues realizo: - oCtrl:cText( ELvalorquequieroasignar ) Parece ser que con esto resuelvo ...

... => TCONTROL:LOSTFOCUS(0) Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS(0) Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS(0) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0) Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(0) ...

... por primera vez en el Get o ya estabamos Dentro 2) despues modificar METHOD LostFocus( hCtlFocus ) CLASS TGet ... ... if ! ::oGet:BadDate ::oGet:KillFocus() ::lDentro := .F. // hemos salido, ya no estamos dentro else ... ... endif ... 3) por ultimo modificar METHOD LButtonUp( nRow, nCol, nFlags ...

Carlos,

Estoy probando con DrawFocusRect() y tambien enviando WM_SETFOCUS ó WM_KILLFOCUS. La idea es quitar el recuadro punteado antes de llamar a ParentImage().

El enviarle esos mensajes provoca un bucle, ya que vuelven a generar un mensaje de pintado.

A ver si damos con la solución...

... Called from: .\source\classes\WBROWSE.PRG => (b)TWBROWSE(0) Called from: => TWBROWSE:LOSTFOCUS(0) Called from: => TWBROWSE:KILLFOCUS(0) Called from: => TWBROWSE:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => SENDMESSAGE(0) Called ...

... => (b)TCONTROL(0) Called from: => TCONTROL:LOSTFOCUS(0) Called from: => TGET:LOSTFOCUS(0) Called from: => TGET:KILLFOCUS(0)

... ::SetPicture( cPicture ) METHOD Display( lForced ) METHOD ColorDisp( cColorSpec ) INLINE ::ColorSpec := cColorSpec, ::Display(), Self METHOD KillFocus() METHOD Reset() METHOD SetFocus() METHOD Undo() METHOD UnTransform( cBuffer ) METHOD UpdateBuffer() INLINE if( ::hasfocus, ( ::buffer := ...

... Called from: tget.prg => TCLIPGET:UPDATEBUFFER(0) Called from: TGET.PRG => TBTNGET:LOSTFOCUS(0) Called from: CONTROL.PRG => TBTNGET:KILLFOCUS(0) Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0) Called from: TGET.PRG => TBTNGET:HANDLEEVENT(0) Called from: WINDOW.PRG => ...

... --------------------------------------- Called From: => TCLIPGET:_TYPEOUT(0) Called From: => TGET:LOSTFOCUS(0) Called From: => TGET:KILLFOCUS(0) Called From: => TCONTROL:HANDLEEVENT(0) Called From: => TGET:HANDLEEVENT(0) Called From: .\source\classes\WINDOW.PRG => _FW Called ...

... from: => TAUTOGET:_LAUTO(0) Called from: autoget.prg => (b)TAUTOGET(0) Called from: => TAUTOGET:LOSTFOCUS(0) Called from: => TAUTOGET:KILLFOCUS(0) Called from: => TCONTROL:HANDLEEVENT(0) Called from: => TAUTOGET:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) ...

... este: Alias does not exist DEFINICIONES stack calls: (b)CONFIGURACION(705) TWBROWSE:DRAWSELECT(0) (b)TWBROWSE(0) TWBROWSE:LOSTFOCUS(0) TWBROWSE:KILLFOCUS(0) TCONTROL:HANDLEEVENT(0) TWBROWSE:HANDLEEVENT(0) _FWPPC(0) MSGINFO(0) SHOWERROR(0) (b)ERRORSYS(0) (b)CONFIGURACION(705) TWBROWSE:DRAWSELECT(0) ...

Gale: Try this: In Control.prg Method KillFocus() add TSBUTTON like this line METHOD KillFocus( hCtlFocus ) CLASS TControl local oWnd if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ; ( oWnd := oWndFromhWnd( ...

... = N 1 [ 3] = N 1 Stack Calls =========== Called from SUBSTR(0) Called from GET:UNTRANSFORM(604) Called from TGET:LOSTFOCUS(0) Called from TCONTROL:KILLFOCUS(0) Called from TCONTROL:HANDLEEVENT(0) Called from _FWH(0) Called from DIALOGBOX(0) Called from TDIALOG:ACTIVATE(0) Called from FCOMPRA(467) ...