- Code: Select all Expand view
// 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
{
}
Regards.
Pier Luigi