Also folgenden Code rufe ich auf:
Delphi-Quellcode:
TPNGImageCollectionItem(pngCountryImages.Items.Add).PngImage.LoadFromFile(
ExtractFilePath(Application.Exename) + DIR_FLAGS + '\' + Country + '.png');
und hier markiert der Compiler mir den Fehler (uPngImageList
Unit):
Delphi-Quellcode:
procedure TPngImageCollection.Update;
var
i : Integer;
begin
// Update alle listeners
for i := 0 to FPngImageLists.Count - 1 do
TPngImageList(FPngImageLists[i]).CopyPngs(FPngImageLists[i]); // genau hier
end;