TControl:Hide() and TDialog Activation

[xProgrammer]

Hi Antonio

TControl:Hide() works but only if you call it after the TDialog has been activated. I wanted to include some TButtons that were hidden from the start. Is there a way of doing this?

As a reasonable workaround I figured I could call a function to hide these buttons when the TDialog was activated (like an ONINIT option). However I discovered that whilst TControl has a bInit DATA, the bInit code block is not called on Activation but is called on the resize event. This may mean that it would be called if the TDialog was activated MAXIMISED or CENTERED - I haven't tested for that. It isn't called if the TDialog is merely activated. There is code so that bInit can only be called once so I presume it was intended to be called when the TDialog is activated.

I did get things going by adding a bStartUp DATA and inserting the following code into TDialog:Activate() after ::Show() and before ::WinRun()

Code: Select all  Expand view

IF ::bStartUp != nil
   EVAL( ::bStartUp )
ENDIF

I haven't included code to reset bInit to nil because I figure that TDialog:Activate() will only get called once. I'm not sure if transferring bInit to this place in the code is a perfect solution to ensuring that the initialisation code block is run - depending upon what are the consequences of having initialisation code before WinRun(). (That assumes that the RESIZE event fires after or during WinRun() and not before - something I haven't tested.) But you might want to look into the best way of having TDialog initialisation code firing however the TDialog is activated.

Regards
Doug
(xProgrammer)

[Antonio Linares]

Doug,

Your solution is fine, though I would suggest to evaluate it before the ::Show() call, so if a control is going to be hidden, it will not be seen.

Also I would propose to use DATA bInit instead of bStartUp, so we use a compatible syntax.

Self should be provided as a parameter, so we get full access to the dialog object:

Code: Select all  Expand view

METHOD Activate( ... ) CLASS TDialog

   ...

   if ValType( ::bInit ) == "B"
      Eval( ::bInit, Self )
   endif

   ::Show()

   ...


[xProgrammer]

Hi Antonio

It didn't work.

The main problem is that TControl:Hide() only seems to work after TDialog:Show().

Second issue seems to relate to TDialog:bInit. I was setting it manually to a code block with code like this:

Code: Select all  Expand view

dlg_CALENDAR:bInit := { | | ::HideButtons() }

However TDialog:Activate takes a bInit parameter (parameter 6) and then executes the following:

Code: Select all  Expand view

::bInit     = bInit

This, of course, overwrites any bInit that has been set manually. So I switched to setting bInit by the ON INIT option of the ACTIVATE DIALOG command. But it might be nicer to have:

Code: Select all  Expand view

IF ValType( bInit ) == "B"
   ::bInit = bInit
ENDIF

so it can be set manually.

But because of issue 1 it still didn't work.

So for the time being I have reverted to using bInit but have changed the point in the code at which it is evaluated to after Show(). It would of course be nicer to find a way of hiding them before Show() is called but Hide() just doesn't do it.

Regards
Doug
(xProgrammer)

[nageswaragunupudi]

At the outset let me confess that I do not know anything about Linux and obviously I never worked with FiveLinux.

But in Windows, ACTIVATE DIALOG ON INIT oBtn:Hide() works well and thats what I do. Does it mean this does not work in FiveLinux ?

[xProgrammer]

Hi NageswaraRao

Correct. ON INIT oBtn:Hide() doesn't work under FiveLinux unless you make changes to the TDialog class so that TDialog:bInit is evaluated after the ::Show() in TDialog:Activate().

There are two reasons for this. Unaltered the ON INIT didn't seem to fire, but regardlesss oBtn:Hide() only hides the button after TDialog:Show() has been called by TDialog:Activate(). If called before then there is no error per se but the oBtn is visible (ie not hidden). This may be because Hide() can't work with a widget before it has been Shown() or perhaps more likely that the TDialog:Show() function is reversing what Hide() does.

Regards
Doug
(xProgrammer)