Okay, hatte ich auch gesehen und folgendes gemacht:
Auf der Form ist eine TImageCollection und TVirtualImageList vorhanden, TImageCollection hat wie gesagt 257 128er Png's, TVirtualImageList ist leer und hat die TImageCollection als ImageCollection vermerkt. Der jeweilige Bildname kommt aus einer
XML Datei und entspricht exakt dem Namen in der TImageCollection.
Delphi-Quellcode:
Var
I:Integer;
BILD:String;
begin
For I := 0 to ShortListItemsNodes.length-1 do
begin
BILD := ShortListItemsNodes.Item[I].attributes[6].Text;
VirtualImageList1.Add(BildName,BildName);
end;
end;
Nach dem Durchlauf ist in der VirtualImageList nichts drin wenn ich VirtuelImageList.count vertrauen darf. Setze ich VirtualImageList1.Add(BildName,I), also I als Index, holt er die Bilder zwar, aber natürlich nur in der Reihenfolge 0,1,2,3,..... was mir jetzt nicht wirkltich hilft.
Und jetzt der Witz: Setze ich manuell einzelne Bilder wie
Delphi-Quellcode:
Main.VirtualImageList1.add('icon_cat_0','icon_cat_0');
Main.VirtualImageList1.add('icon_eagle_0','icon_eagle_0');
Main.VirtualImageList1.add('icon_fish_0','icon_fish_0');
werden diese anstandlos verarbeitet und angezeigt. Versteh ich jetzt überhaupt nicht.
creehawk