Xdialog Tree Control - Auto expand entry

[aschone]

I am experimenting with the Xdialog Tree Control and wish to have an entry auto expanded upon initialization.

Currently I am able to specify the default choice and have it auto selected but I cannot figure out how to expand it. I have found a thread that suggested using a send key function to expand the entries. However I do not know how to execute the commands after I have generated the Xdialog.

Any help would be appreciated. I have attached a scaled down version of the database along with a picture of what I would like to see when the Xdialog is initially opened.

[SwissCharles]

Re: Xdialog Tree Control - Auto expand entry

Hi Andrew,

I have toyed a bit with your sample code.
Unfortunately, it seems that the xD Tree Control is solely 'user driven' meaning that there seems to be no way to 'navigate' to a specific node and open it by code.
All I know is the $S=X directive but this opens all nodes (what you probably already knew and tried) and which took almost 20 secs with the 7000 odd records you got.

Sorry for not being any help here

[aschone]

Re: Xdialog Tree Control - Auto expand entry

You helped by confirming the same findings I found.

[G Gabriel]

Re: Xdialog Tree Control - Auto expand entry

It is doable, easily..I will post a sample given a little bit of time..stay tuned.

[aschone]

Re: Xdialog Tree Control - Auto expand entry

It is doable, easily..I will post a sample given a little bit of time..stay tuned.

same Bat-time, same Bat-channel?

[G Gabriel]

Re: Xdialog Tree Control - Auto expand entry

? Sunday eve?
I just opened your sample. If you wish to speed things up a bit, can you take out the functions, the curly parenthesis, make a simple form with a simple bare-bone xdlg with the desired tree?. I should be able to modify that to do what you want then you could fancy it up later rather than me trying to gut out your form and rebuild it.

[aschone]

Re: Xdialog Tree Control - Auto expand entry

Will this work?

'Date Created: 13-Jun-2002 07:56:43 AM
'Last Updated: 06-Sep-2012 08:20:50 AM
'Created By  : Selwyn
'Updated By  : andy
dim data[10] as c
data[1] = "a.1.A"
data[2] = "a.1.B"
data[3] = "a.2.A"
data[4] = "a.2.B"
data[5] = "b.1.A"
data[6] = "b.1.B"
data[7] = "b.2.A"
data[8] = "b.2.B"

result=ui_dlg_box("Simple Tree",<<%dlg%
{ysize=2}
[%S=BLR%.50,20node^<data] |
 <OK>
%dlg% )

[G Gabriel]

Re: Xdialog Tree Control - Auto expand entry

When I said bare-bone I didn't mean Play-Boy-style "bare" bone!
You way over-simplified it, but use this as a start:

dim node as c
node="a.2.B"
dim data[10] as c
data[1] = "a.1.A"
data[2] = "a.1.B"
data[3] = "a.2.A"
data[4] = "a.2.B"
data[5] = "b.1.A"
data[6] = "b.1.B"
data[7] = "b.2.A"
data[8] = "b.2.B"

result=ui_dlg_box("Simple Tree",<<%dlg%
{ysize=2}
[%S=BLR%.50,20node^<data] |
 <OK>
%dlg% )

This: node="a.2.B" will be dynamically set.

[aschone]

Re: Xdialog Tree Control - Auto expand entry

Setting node to "a.2.B" only works when the lists are predefined prior to generation. However when using the X directive to have the lists generated dynamically it does not work.

The dynamic list generation is what all the functions and curly brackets where doing.

[G Gabriel]

Re: Xdialog Tree Control - Auto expand entry

Let's not get into the egg & chicken.
"a.2.B" is one of the items in the list "to be generated"
When you click on a row in the browse, the node value, i.e. "a.2.B" will be assigned at that point, then you open your xdlg.
If I recall, in your sample you have 190.2 or something like that. I believe it came from either the browse or some query. That is the value you assign to the node.

[aschone]

Re: Xdialog Tree Control - Auto expand entry

Ya, tried that already. Does not work I assume it does not work because the node does not exist until it is expanded by clicking the "+" symbol.

[G Gabriel]

Re: Xdialog Tree Control - Auto expand entry

Andrew:
I have been using trees since the ice age and they work just fine for me. It takes me exactly where I want to go. I guess I am going to have to wade through your code, not today, and modify it. I was hoping instead of this example you posted lately, to post your actual table without all the additives so I don't have to spend as much time connecting the dots. It would be helpful if you could do that. A form, showing which item you want the tree to open to or expand to and an xdlg, that's all.

[aschone]

Re: Xdialog Tree Control - Auto expand entry

Gabe -

Thank you for your time and looking at this for me.
Let me know if this will work for you.

[G Gabriel]

Re: Xdialog Tree Control - Auto expand entry

Andy:
Next time I am going to [Be very annoyed - edited by moderator]!
Pay attention to what I am saying. It took exactly 2 seconds to fix your script.
There is a lot of fluff that you do not need. I understand the purpose of the curly brackets..I wrote the book on this crap! But you don't need it in this context.
I modified your "TreeGabe" script to this:

'Date Created: 04-Sep-2012 03:33:38 PM
'Last Updated: 07-Sep-2012 05:24:55 AM
'Created By  : andy
'Updated By  : Gameel

OPTION STRICT
OPTION ENCRYPTED_TOKENS
ON ERROR GOTO ERR_HANDLER

DIM vPtNoN as n
DIM vGuarN as N
vPtNoN=Ptno.value
vGuarN = topparent:Guar.value

DIM vFilterC as C
DIM vOrderC as C
DIM vContentC as C
DIM vTablenameC as C
vTablenameC = "Dep"
vContentC = "Guar+'^'+Ptno"
vFilterC = "Guar<>0"
vOrderC = "Guar"

DIM vTreeListC as C
dim vSelectedC as C
vTreeListC = table.external_record_content_get(vTablenameC,vContentC,vOrderC,vFilterC)
DIM vSelectedC as C
vSelectedC = ""+vGuarN + "^" + vPtNoN

'---Begin DO NOT INDENT---				
ui_dlg_box("Balance Artrans",<<%dlg%
[%X;S=BLR;D="^"%.50,20vSelectedC^<vTreeListC];
[.15vselectedc];
{justify=right}
<10&OK!ok> <Cancel!Cancel>;
%dlg%)
'---End DO NOT INDENT---
	
END
'-----------------------------------
'Error handler
'-----------------------------------
ERR_HANDLER:
	DIM vErrN as N 
	DIM vMsgC as C
	vErrN = error_code_get()

	vMsgC = "Error # "+ vErrN + crlf() + error_text_get(vErrN)
	vMsgC = vMsgC + crlf() + "Script: " + error_script_get()
	vMsgC = vMsgC + crlf() + "Line #: " + error_line_number_get()

	trace.writeln(vMsgC)

	ui_msg_box("Error", vMsgC,UI_ATTENTION_SYMBOL)
	vMsgC = ""
	
	END

Works just fine. Does what you want.

[aschone]

Re: Xdialog Tree Control - Auto expand entry

Gabe -

Thank you for the help, no need for the threats.