Delphi 2009 图像列表和图像中的 PNG

Question

D2009 引入了对图像和图像列表的 PNG 支持。

但是...

我有一个包含带有 alpha 的 png 图像的图像列表。 我想使用 TImage 将其中之一放置在表单上。 我该如何做到这一点并得到很好的合成图像？

作为我面临的问题的一个例子，下面的代码无法正常工作，并产生所示的效果：

ImageList.GetBitmap(index, Image1.Picture.Bitmap);

_{（来源：clip2net.com）}

进一步解释一下：

将 Timage 拖放到窗体上，然后在设计时，使用 Picture 属性加载带有 alpha 的 PNG 文件。 请注意它是如何以完全透明的方式正确合成到表单上的。

现在，在设计时，添加第二个空 Timage，添加 TImagelist，并将相同的 PNG 添加到图像列表。 如何将 TImageList 中的 PNG 分配给第二个 TImage，并使其看起来与第一个 TImage 相同？

Answer 1

根据我的研究，我发现 TImageList 将图像存储为 TBitmap，因此 alpha 信息在存储中丢失，并且您无法使用 TImageList 的当前实现来实现您正在寻找的内容。

更新：

再做一点实验，通过下面的代码，我可以使用下面的代码来实现透明度。

ImageList1.ColorDepth := cd32Bit;
Image2.Transparent := True;
Image2.Canvas.Pen.Style := psClear;
Image2.Canvas.Rectangle(0, 0, Image2.Width+1, Image2.Height+1);
ImageList1.Draw(Image2.Canvas, 0,0,0);

但它看起来并不像加载的 png 那样漂亮。

Answer 2

检查
选项卡中的启用运行时主题
项目 -> 选项-> 应用程序选项卡

这解决了我在 RAD Studio 2010 中的问题。

Answer 3

我只是尝试了一个简单的测试。 TImageList 包含具有透明度的 PNG 图像。 我使用以下方法在第二个 TImage 上渲染图像：

imlImageList.Draw(img2.Canvas, 0, 0, 0);

对我来说与众不同的是设置 img2.Transparent := true （我使用了设计器，而不是代码）。

Answer 4

我偶然发现了这个讨论线程：

Tranparent PNGs in D2009 TImageList

@Pekka Nyyssonen：将 ColorDepth 设置为 cd32Bit，将 DrawingStyle 设置为 dsTransparent
为我工作。

我自己无法访问delphi 2009，所以我还没有尝试过......

Answer 5

有多种方法可以将透明图像添加到图像列表中。

使用 AddMasked 或 InsertMasked，您可以添加图像并将颜色标记为透明颜色：

procedure InsertMasked(Index: Integer; Image: TBitmap; MaskColor: TColor);
function AddMasked(Image: TBitmap; MaskColor: TColor): Integer;

使用 Insert 或 Add，您可以添加图像和蒙版。 如果是 2 色（黑/白）图像，则遮罩仅使用图像中的白色像素，其他像素是透​​明的。

function Add(Image, Mask: TBitmap): Integer;
procedure Insert(Index: Integer; Image, Mask: TBitmap);

Answer 6

据我所知，这是不可能实现的。 给出的建议都不会产生正确的 alpha 混合图像，而这是主要要求。

也许通过定义一个从 TImageList 派生的类，然后它可以访问受保护的方法，某些东西就可以工作了。 我现在的解决方案是专门为此使用第三方自定义 ImageList 组件。