RESIZE16 clause on folder

[Enrico Maria Giordano]

Dialogs inside folders don't respect RESIZE16 clause. The following change in TFolder seems enough to solve the problem:

Code: Select all  Expand view  RUN

      #ifdef __CLIPPER__
         ACTIVATE DIALOG oDlg NOWAIT ;
            ON INIT ( oDlg:Move( nHeight + 2, 3 ) ) ;
            VALID .f.                // to avoid exiting pressing Esc !!!
      #else
         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
      #endif

EMG

[Antonio Linares]

Enrico,

Thanks!