OpenEuphoria

Re: Win32lib

• Posted by Bernie Ryan <bwryan at PCOM.NET> Oct 25, 1999
• 480 views

-- I think this is what you want to do using the win32 library
-- Bernie

-----------------------------< cut >----------------------------------------

include win32lib.ew

constant SimpleWin =
    create( Window, "Simple Window", 0, Default, Default, 400, 400, 0 )

atom style

  -- get the present style
  style = c_func(xGetWindowLong, {getHandle( SimpleWin ), GWL_STYLE} )

  -- disable MAXIMIZE button
  style = and_bits(style,not_bits(WS_MAXIMIZEBOX))

  -- disable MINIMIZE button
  style = and_bits(style,not_bits(WS_MINIMIZEBOX))

  -- This disables sizing and stops the user from sizing the window
  style = and_bits(style,not_bits(WS_THICKFRAME))

  -- set the new style
  style = c_func(xSetWindowLong,{getHandle( SimpleWin ), GWL_STYLE, style})

WinMain( SimpleWin, Normal )

-----------------------------< cut >----------------------------------------