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 view

#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 view

         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!