Resulta estúpido preguntar esto, pero me ocurre que los iconos que pongo en una listboxex, no me concuerdan con el orden que pongo en OnCreate de la ListBoxEx. Entiendo qque si pongo un un
ico1 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\01.ico"); este debería verse en el primer item, pero en realidad se ve otro icono, y a partir de ahi parecen que van como locos, cada uno se pone en donde le peta de las narices, y lo cierto es que se ven todos, pero no concuerdan con el item. He usado Sort de LisBost, y nada. ¿Realmente la orden anterior fija el icono en el primer item?.
Bueno pongo aquí la ImagenList de OnCreate
Es tal como la tengo, y el boton para abrir esa ListBox tiene este código
Imagino que será alguna error de alguna variable, o habrá que añadir algo para que concuerde los iconos con el item respectivo. Saludos
ico1 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\01.ico"); este debería verse en el primer item, pero en realidad se ve otro icono, y a partir de ahi parecen que van como locos, cada uno se pone en donde le peta de las narices, y lo cierto es que se ven todos, pero no concuerdan con el item. He usado Sort de LisBost, y nada. ¿Realmente la orden anterior fija el icono en el primer item?.
Bueno pongo aquí la ImagenList de OnCreate
asuos = ListBoxEx.CreateImageList("Plugin1", 16, BIT_32);
if asuos then
ico1 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\01.ico");
ico2 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\02.ico");
ico3 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\03.ico");
ico4 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\04.ico");
ico5 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\05.ico");
ico6 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\06.ico");
ico7 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\07.ico");
ico8 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\08.ico");
ico9 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\09.ico");
ico10 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\10.ico");
ico11 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\11.ico");
ico12 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\12.ico");
ico13 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\13.ico");
ico14 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\14.ico");
ico15 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\15.ico");
ico16 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\16.ico");
ico17 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\17.ico");
ico18 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\18.ico");
ico19 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\19.ico");
ico20 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\20.ico");
ico21 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\21.ico");
ico22 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\22.ico");
ico23 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\23.ico");
ico24 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\24.ico");
ico25 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\25.ico");
ico26 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\26.ico");
ico27 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\27.ico");
ico28 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\28.ico");
ico29 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\29.ico");
ico30 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\30.ico");
ico31 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\31.ico");
ico32 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\32.ico");
ico33 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\33.ico");
ico34 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\34.ico");
ico35 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\35.ico");
ico36 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\36.ico");
ico37 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\37.ico");
ico38 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\38.ico");
ico39 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\39.ico");
ico40 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\40.ico");
ico41 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\41.ico");
ico42 = ListBoxEx.AddIcon("Plugin1", "AutoPlay\\Icons\\42.ico");
end
asuos = Folder.Find(_SourceFolder.."\\AutoPlay\\Docs\\", "*", false, nil);
colorimpar = {128, 64, 128};
colorpar = {32768, 16384, 32768};
x = colorimpar;
ListBoxEx.DeleteAllItems("Plugin1");
ListBoxEx.SetUpdate("Plugin1", true);
ListBoxEx.SetVisible("Plugin1", true);
if asuos then
for i,d in pairs(asuos)do
str_p = String.SplitPath(d);
pathImage="Autoplay\\CARATULAS\\"..str_p.Filename..".png"
sz_itemText = "<p><b><font color=16777215 face=Bookman Old Style size=16 >"..str_p.Filename.."</font></b></p>"
add_it = ListBoxEx.AddItem("Plugin1", sz_itemText, "", str_p.Filename, pathImage , i, LBXITEM_HTML, 0, x, nil, nil);
if x == colorimpar then
x = colorpar;
else
x = colorimpar;
end
ListBoxEx.SetUpdate("Plugin1", true);
result = ListBoxEx.Sort("Plugin1", LBXSORT_ASC);
end
end