FiveTech Support Forums

// Using MDIChilds with user defined styles

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   local oBar

   DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
      TITLE "This is a MDI enviroment" MDI VSCROLL

   DEFINE BUTTONBAR oBar OF oWnd

   DEFINE BUTTON OF oBar ACTION CreateChild()

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function CreateChild()

   local oWndChild
   local oBar, oBtn
   local cName := "Hello"

   DEFINE WINDOW oWndChild MDICHILD OF oWnd ;
      STYLE nOr( WS_CAPTION, WS_MINIMIZEBOX, WS_SYSMENU )

   DEFINE BUTTONBAR oBar OF oWndChild

   DEFINE BUTTON OF oBar ACTION oWndChild:End()

   @ 3, 3 GET cName OF oWndChild SIZE 120, 25 VALID ! Empty( cName )

   @ 6, 2 BUTTON oBtn PROMPT "&Test" OF oWndChild SIZE 80, 20 ;
      ACTION MsgInfo( GetProp( oBtn:hWnd, "WP" ) )

   ACTIVATE WINDOW oWndChild

return nil

//----------------------------------------------------------------------------//