How to load a transparent Image from ImageList?

delphi png transparency timage timagelist
Martin Melka picture Martin Melka · Jul 22, 2012 · Viewed 21.1k times · Source

I want to load a picture (32 bit-depth, transparent) from a TImageList to an TImage. The standard approach would be ImageList.GetBitmap(Index, Image.Picture.Bitmap);. However the GetBitmap method doesn't work with transparency, so I always get a non-transparent bitmap.

Answer

Martin Melka picture Martin Melka · Jul 22, 2012

The workaround is rather simple - ImageList offers another method, GetIcon, which works OK with transparency. Code to load a transparent Image would be:

ImageList.GetIcon(Index, Image.Picture.Icon);

And don't forget to set proper ImageList properties:

ImageList.ColorDepth:=cd32bit;
ImageList.DrawingStyle:=dsTransparent;

Related questions

How do I make a PNG resource?

I've got a form with a large TImage on it as a background. Problem is, this is stored directly in the DFM as a bitmap, which takes up about 3 MB. The original PNG file is ~250K. I'd like to try …

Read More
How to create transparent png image from bitmap?

My task is: Create a TBitmap object. Fill it with transparent color (alpha = 0). Assign this bitmap to TPngImage. Save PNG file with alpha transparency. How can I do it in Delphi XE? var Png: TPngImage; X, Y: Integer; Bitmap: TBitmap; …

Read More
The application was unable to start correctly (0xc000007b)

I have a client/server app which I have been developing on a single PC. Now it needs two serial ports, so I borrowed a PC from a friend. When I build my app and try to run or debug …

Read More