Delphi - Resize PNG with transparence and index

2
votes

I have many PNG files with transparency and these PNG fiels seem to be indexed. I would like to :

  • Put 2 identical PNG side to side with a space between both
  • Resize the result with a smooth resize filter (or Mitchell, Linear, Spline or other)
  • Keep transparency and originals colors

Do you have an example to do that ?

1
delphiresizepngdelphi-xe2

1 Answers

2
votes

This question is related to other PNG resize questions but...

AFAIK, You can't resize an indexed image and keep the original palette. Resizing the image will necessitate the mixing of colors, especially in reducing the image.

The original author of the PNGImage component (the basis of the Delphi native component) had a forum where he, and others, posted code snippets on how to do things using the PNGImage component.

Before the forum was taken down I grabbed a copy of all of the code snippets and placed them on the CodeGear Code Central website.

Most if not all of these work with native PNG images and do maintain the Alpha channel.

Here is the complete list of examples included in the package:

  • Smooth rotates a PNG object
  • Resizes a TPNGObject using a smooth algorithm
  • Slice one PNG into several smaller ones
  • Saves an image as either a bitmap or a png.
  • Sample chunk descendant
  • Read all tEXt-Chunks and write values into a TStrings object
  • Display a message box with information extracted from the PNG File
  • Finds and cuts a block from a PNG image
  • This method converts the png into a jpeg object
  • This method converts the png into a bmp object
  • Overlay one PNG over another (This makes the image half transparent)
  • Flips a png image vertically and saves back
  • Draws a png image over the desktop

Here is the link: CodeCentral PNG Methods