FiveTech Support Forums

#include "fivewin.ch"



FUNCTION Main()
   LOCAL oWndMain, oWndChild, oDlg
   LOCAL oMenu
   
   MENU oMenu
      MENUITEM "Test" ACTION LoadMdiChild( oWndMain )
   ENDMENU
   
   
   DEFINE WINDOW oWndMain MDI MENU oMenu
   
   ACTIVATE WINDOW oWndMain
   
RETURN NIL


FUNCTION LoadMdiChild( oWndMain )

   LOCAL oWndChild, oDlg  

   DEFINE WINDOW oWndChild MDICHILD OF oWndMain
   
   DEFINE DIALOG oDlg OF oWndChild STYLE nOR( WS_VISIBLE, WS_CHILD )

   oWndChild:bResized = {| nType, nWidth, nHeight | WndAdjClient( oDlg:hWnd ) }

   ACTIVATE DIALOG oDlg NOWAIT
   
   ACTIVATE WINDOW oWndChild

RETURN NIL

      oWndOP:bResized := {|nType, nWidth, nHeight| oDlgOP:SetSize( oWndOP:oWndClient:nWidth,;
                                                                              oWndOP:oWndClient:nHeight) }