Okay, Add hatte ich zwar gefunden, aber auf das zu TBitmap zuweisen bin ich nicht bekommen.
Nun bekomme ich aber Trotzdem noch einen Fehler:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt CRM.exe ist eine
Exception der Klasse EInvalidOperation mit der Meldung 'Ungültige Bildgröße' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Delphi-Quellcode:
lBitmap : TBitmap;
begin
lBitmap := FPerson.Bild.Bitmap;
ImageListFahrer.Add(lBitmap, lBitmap); // <-- Fehler hier.
ListItem := TListItem.Create(ListViewPerson.Items);
ListItem.SubItems.Add(FPerson.Name);
ListViewPerson.Items.AddItem(ListItem);
Deswegen habe ich meine Quelltest intuitiv so erweitert:
Delphi-Quellcode:
lBitmap : TBitmap;
begin
lBitmap := FPerson.Bild.Bitmap;
lBitmap.Width := 35;
lBitmap.Height := 35;
ImageListFahrer.Add(lBitmap, lBitmap);
ListItem := TListItem.Create(ListViewPerson.Items);
ListItem.SubItems.Add(FPerson.Name);
ListViewPerson.Items.AddItem(ListItem);
Kommt zwar kein Fehler mehr, aber anstatt des Bildes wird nur eine weisse Fläche dargestellt? Wat mach ich denn nu?