1. RE: Win32Lib IDE Child Window Properties
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 )
