PNGBild zur Laufzeit in eine PNGImageCollection einfügen

[Die Muhkuh]

Hi,

funktioniert folgendermaßen:

Delphi-Quellcode:

var
  png: TPngImageCollectionItem;
begin
  FPNGImageList := TPNGImageList.Create(Self);

  PNG := FPNGImageList.PngImages.Add;
  PNG.PngImage.LoadFromFile(GetIconDir + 'error.png');

  PNG := FPNGImageList.PngImages.Add;
  PNG.PngImage.LoadFromFile(GetIconDir + 'accept.png');

  PNG := FPNGImageList.PngImages.Add;
  PNG.PngImage.LoadFromFile(GetIconDir + 'delete.png');

  PNG := FPNGImageList.PngImages.Add;
  PNG.PngImage.LoadFromFile(GetIconDir + 'email.png');
end;

Zumindest mach ich das in meinem Programm so.