FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour foco en combobox
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: foco en combobox
Posted: Sat Oct 15, 2011 04:58 PM

Patricio,

Puedes proporcionar un ejemplo para probarlo ? Para poder reproducirlo aqui, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: foco en combobox
Posted: Mon Oct 17, 2011 02:41 PM

Antonio,
probado el ejemplo que me envias y sigue borrando los controles.
estoy probando en mi sistema avanzando con "RETURN" en los controles y cuando pasa por un combobox o checkbox la linea punteada no aparece, unicamente usando el TAB
gracias
paco

____________________

Paco
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: foco en combobox
Posted: Mon Oct 17, 2011 03:08 PM

Paco,

Que versión de FWH estás usando ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: foco en combobox
Posted: Mon Oct 17, 2011 04:27 PM

Antonio,
usando fwh1103 + bcc582 + xharbour
saludos
paco

____________________

Paco
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: foco en combobox
Posted: Tue Oct 18, 2011 06:40 PM
Antonio

aqui esta el ejemplo para la revision


http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22657#p121091
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
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: foco en combobox
Posted: Wed Oct 19, 2011 04:30 AM
Antonio
no funciona cuando el get esta en un folder.-
en este caso en lugar de saltar al siguiente control del page del dialogo, salta hacia el siguiente control luego del folder.
hay problema con el metodo GoNextCtrl
Code (fw): Select all Collapse
   IF !Empty( ::aControls ) .and. hCtrl == ::LastActiveCtrl():hWnd
      IF !Empty( ::oWnd ) .and. ( ( Upper( ::oWnd:ClassName() ) $ "TFOLDER;TPAGES;TFOLDEREX" ) )
         hCtlNext = NextDlgTab( ::oWnd:oWnd:hWnd, ::oWnd:hWnd )
         ::hCtlFocus := hCtrl
         IF hCtlNext != hCtrl
            SetFocus( hCtlNext )
         ENDIF
      ENDIF
   ELSE
      SendKey( VK_TAB )
   ENDIF
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Continue the discussion