Re: dbcombo ( lostfocus no funciona ) NO RESUELTO

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: dbcombo ( lostfocus no funciona ) NO RESUELTO
Posted: Wed Dec 12, 2012 10:18 PM

Estimados

Por que en los dbcombo no funciona
bGotfocus no deja abrir los combos
bLostFocus no hace nada

en el ejemplo dbctest.prg

Code (fw): Select all Collapse

REDEFINE DBCOMBO oState VAR cState ID ID_STATE OF oClient ;
      ALIAS "STATES" ;
      ITEMFIELD "CODE" ;
      LISTFIELD "NAME"

    oState:bLostfocus := { || cTmp := cState }
    oState:bgotfocus := { || cTmp := cState }

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: dbcombo ( lostfocus no funciona )
Posted: Fri Dec 14, 2012 12:31 PM

Intenta con:

XFOCUS( oState )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: dbcombo ( lostfocus no funciona )
Posted: Fri Dec 14, 2012 01:32 PM

Hola

he solucionado el bGotfocus

Code (fw): Select all Collapse

    oState:bgotfocus := { || cTmp := cState, oState:SetFocus() }

pero blostfocus no hace nada

Code (fw): Select all Collapse

    oState:bLostfocus := { || cTmp := cState}

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: dbcombo ( lostfocus no funciona ) NO RESUELTO
Posted: Mon Dec 17, 2012 07:53 PM

No funciona, estuve como 1 hora buscando el error, y era el

oState:bgotfocus := { || cTmp := cState, oState:SetFocus() }

cuando valida algo y este devuelve .f. queda en un bucle indefinidamente devolviendo .f., solo hay que cerrar el programa

le saque

//oState:bgotfocus := { || cTmp := cState, oState:SetFocus() }

funciona bien ahora

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: dbcombo ( lostfocus no funciona ) NO RESUELTO
Posted: Tue Dec 18, 2012 07:42 PM

Hola

Aqui dejo posible correcion de lostfocus del dbcombo

Code (fw): Select all Collapse

METHOD LostFocus() CLASS TDBCombo

   local nAt := ::SendMsg( CB_GETCURSEL )

   if nAt != CB_ERR
      ::nAt = nAt + 1
      Eval( ::bSetGet, ::aItems[ ::nAt ] )
   else
      Eval( ::bSetGet, GetWindowText( ::hWnd ) )
   endif

//aqui se evalua el blostfocus
   if ! Empty( ::bLostFocus )
      return Eval( ::bLostFocus, Self, ::hWnd )
   endif
//fin modificacion

   ::cSearchKey:=""

return nil

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion