Tree control node image problem

[Mike Wilson]

I have read and worked on this for hours. Can't get it, need help, please.
I am trying to make a tree control dialog for a specific group of folders.
Folders are named by a company name. I am running into an issue when the company name begins with a number.
See example code below. Is there a different way to assign the node image other than the {I=@images%} directive?

dim dlg_list as C=""
dim vL1 as C
dim vL2 as C
dim vL1w as C
dim vL2w as C
vL1=<<%r%
Suppliers
Vendors
Retailers
%r%

vL2=<<%t%
Kent Manufacturing
Old Fastner Supply
LH Adhesive
Comcast 
Uniband
MolBelting
Source One
LI Printing
Kroger
Costco
Walmart
7 Eleven
%t%

for x1 = 1 to 3
	vL1w=alltrim(word(vL1,x1,crlf()))
	
	for x2 = 1 to 4
		vL2w=alltrim(word(vL2,(x2*x1),crlf()))
		dlg_list=dlg_list+"1+1"+vL1w+"^^1"+vL2w+crlf()
	next
next

images = "$$folder"
ui_dlg_box("Tree Control Images",<<%dlg%
[%S=BLR;D="^^";I=@images%.120,26item_selected^<dlg_list!menuitem_change];
{lf};
<Close>
%dlg%,<<%code%
if a_dlg_button="close"
	ui_modeless_dlg_close("Tree Control Images")
end if
%code%)

[MoGrace]

Re: Tree control node image problem

Hi Mike,
Is the actual data for the tree coming from a table by any chance? I am thinking that the '{Data=...}value to display' format might fix the problem since the image reference will be before that section.

Otherwise Seven Eleven is good - or this:

dim dlg_list as C=""
dim imgs as c
dim vL1 as C
dim vL2 as C
dim vL1w as C
dim vL2w as C
imgs = <<%a%
$$navigate.down
$$navigate.next
$$code.debug.line.current
%a%
vL1=<<%r%
Suppliers
Vendors
Retailers
%r%

vL2=<<%t%
Kent Manufacturing
Old Fastner Supply
LH Adhesive
Comcast 
Uniband
MolBelting
Source One
LI Printing
Kroger
Costco
Walmart
.7-Eleven
%t%

for x1 = 1 to 3
    vL1w=alltrim(word(vL1,x1,crlf()))
    
    for x2 = 1 to 4
        vL2w=alltrim(word(vL2,(x2*x1),crlf()))
        dlg_list=dlg_list+"2+1"+vL1w+"^^3"+vL2w+crlf()
    next
next

images = "$$folder"
ui_dlg_box("Tree Control Images",<<%dlg%
[%S=;D="^^";I=@imgs%.120,26item_selected^<dlg_list!menuitem_change];
{lf};
<Close>
%dlg%,<<%code%
if a_dlg_button="close"
    ui_modeless_dlg_close("Tree Control Images")
end if
if a_dlg_button = "menuitem_change" then
    a_dlg_button = ""
end if
%code%)

[Mike Wilson]

Re: Tree control node image problem

Hi,
Sometimes the simple is hardest to find. I just discovered that when building the string for the tree, if a space is added between the image assignment and the node value, then if the node value begins with a numeric value, the space added between the image assignment and the node value does not confound the image assignment and the space is allocated to the node value. Then when parsing the components of the selected node, the space can be handled by trimming the space of that node value. I have a bit too much wine in me to present an example of that solution, will do in the morning.

Later:

dim dlg_list as C=""
dim vL1 as C
dim vL2 as C
dim vL1w as C
dim vL2w as C

dim v1out as C
dim v2out as C

vL1=<<%r%
Suppliers
Vendors
Retailers
%r%

vL2=<<%t%
Kent Manufacturing
Old Fastner Supply
LH Adhesive
Comcast 
Uniband
MolBelting
Source One
LI Printing
Kroger
Costco
Walmart
7 Eleven
%t%

for x1 = 1 to 3
	vL1w=alltrim(word(vL1,x1,crlf()))
	
	for x2 = 1 to 4
		vL2w=alltrim(word(vL2,(x2*x1),crlf()))
		dlg_list=dlg_list+"1+1 "+vL1w+"^^1 "+vL2w+crlf()    [COLOR="#FF0000"]'<<<< spaces added here[/COLOR]
	next
next

images = "$$folder"
ui_dlg_box("Tree Control Images",<<%dlg%
[%S=BLR;D="^^";I=@images%.120,26item_selected^<dlg_list!item_change];
{lf};
<Close>
%dlg%,<<%code%
if a_dlg_button="item_change"
	v1out=alltrim(word(item_selected,1,"^^"))
	v2out=alltrim(word(item_selected,2,"^^"))
	ui_modeless_dlg_close("Tree Control Images")
end if

if a_dlg_button="close"
	item_selected=""
	ui_modeless_dlg_close("Tree Control Images")
end if
%code%)

msgbox(v1out+crlf()+v2out)