OpenEuphoria

Win32Lib bug: setClientRect

• Posted by Brian Broker <bkb at cnw.com> Sep 29, 2004
• 514 views

With just the status bar, the program below behaves as expected.  But 
when you add the menu, getClientRect does not show 400x300.

include win32lib.ew
without warning

constant
   Win = create( Window, "test", 0, Default, Default, 400, 300, 0 ),
   Men = create( Menu, "Menu", Win, 0, 0, 0, 0, 0 ),
   Stat = create( StatusBar, "Status", Win, 0, 0, 0, 0, 0 )

procedure openWin( integer self, integer event, sequence params )
   ? getCtlSize( Win )
   ? getClientRect( Win )
   setClientRect( Win, 400, 300 )
   ? getCtlSize( Win )
   ? getClientRect( Win )
end procedure
setHandler( Win, w32HOpen, routine_id("openWin") )

WinMain( Win, Normal )

-- Brian