Bild von TImage in TListView verwenden

[Blup]

ohne zu testen:

Delphi-Quellcode:

var
  lBitmap: TBitmap; 
begin 
  lBitmap := TBitmap.Create;
  try
    lBitmap.Width  := ImageListFahrer.Width;
    lBitmap.Height := ImageListFahrer.Height;   
    lBitmap.Canvas.StretchDraw(lBitmap.Canvas.ClipRect, FPerson.Bild.Graphic);
    ImageListFahrer.Add(lBitmap, lBitmap);
  finally
    lBitmap.Free;
  end; 
end;