Wie verwendet man die neue TVirtualImageList

[jaenicke]

Zitat von DieDolly:

Statt solche sinnlosen Sätze zu äußern wär ich dankbar wenn man wenigstens erklärt wie es anders geht.

Am sinnvollsten sind SVG-Grafiken (für die es auch eine Unit hier im Forum gibt), denn die kann man einfach in jede beliebige Größe skalieren.

[DieDolly]

Dankeschön. Werde ich irgendwann mal versuchen.

[creehawk]

Moin Moin.

Etwas älterer Thread, Problem ist trotzdem noch da:

Auf meiner Form habe ich ein TImageCollection Element plaziert und 163 PNG's in 128x128px geladen. Diese Collection wird dann in der TVirtualImageList angegeben das als Height/Width eine 32 hat. Infolge werden bei Controls wie dem Listview die optisch einwandfrei skalierten Bildchen als 32er angezeigt.

Ein solch sauber skaliertes Bild möchte ich jetzt aber auch einem TImage zuweisen, wie ja die Kernfrage des Threads hier war.

Die weiter oben angegebene Empfehlung wäre in meinem Fall
Image1.Picture.Graphic := ImageCollection1.GetSourceImage(ImageCollection1.GetIndexByName('icon'), 32,32); Was dann aber im Ergebnis wieder eine tödliche Bildqualität produziert weil ich für das TImage ja Stretch benutzen muss. Oder?

Also hole ich mir via

VirtualImageList1.GetBitmap(Main.VirtualImageList1.GetIndexByName('BILD'),Image1.Picture.Bitmap) das gewünschte Bild, das auch prompt und in guter Qualität kommt. Und natürlich ohne Transparenz, die ich benötige.


Frage : Wie kriege ich transparenz?

Oder : wie überrede ich TImageCollection mir das Bildchen in hübsch skaliert abzuliefern? Für was ist sonst die Property InterpolationMode gedacht?

creehawk

[Uwe Raabe]

Zitat von creehawk:

Ein solch sauber skaliertes Bild möchte ich jetzt aber auch einem TImage zuweisen, wie ja die Kernfrage des Threads hier war.

Die weiter oben angegebene Empfehlung wäre in meinem Fall

Delphi-Quellcode:

Image1.Picture.Graphic := ImageCollection1.GetSourceImage(ImageCollection1.GetIndexByName('icon'), 32,32);

Was dann aber im Ergebnis wieder eine tödliche Bildqualität produziert weil ich für das TImage ja Stretch benutzen muss. Oder?

Wieso musst du Stretch benutzen? Gib doch gleich die passende Größe bei GetSourceImage an.

Delphi-Quellcode:

Image1.Picture.Graphic := ImageCollection1.GetSourceImage(ImageCollection1.GetIndexByName('icon'), Image1.Width, Image1.Height);

[DieDolly]

Zitat:

Wieso musst du Stretch benutzen? Gib doch gleich die passende Größe bei GetSourceImage an.

Ich dachte eigentlich das wäre die Lösung.
Aber wenn ich ein 32x32 Image habe und das so mache wie du sagst, wird ein Bild reingeladen was in etwa 48x48 groß ist.

TImage auf Form und dann deine Zeile. Mehr nicht. Egal welche Größe ich als Parameter angebe. Das geladene Bild ist immer größer als das TImage. Mit TToolButtons auf einer ToolBar habe ich keine Probleme aus der VirtualImageList zu laden.

Hat die ImageCollection überhaupt mehrere Größen der Bilder? Das hat doch nur die VirtualImageList.
Irgendwie muss man diese neuen Listen doch auch auf ganz normale TImages anwenden können. Ich kann nicht überall ToolButtons hinhauen.

[Uwe Raabe]

Zitat von DieDolly:

Hat die ImageCollection überhaupt mehrere Größen der Bilder? Das hat doch nur die VirtualImageList.

Umgekehrt: Die ImageCollection hat Bilder in verschiedenen Größen - die VirtualImageList nur die Größe, die in ihren Eigenschaften Width und Height angegeben ist. Die VirtualImageList passt diese Größe aber bei DPI-Änderungen an.

Kannst du mal konkret ein Beispielprojekt anhängen, mit dem man das mal nachstellen kann?

[DieDolly]

Ja. Siehe Anhang
Die Schleife habe ich Vcl.ImageCollection.pas genommen (TImageCollection.GetSourceImageIndex) um zu sehen, was da eigentlich das Ergebnis ist.

[Uwe Raabe]

In der Tat. GetSourceImage gibt einfach nur das nächst-größere Image zurück. In meinen Tests passte das zufällig.

Es gibt aber eine kleine Ergänzung, mit der das gewünschte Ergebnis erreicht werden kann:

Delphi-Quellcode:

type
  TImageCollectionHelper = class helper for TImageCollection
  public
    function GetScaledImage(AIndex, AWidth, AHeight: Integer): TWICImage; overload;
  end;

function TImageCollectionHelper.GetScaledImage(AIndex, AWidth, AHeight: Integer): TWICImage;
begin
  Result := GetScaledImage(GetSourceImage(AIndex, AWidth, AHeight), AWidth, AHeight);
end;


...
 Image3.Picture.Graphic := Images.GetScaledImage(Images.GetIndexByName('krankenwagen'), Image3.Width, Image3.Height);
...

[DieDolly]

Also doch nicht ganz meine Blödheit. Danke dafür.
Ich frage mich wieso sowas nicht schon direkt in der Komponente enthalten ist. Ich finde es ist logisch, dass wenn man dem Aufruf Width und Height mit gibt, man auch nach Möglichkeit diese Größe haben möchte.

[DieDolly]

Ich merke gerade, dass es eine AV am Ende des Programms gibt. Besser gesagt ein Speicherleck was mit TWICImage zu tun hat. Wie bekommt man denn das weg?
Ein Image3.Picture.Graphic.Free; im FormDestroy bringt nur noch mehr Ärger.