FiveTech Software tech support forums

Code: Select all | Expand

// FWPPC - Managing multiple windows

#include "FWCE.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Main"

   @ 2, 2 BUTTON "Second" SIZE 80, 25 ACTION Second_Window()

   ACTIVATE WINDOW oWnd

return nil

function Second_Window()

   local oWnd2, oFld

   DEFINE WINDOW oWnd2 TITLE "Second"

   @ 0.5, 1 FOLDER oFld PROMPTS "One", "Two" ;
      DIALOGS "sub1", "sub2" ;
      SIZE 225, 245

   ACTIVATE WINDOW oWnd2

return nil

#include ".\..\include\WinApi.ch"

sub1 DIALOG 18, 18, 129, 128
STYLE WS_CHILD | 4
{

}

sub2 DIALOG 18, 18, 129, 128
STYLE WS_CHILD | 4
{

}