Icon Stretch aus ImageList

[ThYpHoOn]

Moin,

ich habe eine TImageList mit 9 Icons gefüllt (32x32 Pixel groß). Die sehen im ImageList-Editor auch super aus, ebenso habe ich mal ein Icon "per Hand" in ein TImage (meinem späteren Ziel) gepackt und dort sieht es ebenfalls gut aus. Wenn ich es nun aber während der Laufzeit aus der ImageList in das TImage lade:

Delphi-Quellcode:

ImageList.GetBitmap(7,oImage.Picture.Bitmap);

Dann sieht es grauenvoll verpixelt aus, gut hier nutze ich Bitmap - also hab ich Icon versucht:

Delphi-Quellcode:

ImageList.GetIcon(2,oImage.Picture.Icon);

Doch dann ist das Icon absolut klein (8x8 Pixel würde ich schätzen, maximal) und auch ein Stretchen (oImage.Strech := True; ) funktioniert nicht.

Daraufhin habe ich google gefragt warum das Stretchen nicht geht und habe folgende Funktion gefunden die Icons stretcht:

Delphi-Quellcode:

DrawIconEx(Canvas.Handle, 0, 0, Icon.Handle, iNewWidth, iNewHeight, 0, 0, DI_NORMAL);

Doch wenn ich diese nutze bleibt das TImage ungezeichnet, jemand eine Lösung für mein Problem?

[erich.wanker]

Hi, sorry für die simple Frage, aber: Sind die Properties von der Imagelist (height und width via ObjectInspector)eh 32x32 und sind wirklich alle Bilder 32x32 ?

erich

[ThYpHoOn]

Sry für die verzögerte Antwort, aus den Augen aus dem Sinn :S

Danke für den Tipp das die ImageList auch eine Width und Height hat, diese war auf 16, daher hatte er die dann wohl runter gesized auf 16x16 Pixel und danach hab ich diese zur Laufzeit wieder auf 32 gestretcht was natürlich nicht so toll aussah.


Greetz, ThY