AMSSpecialist

Publicado: **22 Oct 2012 22:04**

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

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

Es tal como la tengo, y el boton para abrir esa ListBox tiene este código

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

Imagino que será alguna error de alguna variable, o habrá que añadir algo para que concuerde los iconos con el item respectivo. Saludos

Publicado: **23 Oct 2012 06:17**

Aclarada la situacion. Se ven desordenados, al igual que las canciones cuando ve la previsualización (aqui debe leer segun eñl orden de grabacion que haya tomado), pero al grabar el DVD queda todo perfecto (pues el grabador lee por orden de nombre, ocurre lo mismo con las canciones. Soluionado

AMSSpecialist

orden iconos en listboxex

orden iconos en listboxex

Re: orden iconos en listboxex