Page 1 of 1

Error BASE/1004 Message not found: TWINDOW:LRESIZE16

Posted: Tue Dec 05, 2006 5:23 pm
by hua
Testing the following code, I got an error as mentioned above. Where did I go wrong?

Code: Select all

#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
by Antonio Linares
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
by hua
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
by Antonio Linares
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
by hua
Thanks!