Bild in Imagelist durch ein anderes Ersetzen - zur Laufzeit

[Volker Z.]

Hallo,

Zitat:

[...] Wie kann ich in einem ImageList zur Laufzeit ein "png" Bild auswechseln ? [...] Ich habe schon fast alles versucht [...]

Auch so (oder ähnlich)?

Delphi-Quellcode:

procedure ImageListReplaceImageWithPNG (const Imagelist : TImageList; const Index : Integer; const Filename : string);
var
  p : TPngImage;
  b : TBitmap;
begin
  // Testen, ob gültige Imagelist übergeben, der Index in den entsprechenden Grenzen, die Datei existiert

  p := TPngImage.Create;
  b := TBitmap.Create;
  try
    p.LoadFromFile (Filename);
    // Testen, ob Breite, Höhe etc. des PNG mit der Imagelist übereinstimmt

    p.AssignTo (b);
    Imagelist.Replace (Index, b, nil)
  finally
    p.Free;
    b.Free
  end
end;

Gruß