Dotted not properly painted on focus

[Antonio Linares]

This is a long time searched bug that finally has been found and fixed

If there is a GET just before a ComboBox, you will notice that pressing TAB the combobox does not show its dotted focus the first time, though next times are fine. The same applies for a GET before a Button.

That behavior is caused because the GET is returning DLGC_WANTALLKEYS in response to Windows msg WM_GETDLGCODE. Something allowed by Windows but that causes that non desired effect. Simply modify Class TGet Method GetDlgCode() this way and the dotted focus will be properly shown:

Code: Select all | Expand

METHOD GetDlgCode( nLastKey ) CLASS TGet   if Len( ::oWnd:aControls ) == 1      return DLGC_WANTALLKEYS   endif   ::oWnd:nLastKey = nLastKeyreturn nil // DLGC_WANTALLKEYS

[Antonio Linares]

To have also the same right behavior when pressing Enter, we have implemented the following:

We have implemented a new function SendKey() based on Windows API function SendInput():
viewtopic.php?f=6&t=22664&p=120948#p120948

so Class TWindow Method GoNextCtrl() changes this way:

Code: Select all | Expand

METHOD GoNextCtrl( hCtrl ) CLASS TWindow   local hCtlNext, nAt   if Upper( ::ClassName() ) != "TDIALOG"      nAt = AScan( ::aControls, { | o | o:hWnd == hCtrl } )      if nAt != 0         if nAt < Len( ::aControls )            hCtlNext = ::aControls[ nAt + 1 ]:hWnd         else            hCtlNext = ::aControls[ 1 ]:hWnd         endif         if lAnd( GetWindowLong( hCtlNext, GWL_STYLE ), WS_TABSTOP )            SetFocus( hCtlNext )         endif         return nil      endif   endif   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         SetFocus( hCtlNext )      endif   else      SendKey( VK_TAB )   endifreturn nil 

And a new Method GetDlgCode() for Class TComboBox:

Code: Select all | Expand

METHOD GetDlgCode() VIRTUAL

[carlos vargas]

Antonio, aca esta funcionando al 100% con los cambios indicado en tget, twindows y tcombobox.

salu2
carlos vargas

[Antonio Linares]

Carlos,

bien, gracias!

[carlos vargas]

Antonio, estando el get en un folder, no realiza el salto al siguiente control en el folder sino que hacia el siguiente control el dialogo contenedor del folder.

salu2