FiveTech Software tech support forums

Posted: **Tue Dec 05, 2006 5:23 pm**

Testing the following code, I got an error as mentioned above. Where did I go wrong?

#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()

  local oFld1

    USE Numbers
    INDEX ON Str( Numbers->Number, 2 ) TO Numbers
    SET INDEX TO Numbers

    GO TOP

	DEFINE window oWnd from 0,0 to 200,200 pixel

	@ 0.5,0.5 FOLDER oFld1 OF oWnd ;
                PROMPT "&Page1", "P&age2" ;
		DIALOGS "Sub1", "Sub2" ;

	@ 0.5,0.5 LISTBOX oLbx1 ;
                FIELDS Str( Numbers->Number ) ;
                HEADERS "Field1" ;
                FIELDSIZES 100 ;
		OF oFld1:aDialogs[ 1 ]


	ACTIVATE WINDOW oWnd

return nil

Posted: **Tue Dec 05, 2006 8:56 pm**

Your Class TWindow may be missing the DATA lResize16. Please add it.

Probably you are mixing different FWH versions source code.

Posted: **Wed Dec 06, 2006 1:43 am**

Your Class TWindow may be missing the DATA lResize16. Please add it.

Surprisingly it is missing. Adding it and initializing it to false solved the issue. Thanks.

BTW, I'm using FWH 2.8 Nov, the latest built

Posted: **Wed Dec 06, 2006 9:54 am**

Hua,

Its a bug introduced cause a recent modification in Class TFolder. This is the right code to use in Class TFolder:

Code: Select all

         if ChildLevel( ::oWnd, TDialog() ) == 1
            if ! ::oWnd:lResize16 
               ACTIVATE DIALOG oDlg NOWAIT ; 
                  ON INIT oDlg:Move( nHeight - 1, 1 ) ; 
                  VALID .f.                // to avoid exiting pressing Esc !!! 
            else      
               ACTIVATE DIALOG oDlg NOWAIT ; 
                  ON INIT oDlg:Move( nHeight - 1, 1 ) ; 
                  VALID .f. RESIZE16       // to avoid exiting pressing Esc !!! 
            endif      
         else 
            ACTIVATE DIALOG oDlg NOWAIT ; 
               ON INIT oDlg:Move( nHeight - 1, 1 ) ; 
               VALID .f.                   // to avoid exiting pressing Esc !!! 
         endif

Anyhow your fix is ok, in the meantime, until we publish the next build. Thanks!

Posted: **Thu Dec 07, 2006 1:15 am**

Thanks!

FiveTech Software tech support forums

Error BASE/1004 Message not found: TWINDOW:LRESIZE16

Error BASE/1004 Message not found: TWINDOW:LRESIZE16