A problem in TAB handling

[Antonio Linares]

This is the most recent code. please test with it, thanks:

Code: Select all  Expand view

METHOD GoNextCtrl( hCtrl ) CLASS TWindow

   local hCtlNext, nAt
   
   if ! Empty( ::aControls ) .and. hCtrl == ::LastActiveCtrl():hWnd .and. ;
      ! Empty( ::oWnd ) .and. ( ( Upper( ::oWnd:ClassName() ) $ "TFOLDER;TPAGES;TFOLDEREX" ) )
      hCtlNext = NextDlgTab( ::oWnd:oWnd:hWnd, ::oWnd:hWnd )
      ::hCtlFocus = hCtrl
      SetFocus( hCtlNext )
   else
      nAt = AScan( ::aControls, { | o | o:hWnd == hCtrl } )
      if nAt != 0
         nAt = If( nAt < Len( ::aControls ), nAt + 1, 1 )
         while ! lAnd( GetWindowLong( ::aControls[ nAt ]:hWnd, GWL_STYLE ), WS_TABSTOP ) .or. ;
               ! IsWindowEnabled( ::aControls[ nAt ]:hWnd )
            nAt = If( nAt < Len( ::aControls ), nAt + 1, 1 )
         end
         SetFocus( ::aControls[ nAt ]:hWnd )
      endif
   endif

return nil
 

[Antonio Linares]

The only remaining problem that we found is when the first control is a combobox, in this case this seems to be a valid workaround until we find a better solution:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx, cValue := "One"

   DEFINE DIALOG oDlg
   
   @ 1, 2 COMBOBOX oCbx VAR cValue ITEMS { "One", "Two", "Three" }
   
   @ 3, 2 BUTTON "OK"

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( ATail( oDlg:aControls ):SetFocus(), SysRefresh(), SendKey( VK_TAB ), .F. )         
   
return nil

[Patricio Avalos Aguirre]