OpenEuphoria

Re: setVisible on tab pages

• Posted by "Christian Cuvier" <christian.cuvier at agriculture.gouv.fr> Apr 29, 2005
• 470 views

> Date: Thu, 28 Apr 2005 14:45:02 +0100
> From: Pete Lomax <petelomax at blueyonder.co.uk>
> Subject: Re: setVisible on tab pages
> 
> 
> 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:
> }}}
<eucode>
> 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)
> </eucode>
{{{

> 
> Regards,
> Pete
> 

Which is why, in my forked VisualEuphoria, I replaced visibility status 
switches by resizing
to 1x1 and back to default for controls on tab items whose visibility may vary.
Derek, I didn't look into the showControlSet() code to understand how it 
interferes with setVisible(), but... do you think win32lib could handle that 
issue transparently?

CChris