OpenEuphoria

xControls (Don!)

• Posted by cklester <cklester at yahoo.com> Jul 07, 2004
• 620 views

-- I modified the geometry example to show what I mean:
-- why doesn't it take the statusbar into account?
-- i looked at the code and it seems to be using
-- getClientRect(), which is the right rect, right?! :)
-- Don, can you fix this? Thanks!!!

without warning

include Win32Lib.ew
include xControls.ew

constant
main		= create( Window, "", NULL, 0.25, 0.25, 0.5, 0.5, 0 ),
ID1			= create( Window, "", main, 0, 0, 1, 1, {WS_CHILD,WS_VISIBLE} ),
ID2			= create( Window, "", main, 0, 0, 1, 1, {WS_CHILD,WS_VISIBLE} ),
sbar		= create( StatusBar, "", main, 0,0,0,0,0 ),
GMID		= xControl( Geometry, "", main, 0, 0, 0, 0, 0, 0 )

manage( GMID, ID1, {0.0, 5}, {0, 5}, {0.5, 00}, {1.0 , -5} )
manage( GMID, ID2, {ID1, 5}, {0, 5}, {1.0, -5}, {0.5 , 00} )

procedure ModifyWinColors( integer self, integer event, sequence parms )
	setWindowBackColor( ID1, #FF0000 )
	setWindowBackColor( ID2, #FF00FF )
end procedure
setHandler( main, w32HOpen, routine_id("ModifyWinColors") )

WinMain( main, Normal )

-- end of program

-=ck
"Programming in a state of EUPHORIA."