OpenEuphoria

Win32Lib IDE Child Window Properties

• Posted by euphoric <euphoric at cklester.com> Feb 02, 2004
• 435 views

I created a child window with a beveled border, not sizeable, and no 
titlebar, but when I run the prj file from within Win32Lib IDE it shows 
me the titlebar, lets me resize it, and shows a regular border. When I 
run the resulting .exw file, I get the same thing.

I'm copying the code to below... Please have a look and let me know what 
I need to do to get the expected behavior... Thanks!!! :)

---- sample code begin
--  code generated by Win32Lib IDE v0.18.3

 
include Win32Lib.ew
without warning

--------------------------------------------------------------------------------
--  Window Window1
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 
514, 402, 0, 0 )
constant menu_file = createEx( Menu, "File", Window1, 0, 1, 0, 0, 0, 0 )
constant menu_file_open = createEx( MenuItem, "Open", menu_file, 0, 2, 
0, 0, 0, 0 )
constant menu_file_new = createEx( MenuItem, "New", menu_file, 0, 3, 0, 
0, 0, 0 )
constant menu_file_close = createEx( MenuItem, "Close", menu_file, 0, 4, 
0, 0, 0, 0 )
constant menu_file_quit = createEx( MenuItem, "Quit", menu_file, 0, 5, 
0, 0, 0, 0 )
constant ToolBar2 = createEx( ToolBar, "ToolBar2", Window1, 0, 0, 514, 
34, 0, 0 )
constant StatusBar3 = createEx( StatusBar, "StatusBar3", Window1, 0, 0, 
0, 0, 0, 0 )
constant CWindow9 = createEx( Window, "CWindow9", Window1, 84, 2, 340, 
296, or_all({WS_CHILD, WS_CLIPSIBLINGS, WS_VSCROLL, WS_HSCROLL}), 
or_all({WS_EX_CLIENTEDGE}) )
openWindow(CWindow9, Normal)
moveZOrder( CWindow9, HWND_TOP)
---------------------------------------------------------
--------------------------------------------------------------------------------
procedure menu_file_quit_onClick (integer self, integer event, sequence 
params)--params is ()
    closeWindow(Window1)
end procedure
setHandler( menu_file_quit, w32HClick, routine_id("menu_file_quit_onClick"))


WinMain( Window1,Normal )
---- sample code end