FWH 8.10 , window.prg

[Demont Brecht]

Hello,

Testing with the source from xbrdbu.prg , i create a window (file2Brw).
In the source there is created one control : the browse.

I add some controls (10 controls are created) , control 3 to 9 are disabled (and hidden)

The second control becomes focus and can be edited , but the focus can not be moved.

Looking in the source from windows.prg i find for METHOD GoNextCtrl( hCtrl ) CLASS TWindow :

Code: Select all  Expand view

   if Upper( ::ClassName() ) != "TDIALOG"
      nAt = AScan( ::aControls, { | o |o:hWnd == hCtrl } )
     if nAt != 0
         if nAt < Len( ::aControls )
            SetFocus( ::aControls[ nAt + 1 ]:hWnd )
         else
            SetFocus( ::aControls[ 1 ]:hWnd )
         endif
         return nil
      endif
   endif
 

This can not work , it finds the third control which is disabled
When i eliminate this code (IF .F.) , then it works.

What is this code in the current versions from FWH ?

Frank Demont

[TimStone]

Frank,

As one who has watched the development over the years, I think the changes from 8 to 11 are extensive. I would suggest updating to the current version.

Right now the developers have to be compatible with so many different OS's, and trying to remember back nearly 3 years with all of the changes would be very hard. I think there are about 50 pages of update notes over that time. There is no way to summarize them.

FWH development, at this time, is stronger then it has ever been. Its worth bringing it current.

Tim