FiveTech Support Forums

#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

         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