OpenEuphoria

xControls Issue with Tabs

• Posted by cklester <cklester at yahoo.com> Sep 22, 2004
• 451 views

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.

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 )

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