Bild von TImage in TListView verwenden

[DeddyH]

Zitat:

Delphi-Quellcode:

lBitmap := TBitmap.Create();
  lBitmap := FPerson.Bild.Bitmap;

Denke ich falsch, oder erzeugst Du Dir hier ein feines Speicherleck? Erst erzeugst Du eine Instanz und dann weist Du der Variablen eine andere Instanz zu, kannst somit die erzeugte nicht mehr freigeben

[edit] Evtl. liegt der ursprüngliche Fehler ja ganz woanders.

Delphi-Quellcode:

lBitmap       : TBitmap;

begin
  lBitmap := FPerson.Bild.Bitmap;
  if Assigned(lBitmap) then
    begin
      //Dimensionen der Imagelist vor dem Einfügen festlegen
      ImageListFahrer.Width := lBitmap.Width; 
      ImageListFahrer.Height := lBitmap.Height; 

      ImageListFahrer.Add(lBitmap, lBitmap);  // <-- Fehler hier (jetzt weg?)

      ListItem := TListItem.Create(ListViewPerson.Items);
      ListItem.SubItems.Add(FPerson.Name);
      ListViewPerson.Items.AddItem(ListItem);
    end;

[/edit]