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]