OpenEuphoria

RE: Win32Lib IDE Child Window Properties

• Posted by "Judith" <camping at txcyber.com> Feb 03, 2004
• 599 views

You need to use classDefaults to remove properties associated with WS_CHILD.
Also add WS_DLGFRAME. WS_DLGFRAME should have been added by IDE.

I need to see what I can do to allow IDE to produce these statements for you
in the generated exw.

See the sample with the changes I made.

euphoric wrote:
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 )
--new statements
sequence oldFlags
oldFlags = classDefaults( Window, { {1,
{WS_SYSMENU,WS_MINIMIZEBOX,WS_MAXIMIZEBOX,WS_DISABLED}},{2,
{WS_EX_DLGMODALFRAME}} } )
--end new statements
constant CWindow9 = createEx( Window, "CWindow9", Window1, 84, 2, 340,
296, or_all({WS_CHILD, WS_CLIPSIBLINGS, WS_DLGFRAME,WS_VSCROLL,
WS_HSCROLL}), or_all({WS_EX_CLIENTEDGE}) )    --added WS_DLGFRAME
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 )