FiveTech Software tech support forums

... . for a selected cell something like: :bGotfocus := {|nRow, nCol|... :bLostfocus := {|nRow, nCol|... or is it possible to use : METHOD GotFocus( hCtlFocus ) INLINE ( ::oActive := Self, ::Super:GotFocus( hCtlFocus ),; If( GetParent( hCtlFocus ) != ::hWnd, ::Super:Refresh( .f. ),) ) METHOD LostFocus( ...

... CreateButton() CLASS TGet ... ::oBtn:lCancel = .f. // Inicia FALSO para ser habilitado na GOTFOCUS (Alexandre Pereira) ... METHOD LostFocus( hCtlFocus ) CLASS TGet ... // Desabilitando quando sair if ! Empty( ::oBtn ) ::oBtn:lCancel := .f. endif ... METHOD GotFocus( hCtlLost ) CLASS TGet ...

... ::CambiarMes(-12) METHOD Hoy() INLINE ::IrFecha( Date() ) METHOD IrFecha( dNvaFecha ) // Metodos para tomar y dejar el foco. METHOD LostFocus( hCtlFocus ) INLINE ::Super:LostFocus( hCtlFocus ), ::VerAlSalir() METHOD GotFocus() INLINE ::setfocus(), ::VerAlEntrar() ENDCLASS METHOD New (nTop, ...

...  2954  2963  2964  2970  2971 HBMPOLD                WINDOW.PRG     2954  2964  2973 HBRUSH                  WINDOW.PRG      948   951  2946  2971 HCTLFOCUS              WINDOW.PRG      443  3236  3237  3238  3239  3241  3246  3247  3266  3284 HCTLNEXT                WINDOW.PRG     3258  3262  3267 ...

Hi,
moving Super:LostFocus( hCtlFocus ) all seems to runs well.

I checked that LostFocus method is unchanged beetween Fwh oct 2009 and Fwh Nov 2010
so I think this issue is related to other changes in mget or other "core" FWH classes.

Thanks for your quick support.

... // Passei a controlar em GOTFOCUS/LOSTFOCUS //::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused METHOD LostFocus( hCtlFocus ) CLASS TGet if ::oBtn != nil ::oBtn:lCancel = .F. // so the GET VALID is not fired when the button is focused endif METHOD GotFocus( hCtlLost ...

... DATA lDentro AS LOGICAL INIT .F. // para saber si pinchamos 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 ... ...

... lEditable, aNames ) METHOD LoadRelated( cAlias, lEditable, aNames ) METHOD Look3D( lOnOff, nColumn, nLevel, lPhantom ) METHOD LostFocus( hCtlFocus ) METHOD MButtonDown( nRow, nCol, nKeyFlags ) METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ...

... nFlags ) METHOD KeyChar( nKey, nFlags ) METHOD LButtonDown( nRow, nCol, nKeyFlags ) METHOD LButtonUp( nRow, nCol, nKeyFlags ) METHOD LostFocus( hCtlFocus ) INLINE Super:LostFocus( hCtlFocus ),; If( ::nLen > 0 .and. ! EmptyAlias( ::cAlias ) .and. ; ! ::lIconView, ::DrawSelect(),) METHOD MouseMove( ...

... // activa colores Gets con foco ENDIF RETURN Super:GotFocus( hCtlLost ) Nuevo método LOSTFOCUS: METHOD LostFocus( hCtlFocus ) CLASS TUCLASE LOCAL xRet := Super:LostFocus( hCtlFocus ) IF ::nClrGFore # NIL ::SetColor(::nClrFore,::nClrBack) // activa colores Gets sin ...

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( hCtlFocus ) ) != nil ...

... ... RETURN NIL METHOD GotFocus( hCtlLost ) CLASS ... ... IF ::nClrGFore # NIL ::SetColor(::nClrGFore,::nClrGBack) ENDIF ... METHOD LostFocus( hCtlFocus ) CLASS ... ... IF ::nClrGFore # NIL ::SetColor(::nClrFore,::nClrBack) ENDIF ... Y nada más. La ventaja está en que conservas los colores ...

Fabian vas a tener que modificar la clase Control el método KillFocus agrega TSButton como en este ejemplo : METHOD KillFocus( hCtlFocus ) CLASS TControl local oWnd if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ; ( oWnd := oWndFromhWnd( hCtlFocus ...

Efectivamente, mis disculpas por el olvido: //---------------------------------------------------------------------------// METHOD LostFocus( hCtlFocus ) CLASS TGet Super:LostFocus( hCtlFocus ) if ! Empty( ::cPicture ) .and. ::oGet:type == "N" ::oGet:Assign() ::oGet:Picture := ::cPicture ::oGet:UpdateBuffer() ...