OpenEuphoria

Re: setVisible on tab pages

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Apr 28, 2005
• 463 views

On Thu, 28 Apr 2005 04:05:19 -0700, ZNorQ <guest at RapidEuphoria.com>
wrote:

I think you need additional tests around the setVisible call:

include win32lib.ew
constant main=create(Window,"Title",0,410,0,400,350,0)
constant
TabControl56=create(TabControl,"TabControl",main,32,30,200,283,0)
constant TabItem57=create(TabItem,"TabItem",TabControl56,0,0,0,0,0)
constant TabItem58=create(TabItem,"TabItem",TabControl56,0,0,0,0,0)
constant Label58=create(Label,"Label",TabItem57,26,44,169,20,0)
constant Button59=create(Button,"Button",main,277,69,75,30,0)
procedure bh(integer self, integer event, sequence params)
	if self or event or sequence(params) then end if
	if getTabItem(TabControl56)=TabItem57 then
		setVisible(Label58,not isVisible(Label58))
	end if
end procedure
setHandler(Button59,w32HClick,routine_id("bh"))
WinMain(main,Normal)

Regards,
Pete