OpenEuphoria

Re: xControls Issue with Tabs

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

Jonas Temple wrote:
> 
> The following works, if you're interested.  I have a feeling that it
> won't work if you have more than one control on the window (besides
> the tab control)

Here's a version that ALMOST works perfectly. As you can see, even though
I'm supposedly splitting the area 50/50 for each list box, the one on top
is shorter than the one on bottom.

I think xControls should manage all this automagically. :)

include Win32Lib.ew
include xcontrols.ew

integer top, htop
	top = 25
	htop = floor(top/4)
	
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 = create( List, "List7", TabItem4, 40, 44, 148, 120, LBS_NOINTEGRALHEIGHT
),
List8 = create( List, "List7", TabItem4, 40, 44, 148, 120, LBS_NOINTEGRALHEIGHT
),
	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,top},{0.5,-5},{0.5,-htop+5})
	manage(xControl_TabControl2,List8,{0,5},{.5,htop-5},{0.5,-5},{1,-5})

	setFocus(TabItem4)

WinMain( Window1,Normal )

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