topic-22307

Posts: 55

Joined: Fri Jul 08, 2011 06:43 AM

FWH 8.10 , window.prg
Posted: Fri Sep 02, 2011 08:38 PM

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 (fw): Select all Collapse

   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

Posts: 3022

Joined: Fri Oct 07, 2005 01:45 PM

Re: FWH 8.10 , window.prg
Posted: Sat Sep 03, 2011 05:58 PM

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

Tim Stone
http://www.MasterLinkSoftware.com
http://www.autoshopwriter.com
timstone@masterlinksoftware.com
Using: FWH 23.10 with Harbour 3.2.0 / Microsoft Visual Studio Community 2022-24 32/64 bit

FiveTech Support Forums

Continue the discussion