OpenEuphoria

Re: xControls Issue with Tabs

• Posted by Jonas Temple <jtemple at yhti.net> Sep 22, 2004
• 463 views

cklester wrote:
> 
> Don, I think xControls might be getting bad rect values for tab controls.
> But I don't know for sure. Check out this code and you'll see what I mean.
> 
> }}}
<eucode>
> include Win32Lib.ew
> include xcontrols.ew
> 
> constant
> 	-- windows and controls
> 	Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 ),
> 	TabControl2 = createEx( TabControl, "TabControl2", Window1, 24, 8, 300, 232,
> 0, 0 ),
> 	TabItem3 = createEx( TabItem, "TabItem3", TabControl2, 0, 0, 0, 0, 0, 0 ),
> 	TabItem4 = createEx( TabItem, "TabItem4", TabControl2, 0, 0, 0, 0, 0, 0 ),
> 	List7 = createEx( List, "List7", TabItem4, 40, 44, 148, 120, 0, 0 ),
> 	TabItem5 = createEx( TabItem, "TabItem5", TabControl2, 0, 0, 0, 0, 0, 0 ),
> 	TabItem6 = createEx( TabItem, "TabItem6", TabControl2, 0, 0, 0, 0, 0, 0 ),
> 
> 	-- xcontrols	
> 	xControl_Window1 = xControl( Geometry, "", Window1, 0, 0, 0, 0, 0, 0 ),
> 	xControl_TabControl2 = xControl( Geometry, "", TabControl2, 0, 0, 0, 0, 0, 0
> )
> 
> 	manage(xControl_Window1,TabControl2,{0,5},{0,5},{1,-5},{1,-5})
> 	manage(xControl_TabControl2,List7,{0,5},{0,5},{0.5,-5},{0.5,-5})
> 
> 	setFocus(TabItem4)
> 
> WinMain( Window1,Normal )
> </eucode>
{{{

> 
> -=ck
> "Programming in a state of EUPHORIA."
> <a
> href="http://www.cklester.com/euphoria/">http://www.cklester.com/euphoria/</a>
> 

CK,

What is it you're trying to accomplish?  If you comment out the manage()
call for List7 then it appears in the correct spot in the tab item.

Are you trying to get List7 to shrink/expand with changes to the main
window's size?

Jonas Temple
http://www.yhti.net/~jktemple