topic-32578

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

combobox y lostfocus
Posted: Tue Jun 14, 2016 11:19 AM

Hola.

No hay manera, si en un dialogo hay un combobox y un folder, no hay manera de que salte al folder,
ya probe utilziando el jump:

Code (fw): Select all Collapse

oCombobox[1]:ojump = oGet[2]

ya probe poniendolo en el VALID del Combobox y nada...

Que esta funcionando mal?
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: combobox y lostfocus
Posted: Tue Jun 14, 2016 12:42 PM

Simples,

Code (fw): Select all Collapse

    REDEFINE COMBOBOX oCombo VAR XESTCIVIL PICTURE "@K!"     ;
             ITEMS cEstCivil                                 ;
             ID 31 OF oFld:aDialogs[ 4 ]                     ;
             UPDATE                                          ;
             COLORS CLR_HRED, CLR_HCYAN                      ;
             VALID   IF( GetASyncKey( VK_RETURN )     .OR.        ;
                         GetASyncKey( VK_DOWN   ),                ;
                       ( oCombo:oJump := oCbxSit,                 ;
                        xFocus( oCbxSit ), .T. ), .T. )

    oCombo:cToolTip := "<Click-Me> Para Selecionar o Estado Civil do Cliente"

    REDEFINE COMBOBOX oCbxSit VAR XATIVO PICTURE "@K!"            ;
             ITEMS cSituacao                                      ;
             ID 32 OF oFld:aDialogs[ 4 ]                          ;
             UPDATE                                               ;
             COLORS CLR_HRED, CLR_HCYAN                           ;
             VALID IF( GetASyncKey( VK_RETURN )     .OR.          ;
                       GetASyncKey( VK_DOWN   ),                  ;
                     ( oCbxSit:oJump := aGet[070],                ;
                       oFld:SetOption(5), oFld:SetFocus(),        ;
                       oFld:Refresh(), xFocus( aGet[70] ), .T. ), .T. )

    oCbxSit:cToolTip := ( "<Click-Me> Para Selecionar" )

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

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: combobox y lostfocus
Posted: Tue Jun 14, 2016 01:36 PM

Hola.

Ya probe de esa manera y no me funciona.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: combobox y lostfocus
Posted: Tue Jun 14, 2016 01:43 PM

Aca funciona perfecto:

Code (fw): Select all Collapse

FUNCTION xFocus( oObj )
   xSetFocus( oObj )
   xSetFocus( oObj )
RETURN( .T. )
//-------------------------------------------------------------------------//
FUNCTION xSetFocus( oObj )
    LOCAL _oWnd := oObj:oWnd, _oTempo := ""
    DEFINE Timer _oTempo Interval 10 of _oWnd ;
           Action ( oObj:SetFocus(), _oTempo:End() )
    ACTIVATE Timer _oTempo
RETURN( .T. )

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

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: combobox y lostfocus
Posted: Tue Jun 14, 2016 08:56 PM

verifica que el control en el rc tenfo la propiedad tabstop en true, sucede con resedit que por defecto la propiedad tabstop de los combobox y radoitems enta false