Error BASE/1004 Message not found: TWINDOW:LRESIZE16

[hua]

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

Code: Select all | Expand

#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 

[Antonio Linares]

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

Probably you are mixing different FWH versions source code.

[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

[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 | Expand

         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!

[hua]

Thanks!