Zitat von
Florian Bernd:
Also folgenden Code rufe ich auf:
Delphi-Quellcode:
TPNGImageCollectionItem(pngCountryImages.Items.Add).PngImage.LoadFromFile(
ExtractFilePath(Application.Exename) + DIR_FLAGS + '\' + Country + '.png');
Ich gehe jetzt mal davon aus, dass Du die
PngComponents verwendest. Wenn pngCountryImages vom Typ TPngImageList ist, kann die Zeile eigentlich nicht funktioniert haben. Zum einen hat TPngImageList keine Eigenschaft Items und zum anderen verstehe ich die harte Typenumwandlung nicht.
IMHO gibt die Methode Add schon ein Objekt des richtigen Typs zurück und eine Umwandlung ist Überflüssig. Ich habe das folgendermaßen gelöst:
Delphi-Quellcode:
var
PngImageCollectionItem: TPngImageCollectionItem;
begin
PngImageCollectionItem := ImageList.PngImages.Add;
PngImageCollectionItem.PngImage.LoadFromFile(ExtractFilePath(Application.Exename) + DIR_FLAGS + '\' + Country + '.png');
Hoffe das hilft Dir weiter...
Gruß
Malte