Bild von TImage in TListView verwenden

[DeddyH]

Versuch es doch erst einmal ohne verkleinern. Wenn das funktioniert, bist Du ja schonmal einen Schritt weiter. Und Luckie hat ja auch nicht immer Recht ;)

[Viktorii]

So, bin habe nochmal rumprobiert...

Zitat:

Zitat von DeddyH

Versuch es doch erst einmal ohne verkleinern. Wenn das funktioniert, bist Du ja schonmal einen Schritt weiter. Und Luckie hat ja auch nicht immer Recht ;)

Meinst Du so?

Delphi-Quellcode:

    lBitmap := FPerson.Bild.Bitmap;

    ImageListFahrer.Add(lBitmap, lBitmap);

Kommt leider dieselbe Meldung :cry:

[DeddyH]

Nee, ich meinte so (Code von oben gekürzt):

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);
    end;
end;

Tritt da immer noch ein Fehler auf?

[Viktorii]

So kommt keine Fehlermeldung mehr. Aber komischerweise ist Width und Height immer 0.

Muss ich nochmal nach schauen. Vielen Dank soweit erstmal.

[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;