OpenEuphoria

Win32Lib GUI Behavior

• Posted by cklester <cklester at yahoo.com> Aug 12, 2004
• 600 views

Using the program below, if you maximize the child window, it covers
the toolbar of the parent! I don't think it's supposed to do that. Is
there something I can do to prevent that, or is it Win32Lib related?

Thanks!

include Win32Lib.ew
without warning

constant win_Main = createEx( Window, "GUI Test", 0, Default, Default, 528, 415,
0, 0 )
constant menu_File = createEx( Menu, "File", win_Main, 0, 0, 0, 0, 0, 0 )
constant menu_File_Exit = createEx( MenuItem, "Exit", menu_File, 0, 0, 0, 0, 0,
0 )
constant ToolBar4 = createEx( ToolBar, "ToolBar4", win_Main, 0, 0, 528, 34, 0, 0
)
constant StatusBar2 = createEx( StatusBar, "StatusBar2", win_Main, 0, 0, 0, 0,
0, 0 )
constant bttn_Project_New = createEx( PushButton, "New", ToolBar4, 0, 0, 30, 30,
0, 0 )
constant CWindow8 = createEx( Window, "CWindow8", win_Main, 176, 88, 200, 100,
or_all({WS_CHILD}), 0 )
openWindow(CWindow8, Normal)

procedure menu_File_Exit_onClick (integer self, integer event, sequence
params)--params is ()
	closeWindow( win_Main )
end procedure
setHandler( menu_File_Exit, w32HClick, routine_id("menu_File_Exit_onClick"))

WinMain( win_Main,Maximize )

-=ck
"Programming in a state of EUPHORIA."
http://www.cklester.com/euphoria/