buen dia compañeros,
Solicito de la ayuda de ustedes con el siguiente tema, tengo la siguiente imagen:

Lo que deseo es que donde dice descargando aplicaciones, aparezca el nombre del programa que se esta descargando en ese momento. Ejemplo:
En la seleccion se muestra flash player, deseo que cuando este descargando ese software me diga descargantdo flash player. O si se puede colocar un color a esa letra cuando pase por ese software que esta descargando.
Este es el codigo de el tree.
Solicito de la ayuda de ustedes con el siguiente tema, tengo la siguiente imagen:

Lo que deseo es que donde dice descargando aplicaciones, aparezca el nombre del programa que se esta descargando en ese momento. Ejemplo:
En la seleccion se muestra flash player, deseo que cuando este descargando ese software me diga descargantdo flash player. O si se puede colocar un color a esa letra cuando pase por ese software que esta descargando.
Este es el codigo de el tree.
tblProp = {};
-- Get the child count of 'Tree1'
ChildCount = Tree.GetChildCount("Tree1", "1");
-- Get the child count of 'Tree2'
ChildCount2 = Tree.GetChildCount("Tree1", "2");
-- Get the child count of 'Tree3'
ChildCount3 = Tree.GetChildCount("Tree1", "3");
-- Get the child count of 'Tree4'
ChildCount4 = Tree.GetChildCount("Tree1", "4");
-- Get the child count of 'Tree3'
ChildCount5 = Tree.GetChildCount("Tree1", "5");
-- Get the child count of 'Tree3'
ChildCount6 = Tree.GetChildCount("Tree1", "6");
-- Get the child count of 'Tree3'
ChildCount7 = Tree.GetChildCount("Tree1", "7");
-- Get the child count of 'Tree3'
ChildCount8 = Tree.GetChildCount("Tree1", "8");
-- Get the child count of 'Tree3'
ChildCount9 = Tree.GetChildCount("Tree1", "9");
-- Get the child count of 'Tree3'
ChildCount10 = Tree.GetChildCount("Tree1", "10");
-- Get the child count of 'Tree3'
ChildCount11 = Tree.GetChildCount("Tree1", "11");
-- Get the child count of 'Tree3'
ChildCount12 = Tree.GetChildCount("Tree1", "12");
-- Get the child count of 'Tree3'
ChildCount13 = Tree.GetChildCount("Tree1", "13");
-- Get the child count of 'Tree3'
ChildCount14 = Tree.GetChildCount("Tree1", "14");
-- Get the child count of 'Tree3'
ChildCount15 = Tree.GetChildCount("Tree1", "15");
-- Get the child count of 'Tree3'
ChildCount16 = Tree.GetChildCount("Tree1", "16");
-- Check if main index checked
if (e_NodeIndex == "1") and (e_Checked == true) then
for count = 1, ChildCount, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "1."..count, tblProp);
end
-- Check if main index not checked
elseif (e_NodeIndex == "1") and (e_Checked == false) then
for count = 1, ChildCount, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "1."..count, tblProp);
end
end
-- Check if second index checked
if (e_NodeIndex == "2") and (e_Checked == true) then
for count = 1, ChildCount2, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "2."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "2") and (e_Checked == false) then
for count = 1, ChildCount2, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "2."..count, tblProp);
end
end
if (e_NodeIndex == "3") and (e_Checked == true) then
for count = 1, ChildCount3, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "3."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "3") and (e_Checked == false) then
for count = 1, ChildCount3, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "3."..count, tblProp);
end
end
if (e_NodeIndex == "4") and (e_Checked == true) then
for count = 1, ChildCount4, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "4."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "4") and (e_Checked == false) then
for count = 1, ChildCount4, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "4."..count, tblProp);
end
end
if (e_NodeIndex == "5") and (e_Checked == true) then
for count = 1, ChildCount5, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "5."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "5") and (e_Checked == false) then
for count = 1, ChildCount5, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "5."..count, tblProp);
end
end
if (e_NodeIndex == "6") and (e_Checked == true) then
for count = 1, ChildCount6, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "6."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "6") and (e_Checked == false) then
for count = 1, ChildCount6, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "6."..count, tblProp);
end
end
if (e_NodeIndex == "7") and (e_Checked == true) then
for count = 1, ChildCount7, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "7."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "7") and (e_Checked == false) then
for count = 1, ChildCount7, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "7."..count, tblProp);
end
end
if (e_NodeIndex == "8") and (e_Checked == true) then
for count = 1, ChildCount8, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "8."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "8") and (e_Checked == false) then
for count = 1, ChildCount8, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "8."..count, tblProp);
end
end
if (e_NodeIndex == "9") and (e_Checked == true) then
for count = 1, ChildCount9, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "9."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "9") and (e_Checked == false) then
for count = 1, ChildCount9, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "9."..count, tblProp);
end
end
if (e_NodeIndex == "10") and (e_Checked == true) then
for count = 1, ChildCount10, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "10."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "10") and (e_Checked == false) then
for count = 1, ChildCount10, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "10."..count, tblProp);
end
end
if (e_NodeIndex == "11") and (e_Checked == true) then
for count = 1, ChildCount11, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "11."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "11") and (e_Checked == false) then
for count = 1, ChildCount11, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "11."..count, tblProp);
end
end
if (e_NodeIndex == "12") and (e_Checked == true) then
for count = 1, ChildCount12, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "12."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "12") and (e_Checked == false) then
for count = 1, ChildCount12, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "12."..count, tblProp);
end
end
if (e_NodeIndex == "13") and (e_Checked == true) then
for count = 1, ChildCount13, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "13."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "13") and (e_Checked == false) then
for count = 1, ChildCount13, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "13."..count, tblProp);
end
end
if (e_NodeIndex == "14") and (e_Checked == true) then
for count = 1, ChildCount14, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "14."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "14") and (e_Checked == false) then
for count = 1, ChildCount14, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "14."..count, tblProp);
end
end
if (e_NodeIndex == "15") and (e_Checked == true) then
for count = 1, ChildCount15, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "15."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "15") and (e_Checked == false) then
for count = 1, ChildCount15, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "15."..count, tblProp);
end
end
if (e_NodeIndex == "16") and (e_Checked == true) then
for count = 1, ChildCount16, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "16."..count, tblProp);
end
-- Check if second index not checked
elseif (e_NodeIndex == "16") and (e_Checked == false) then
for count = 1, ChildCount16, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "16."..count, tblProp);
end
end
--##################################################################
Progress.SetVisible("Progress1", false);
Paragraph.SetVisible("Paragraph1", true);
local tblNodes = {"1","1.1","1.2","1.3","2","2.1","2.2","3","3.1","3.2","4","4.1","4.2","4.3","4.4","4.5","5","5.1","5.2","5.3","6","6.1","6.2","6.3","7","7.1","8","8.1","8.2","8.3","8.4","8.5","8.6","9","9.1","9.2","9.3","9.4","9.5","10","10.1","10.2","10.3","11","11.1","11.2","11.3","12","12.1","12.2","13","13.1","13.2","13.3","13.4","13.5","13.6","14","14.1","14.2","14.3","14.4","15","15.1","15.2","15.3","16","16.1","16.2","16.3","16.4"}
text=""
for i,Node in pairs (tblNodes) do
tNode =Tree.GetNode("Tree1",Node);
if tNode.Checked == true then
text = text.."Item: ".. Node .." ".. tNode.Text .."\r\n"
end
end
Paragraph.SetText("Paragraph1",text);
Paragraph.SetScrollPos("Paragraph1",Paragraph.GetScrollRange("Paragraph1", true).Max, true);[/code]
Y este es el codigo del boton Install:
Código: Seleccionar todo
local tbChecks ={}
local tblNodes = {"1","1.1","1.2","1.3","2","2.1","2.2","3","3.1","3.2","4","4.1","4.2","4.3","4.4","4.5","5","5.1","5.2","5.3","6","6.1","6.2","6.3","7","7.1","8","8.1","8.2","8.3","8.4","8.5","8.6","9","9.1","9.2","9.3","9.4","9.5","10","10.1","10.2","10.3","11","11.1","11.2","11.3","12","12.1","12.2","13","13.1","13.2","13.3","13.4","13.5","13.6","14","14.1","14.2","14.3","14.4","15","15.1","15.2","15.3","16","16.1","16.2","16.3","16.4"}
n=1
--Debug.Clear()
if tbChecks then
for i,Node in pairs (tblNodes) do
tNode =Tree.GetNode("Tree1",Node);
if tNode.Checked == true then
tbChecks[n]={Ind=Node,Data=tNode.Data}
n=n+1
end
end
if tNode.Checked == 0 and Checket then
elseif not Checket then
Label.SetVisible("CountIntall", false)
Paragraph.SetVisible("Paragraph1", false);
Progress.SetVisible("Progress1", false);
Label.SetVisible("Downloaded", false);
Label.SetVisible("ProgressDownloaded", false);
Image.SetVisible("Image4", false)
Image.SetVisible("Image1", false)
Dialog.Message("Error", "No se ha seleccionado ningún programa para instalar");
xt=false
end
end
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\Voces\\iniciando.mp3", true, false);
Paragraph.SetVisible("Paragraph1", true);
Progress.SetVisible("Progress1", true);
Label.SetVisible("CountIntall", true)
Label.SetVisible("Downloaded", true);
Label.SetVisible("ProgressDownloaded", true);
Image.SetVisible("Image4", true)
Image.SetVisible("Image1", true)
for count=1,Table.Count(tbChecks) do
Path = tbChecks[count]["Data"]
FTPWI.Download(Path, "C:\\Windows\\Temp\\Setup.exe", "user", "Password", MODE_TEXT, 20, 21, true, DownloadFunction);
Complete = Label.GetText("ProgressDownloaded");
result = File.Run("C:\\Windows\\Temp\\Setup.exe", "", "", SW_SHOWNORMAL, true);
xt = result ;
Application.Sleep(1000);
end
if xt~=true then
Label.SetVisible("CountIntall", false)
Paragraph.SetVisible("Paragraph1", false);
Progress.SetVisible("Progress1", false);
Label.SetVisible("Downloaded", false);
Label.SetVisible("ProgressDownloaded", false);
Image.SetVisible("Image4", false)
Image.SetVisible("Image1", false)
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\Voces\\Completado.mp3", true, false);
Dialog.Message("Completado", "Ha finalizado la instalación de los programas seleccionados", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
En funciones globales solo tengo la de descarga y ya. Es posible tambien que cuando termine de instalar lo seleccionado el tree quede limpio? es que he mirado y nada que consigo que quede limpio osea sin que hubieran seleccionado algun programa a instalar, o que recargue la pagina como si entrara la primera vez a seleccionar.
Agradezco la ayuda de ustedes con respecto a esta duda que tengo y que no he podido solucionar.
Gracias.