FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour RESIZE16 clause on folder
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
RESIZE16 clause on folder
Posted: Tue Nov 28, 2006 10:55 AM
Dialogs inside folders don't respect RESIZE16 clause. The following change in TFolder seems enough to solve the problem:

      #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
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
RESIZE16 clause on folder
Posted: Wed Nov 29, 2006 06:46 AM

Enrico,

Thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion