XD Tree Supercontrol & Layout Variables

[MoGrace]

I am trying to filter my form and have the xd tree updated with the same filter. The tree is based on the data in the same table. I am using a shared variable in a dropdown object to change the global variable that is used in the filters. I created the script first for testing from the IW and it behaved as expected and have tried using it both as the local and as the external script for the supercontrol. However...the errors I am getting have to do with the %code% section when I refer to either one of these variables in the event handler section. Both variables are dimmed in the script.

'if a_dlg_button = myevent then
if my_global_var <> " " then 'this throws the error 'my_global_var not found'
'code to refetch the tree data, etc.

Is there some reason I am not aware of that this tactic is a no-no for a supercontrol?

[MoGrace]

Re: XD Tree Supercontrol &amp; Layout Variables

Here is my edited local script for the supercontrol. The tree data is based on the same table as the form. This one at least will display. But the change event says the vTree
variable is not found!

I cannot seem to find my error...

DIM global chk_app as c
dim shared lu_app as c = chk_app
dim shared flter as c = ""
DIM shared vTree as C
DIM shared vChoice as C
dim shared vTreeData as c
dim tbl as p
tbl = table.current()
if chk_app <> "" then
    flter = "app="+quote(var->chk_app)
	vTreeData = tbl.record_content_get("alltrim(Chapter)+\".\"+alltrim(Topic)+\".\"+'{Data='+alltrim(Helpid)+'}'+alltrim(Help_ref)","sortkey",flter)
else
	vTreeData = tbl.record_content_get("alltrim(Chapter)+\".\"+alltrim(Topic)+\".\"+'{Data='+alltrim(Helpid)+'}'+alltrim(Help_ref)","sortkey","")
end if

'NOTE: don't need this option to add the 'z' to test the return data for vChoice is Helpid - see below
'vTreeData = tbl.record_content_get("alltrim(Chapter)+\".\"+alltrim(Topic)+\".\"+'{Data=z'+alltrim(Helpid)+'}'+alltrim(Help_ref)","sortkey","")

'in case Topic is blank omits level 2
vTreeData = *for_each(foo,stritran(foo,"..","."),vTreeData)
ui_modeless_dlg_box(dlgTitle,<<%dlg%
{comment}
{background=<Transparent>}
{watch=lu_app!lu_cx}
{region}
{font=Comic Sans MS,12};
Table of Contents;
{Endregion};
{Region}
{font=Arial,10}
[%S=BRL%.40,30vTree^<vTreeData!ev_*];
{Endregion}; 
{Region}
Selection: [.27vChoice]
{Endregion};
{justify=Left};
{lf};
<*12Refresh!redo>;
{endregion};
%dlg%,<<%code%
if a_dlg_button = "redo" .or. a_dlg_button = "lu_cx" then
   	flter = "app="+quote(var->chk_app)
	vTreeData = tbl.record_content_get("alltrim(Chapter)+\".\"+alltrim(Topic)+\".\"+'{Data='+alltrim(Helpid)+'}'+alltrim(Help_ref)","sortkey",flter)
 	vTreeData = *for_each(foo,stritran(foo,"..","."),vTreeData)
end if 	

if a_dlg_button = "ev_change" .or. a_dlg_button = "ev_dblclick"
	'test that the return value is the Helpid data when Help_ref is selected
	[COLOR="#FF0000"]if left(vTree,2) = "H0" then[/COLOR]	  	
                          vChoice = alltrim(vTree)	  	'  		 	
	else 
		'shows that no action will take place at the upper group levels
		vChoice = ""  	  		  	 
	end if
end if
%code%)
if vChoice <> "" then
    topparent.find(vChoice)
end if
'NOTE: could not test for lu_app value in the code section.
'I even tried adding radio buttons to change these vars in the dlg_body and attached events to them but it would
'not work once the tree was embedded in a form as a supercontrol

[MoGrace]

Re: XD Tree Supercontrol &amp; Layout Variables

I see no one is finding this a very interesting topic (yet?). But in trying to resolve this, I have been playing with the regular tree control object and was able to include this with my vTreeData = tbl.record_content_get() string:

("alltrim(Chapter)+\".\"+alltrim(Topic)+\".\"+alltrim(Help_ref) +\"|\"+alltrim(helpid) ","sortkey",flter)

This allows me a 3 level display that returns the Helpid value to find without having to display a 4th level for the user to click.

Also in looking at creating choices for list box controls where this 'Label|Value' format is used, the list box genie also shows how to add a bitmap - which the tree control genie doesn't include. However the same properties seem to be available in the object explorer for the tree - which if I could just figure that out, I could forget about the XD supercontrol that won't work!

I am able to get the tree to refresh when my variable changes by using the same dynamic.settings I used to populate the tree in the form's OnInit event.

If anyone shows some interest, maybe I can put up a working example.

[Mike Wilson]

Re: XD Tree Supercontrol &amp; Layout Variables

I see no one is finding this a very interesting topic

If anyone shows some interest, maybe I can put up a working example.

With complex code, absence of interest tends to have a relationship with absence of base tables to "watch it work" and scout out your need.
I looked at it for a couple minutes. Without the "current" table, hard to capture the action, sorry.

[MoGrace]

Re: XD Tree Supercontrol &amp; Layout Variables

Ok fair enough, but it ain't working too good yet... to get to the control panel the password if asked is 'a5', otherwise CTRL+Z will get you there from the Home form. The Help Tree form is working so far, but the XD_Help Tree is not.

Just to note that the point of this exercise (in futility?) is to have a 'global' module I can use with other apps. Right now only MenuTree, NStock and PRdata are valid choices. And don't expect the Action Menu to work in any of them except MenuTree. I did add bubble help...and some global functions that are used in the Design Bar when it opens so you can use it.

[MoGrace]

Re: XD Tree Supercontrol &amp; Layout Variables

I see lack of interest didn't improve even when I added the zip...

[jkletrovets]

Re: XD Tree Supercontrol &amp; Layout Variables

Hi Robin,

Take a look at this thread. It may help. Tim Kiebert graciously figured this out for me quite awhile back on something I was working on t the time. But, perhaps the refetch method he provided might help you. I only briefly looked at your sample. Great idea. I have also thought of doing something similar using the framework I have built over the years along with the dynamic menu tree system I provided in the code archive awhile back as well. I like your approach and the appearance of your docked toolbar approach.

http://msgboard.alphasoftware.com/al...highlight=tree

Regards,

Jeff

[Tim Kiebert]

Re: XD Tree Supercontrol &amp; Layout Variables

Robin,
Using the sample you posted you are almost there.

Change the scope of the lu_app variable in the xdialog script to local. ie remove the word 'shared'. ( I would probably change the name of this var or the form var to be different but it seems to work even though they are the same.)

In the embedded xdialog super control go to the variable bindings tab. create a new binding between the lu_app var in the code and the lu_app var in the form.

This will link the form var to the xdialog var. Then the watch that you have already set up will see the change happening in the local variable.

That should be it.

Tim

[MoGrace]

Re: XD Tree Supercontrol &amp; Layout Variables

Hi Tim,
I will definitely give that a try. I thought of doing the variable binding thing but was not sure how to do it.

[MoGrace]

Re: XD Tree Supercontrol &amp; Layout Variables

Tim,
So far I have tried moving the variable lookup box (lu_app) into the XD tree script instead of on the form and that seems to work fine for refreshing the tree. What I can't seem to get to work consistently is the resynch of the parentform to display the new data in the filtered index that uses the global var->chk_app. I tried placing the global variable as an object on the form which the XD script changes accurately but leaves the form in change mode; however the change event for that object is not happening - which is where I thought commiting the change and refreshing the form might work. Any ideas on that?

Also if adding a new record and using ui_dlg_event() in the button script will refresh the Tree - where else might I put that function to test my 'lu_change' event when it occurs in the tree? Do I arbitrarily add an event in the code section that is unrelated to events in the tree objects? Because once you remove the 'refresh' button - it doesn't seem that there would be a 'refresh' event...any more.

edit:
Does the form script actually trigger the event?

if ui_dlg_event(":"+topparent.name()+":tree_dialog","lu_change")
a_dlg_button = "refresh"
...some script to refresh the form here..OR
runs the script in the XD?
end if