TImage Maske bleibt erhalten bei Zuweisung einer neuen Bitmap aus ImageList

[Hobbycoder]

Ich habe ein TImage, welches ich aus einer ImageList zur Laufzeit mit unterschiedlichen Bitmaps lade.

Zum Programmstart ist die Bitmap des TImage leer. Nach der ersten Zuweisung schaut die Bitmap passabel aus.
Wird nun aber eine andere Bitmap aus der ImageList zugewiesen, bleibt scheinbar die Maske der ursprünglichen Bitmap erhalten. Zumindest schaut es für mich so aus. Siehe Bilder im Anhang.
Zugewiesen wird so:

Delphi-Quellcode:

ilStatusBitmaps.GetBitmap(SymStatusLager, imgStatus.Picture.Bitmap)

Ich muss zugeben, dass ich mich mit Masken usw. bei ImageListen noch nie so wirklich beschäftigt habe.

Woher kommt das und wie kriege ich das weg?

[Uwe Raabe]

Mach vorher mal ein

Delphi-Quellcode:

imgStatus.Picture.Bitmap := nil;

[Hobbycoder]

Danke Uwe. So geht's.

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1417991)

Mach vorher mal ein

Delphi-Quellcode:

imgStatus.Picture.Bitmap := nil;

Sollte er das Object nicht vorher freigeben?
DeleteObject und Konsorte?
imgStatus.Picture.Bitmap.free;

Den auch ein Maske ist ein Bitmap und nur NIL gibt das Object eigentlich nicht frei oder?

gruss

[Schokohase]

Zitat:

Zitat von EWeiss (Beitrag 1418021)

Zitat:

Zitat von Uwe Raabe (Beitrag 1417991)

Mach vorher mal ein

Delphi-Quellcode:

imgStatus.Picture.Bitmap := nil;

Sollte er das Object nicht vorher freigeben?

Ist hier anders, denn diese Eigenschaft wird komplett durch die

Delphi-Quellcode:

TPicture

Klasse verwaltet.

Bei einer Zuweisung an die Bitmapt Eigenschaft wird nicht die Instanz übergeben, sondern intern wird der Inhalt kopiert. Siehe auch dazu die Doku TPicture.Bitmap. Steht da allerdings etwas seltsam beschrieben.

Am deutlichsten sieht man es im Quelltext selber

Delphi-Quellcode:

procedure TPicture.SetBitmap(Value: TBitmap);
begin
  SetGraphic(Value);
end;

procedure TPicture.SetIcon(Value: TIcon);
begin
  SetGraphic(Value);
end;

procedure TPicture.SetMetafile(Value: TMetafile);
begin
  SetGraphic(Value);
end;

procedure TPicture.SetGraphic(Value: TGraphic);
var
  GraphicClass: TGraphicClass;
begin
  if Value <> nil then
    GraphicClass := TGraphicClass(Value.ClassType)
  else
    GraphicClass := nil;

  Load(GraphicClass,
    procedure (Graphic: TGraphic)
    begin
      Graphic.Assign(Value); // da wird kopiert
    end
  );
end;

[EWeiss]

Zitat:

Ist hier anders, denn diese Eigenschaft wird komplett durch die TPicture Klasse verwaltet.

OK.. Danke für die Information.

gruss