Clipping a filmstrip in png format (Delphi 2010)

Question

I have a filmstrip of images in png format like this:

I'd like to know how to clip each of the images and put these images in a TImageList control, always preserving the transparency.

[EDIT]

Yes, at designtime the trick mentioned by RRUZ works fine, but I wanted to clip the images at runtime, i.e. by loading the filmstrip from resource or file

I'd use ImageMagick to split the image into separate frames and then import them into the app with a resource file. It looks like you are trying to reinvent Screen.Cursor := crHourglass — David Heffernan, Jun 17 '11 at 19:57
Maybe he wants the hourglass cursor to look the same on XP and Vista/Win7? — jpfollenius, Jun 17 '11 at 20:12
Why do you want static images of the hourglass? Surely you really want animation? — David Heffernan, Jun 17 '11 at 21:59
I would [crop the PNG](http://stackoverflow.com/q/10380057/937125) into `N` 32bit bitmaps (18 in your case), and add each one to the `TImageList` at run-time. — kobik, Aug 26 '14 at 10:55

score 4 · Answer 1 · edited Jun 20 '11 at 05:53

4

You must follow these steps:

set ColorDepth property to cd32Bit,
DrawingStyle to dsTransparent,
Height= 48,
Width=48,

then load the image and the result will be

enter image description here

edited Jun 20 '11 at 05:53

Andriy M

76,112
17
94
154

answered Jun 17 '11 at 20:17

RRUZ

134,889
20
356
483

1

Funky, had no idea it would do this for you! – David Heffernan Jun 17 '11 at 20:19

Chris Thornton · Answer 2 · 2011-06-17T21:11:05.393

Just import into the imagelist. It'll complain that it's too big and offer to break it into pieces for you. Works fine for me on D2005.

Another cool tip: I use AWIcons Pro http://www.awicons.com/icon-editor/ to edit icons (nice editor!). It has a feature that can export an icon as an imagelist (.bmp or .png format), thus making the filmstrip out of an icon. This makes it really handy to edit these things in .ico format, with a series of cells all the same size and depth, with each cell varying slightly. Then you export as an imagelist (I use .png) and then Delphi can break them back out into individual cells. Very slick. AWIcons isn't free, but features like this really make it productive.

At runtime? how? with what code? (He's not asking about at designtime) — Warren P, Jun 20 '11 at 20:11

score 1 · Answer 3 · edited May 23 '17 at 12:30

At runtime, you would have to call TImageList.FileLoad. Except it won't work.

This in turn calls ImageList_LoadImage, with uFlags parameter value including the bit LR_LOADFROMFILE, which causes Windows to load from a file on disk. This underlying functionality only supports TBitmap (BMP) format.

See the nearly-duplicate question. PNG support is a designtime feature that is converting the PNG data into an internal non-PNG and not-exactly-a-BMP-either format, used internally by MS Common Controls library. View your DFM as text, and you will see what your PNG inputs have been turned into. The other answers show you that transparency is preserved, using bitmap-color based transparency.

If you want to keep your data in PNG format, you shouldn't be using a VCL TImageList to store it, because you're going to have to do a conversion from PNG to TBitmap to actually use TImageList.

Clipping a filmstrip in png format (Delphi 2010)

3 Answers3

Linked