xDialog controlpanel anomoly

[Peter.Greulich]

Add this code to an existing app, but make sure no forms or other windows in Alpha are open.

Create a new script using the code below.
Run the script.
Click "ControlPanel Hide" from the xdialog
Click "ControlPanel Show" from the xdialog

The CP doesn't show.

Close Alpha and this time first open a form, then repeat the above.
now the CP properly displays.

Can someone verify this behavior and possibly explain it.

'Date Created: 21-Jan-2014 03:26:47 PM
'Last Updated: 27-Jul-2014 05:00:17 PM
'Created By  : pgreulich
'Updated By  : pgreulich


DIM SHARED xMenu as C
dim tb_xMenu_xml as c 


tb_xMenu_xml = <<%xml%
<toolbox animate="false" type="List" theme="NATIVEWINXP" >
<category name="Utilities" state="Open"  >
    <item text="ControlPanel Show" icon="$$generic.add.small" data="" onclick="Script:scpCP_Show"  />
    <item text="ControlPanel Hide" icon="$$generic.remove.small" data="" onclick="ControlPanelHide"  />
</category>
<category name="Test" state="Closed"  >


</category>


</toolbox>
%xml%


dim sm as p 
sm = XMLSchemaManager.get()


dim tb_xMenu as p 
tb_xMenu.xml_def = sm.LoadXML(tb_xMenu_xml)


dim xMenu as c 
xMenu = ""


vLeft = 0
vTop = 1
vPos = "{position="+alltrim(str(vLeft))+","+alltrim(str(vTop))+"}"


vTitle = "Production Menu"


dlg_Menu = <<%dlg%
{include=vPos}
{position=remember=XD_MenuPos}
{region}
{font= arial, 10, b }
{Toolbox=40,45xMenu^=tb_xMenu};;
{endregion};
{line=1,0};
{region}
{font= arial, 10, n }
<%I=$a5_close;O={I=1} {J+C}Close; %15,1.1Close>
{endregion};
%dlg%
''-------------------------------
event_Menu = <<%code%
If a_dlg_button = "ControlPanelShow" then 
    a_dlg_button = "" 
    
    ControlPanel.Show()
    ControlPanel.Activate()
end if


If a_dlg_button = "ControlPanelHide" then 
    a_dlg_button = "" 
    
    ControlPanel.Hide()
end if


IF a_dlg_button = "Close"
    ui_modeless_dlg_close(vTitle)
END IF


%code%
''-------------------------------
ui_modeless_dlg_box(vTitle,dlg_Menu,event_Menu)

[GGandhi]

Re: xDialog controlpanel anomoly

Should this be in desktop section?

[Peter.Greulich]

Re: xDialog controlpanel anomoly

Thanks Gandhi.

[Tim Kiebert]

Re: xDialog controlpanel anomoly

Peter, I can confirm this behaviour. I believe this has always been the case. If there are no other windows open. ie form , browse, report etc then when you close the control panel the current app closes. The app just seems to be open because the xdialog is still there. I am guessing the xdialog stays up because it is in a separate session of some sort. The xdialog is behaving dialog like. if you get what I mean.

[G Gabriel]

Re: xDialog controlpanel anomoly

Nope!
Can't test in your version as I do not have it, but:
1-You do not have to close/re-open alpha. Go to IW and type:
ControlPanel.Show()
It will show

2-This works fine:

ui_dlg_box("",<<%dlg%
<show><hide><cancel>;
%dlg%,<<%code%
if a_dlg_button="show"
	a_dlg_button=""
	ControlPanel.Show()
end if

if a_dlg_button="hide"
	a_dlg_button=""
	 ControlPanel.hide()	
end if
%code%)

Something wrong in your xml construct, most likely the onclick event which specify a script which I do not see.

[Tim Kiebert]

Re: xDialog controlpanel anomoly

G, if you change your example to a modeless dialog (ui_modeless_dlg_box) then it behaves the same as Peter's sample.

I did change Peter's xml to match the event code.

I am testing in v11

[Peter.Greulich]

Re: xDialog controlpanel anomoly

Thanks Tim. So when I hide it I'm actually closing the app? Interesting.

Gabe, if you find a workaround, let me know.

[Ray in Capetown]

Re: xDialog controlpanel anomoly

I wonder what is so different in V11 to V10.5?
Peter in v10 your code opens and empty dialog down the left with nothing but "Close" Button

[G Gabriel]

Re: xDialog controlpanel anomoly

G, if you change your example to a modeless dialog (ui_modeless_dlg_box) then it behaves the same as Peter's sample.

Works fine in modeless as well, at least in my version.

[MoGrace]

Re: xDialog controlpanel anomoly

Hi Peter,
In your example the button text says 'Controlpanel Show' but you are testing for an event called 'controlpanelshow' - I don't see that your script has that event. Can you show us the script the on click calls?

Are you trying to do away with the little form you had in a previous example?

[Peter.Greulich]

Re: xDialog controlpanel anomoly

Hi Robin,

Well, as usual, I simplified the code from the actual menu code so, thus the "typo". I think this is the code we want.

BTW: Doesn't work in v10 for me either.

DIM SHARED xMenu as C
dim tb_xMenu_xml as c 


tb_xMenu_xml = <<%xml%
<toolbox animate="false" type="List" theme="NATIVEWINXP" >
<category name="Utilities" state="Open"  >
    <item text="ControlPanel Show" icon="$$generic.add.small" data="" onclick="ControlPanelShow"  />
    <item text="ControlPanel Hide" icon="$$generic.remove.small" data="" onclick="ControlPanelHide"  />
</category>
<category name="Test" state="Closed"  >


</category>


</toolbox>
%xml%


dim sm as p 
sm = XMLSchemaManager.get()


dim tb_xMenu as p 
tb_xMenu.xml_def = sm.LoadXML(tb_xMenu_xml)


dim xMenu as c 
xMenu = ""


vLeft = 0
vTop = 1
vPos = "{position="+alltrim(str(vLeft))+","+alltrim(str(vTop))+"}"


vTitle = "Production Menu"


dlg_Menu = <<%dlg%
{include=vPos}
{position=remember=XD_MenuPos}
{region}
{font= arial, 10, b }
{Toolbox=40,45xMenu^=tb_xMenu};;
{endregion};
{line=1,0};
{region}
{font= arial, 10, n }
<%I=$a5_close;O={I=1} {J+C}Close; %15,1.1Close>
{endregion};
%dlg%
''-------------------------------
event_Menu = <<%code%
If a_dlg_button = "ControlPanelShow" then 
    a_dlg_button = "" 
    
    ControlPanel.Show()
    ControlPanel.Activate()
end if


If a_dlg_button = "ControlPanelHide" then 
    a_dlg_button = "" 
    
    ControlPanel.Hide()
end if


IF a_dlg_button = "Close"
    ui_modeless_dlg_close(vTitle)
END IF


%code%
''-------------------------------
ui_modeless_dlg_box(vTitle,dlg_Menu,event_Menu)

[Peter.Greulich]

Re: xDialog controlpanel anomoly

It doesn't work in v10, v11 or v12 - for me at least.

[Al Buchholz]

Re: xDialog controlpanel anomoly

It doesn't work in v10, v11 or v12 - for me at least.

Peter

I think this has always been the behavior.

Closing all objects (especially that last one) also closes the database.

[Peter.Greulich]

Re: xDialog controlpanel anomoly

Thanks Al

[Stan Mathews]

Re: xDialog controlpanel anomoly

You asked about workarounds so I took a look at

controlpanel.Minimize()
controlpanel.window_position(500,500) ' to move it offscreen to the right

But the window_position() method throws an error.

I also looked at changing the values in the registry for

HKEY_CURRENT_USER\Software\Alpha Software\Alpha Five 11.0\Control Panel\x coor
HKEY_CURRENT_USER\Software\Alpha Software\Alpha Five 11.0\Control Panel\y coor

but couldn't seem to make anything useful happen.