Bild von TImage in TListView verwenden

[Viktorii]

Hallo zusammen.

Habe schon wieder eine Frage Ich habe nun ein Bild, beispielsweise ein jpg, in einem TImage vorliegen. Nun möchte ich diese Bild (verkleinert) in einer Spalte einer TListview (vsReport) darstellen.

Ist der einzige Weg der, dass man den 'Umweg' über eine Imagelist macht?

Wenn ja, wie kann ich der ImageList das Bild von TImage zuweisen, wenn dies z.B ein jpg ist? Kann TImage mir das Bild auch konvertiert als Icon zurückliefern?

Die OH konnte mir nicht wirklich weiterhelfen...

[himitsu]

Zitat von Viktorii:

Die OH konnte mir nicht wirklich weiterhelfen...

TImageList: Komisch, ich finde in meiner OH eine Methode Namens Add.

Jpeg in ein TBitmap kopieren und dann per .Add hinzufügen.

[Viktorii]

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?

[Viktorii]

*push*

[Luckie]

Hast du eigentlich schon mal dran gedacht, das Bitmap Objekt auch zu erzeugen?

[Viktorii]

Zitat von Luckie:

Hast du eigentlich schon mal dran gedacht, das Bitmap Objekt auch zu erzeugen?

Vielen Dank für Deinen augenrollenden Hinweis. Schön dass sich jemand so erfahrenes wie Du erbarmt einem Schussel wie mir zu helfen.

Nur leider habe ich dann auch noch dem selben Effekt. Aber vielleicht bin ich so dumm und habe was falsch gemacht.

Sieht jetzt so aus:

Delphi-Quellcode:

lBitmap       : TBitmap;

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

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

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

Hoffe ich fall jetzt niemanden (schon wieder) auf die Nerven

[Viktorii]

*push*

[xZise]

Moin,
ist denn das Bild > 35x35 Pixel? Dann würde ich dir Canvas.StrechDraw empfehlen. Damit kann du auf dein „Pufferbitmap“ (lBitmap) das Orginal verkleinert zeichnen.

MfG
Fabian

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

[Viktorii]

Zitat von xZise:

Moin,
ist denn das Bild > 35x35 Pixel? Dann würde ich dir Canvas.StrechDraw empfehlen. Damit kann du auf dein „Pufferbitmap“ (lBitmap) das Orginal verkleinert zeichnen.

Hmm... Ich weiss nicht ob ich dass richtig verstanden habe. Wenn ich so probiere, kommt leider die selbe Meldung

Delphi-Quellcode:

    lBitmap := TBitmap.Create();

    Rect.Left := 0;
    Rect.Right := 35;
    Rect.Top := 0;
    Rect.Bottom := 35;

    lBitmap.Canvas.StretchDraw(Rect, FPerson.Bild.Bitmap);;

    ImageListFahrer.Add(lBitmap, lBitmap);

Zitat von 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

Ja, das habe ich mir eigentlich ja auch gedacht, aber

Zitat von Luckie:

Hast du eigentlich schon mal dran gedacht, das Bitmap Objekt auch zu erzeugen?

Zitat von DeddyH:

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

Also, ich habe die Größe im Objektinspektor auf 35*35 gesetzt. Der Witz an der Sache ist, dass die Graphik größer ist und so zu sagen verkleinert im Listview/Imagelist dargestellt/hinzugefüg werden soll...