Delphi:来自TImageList的TPicture

Question

如何从TImageList获取TPicture？

我需要从图像列表执行Image1.Picture:=...TPicture，以便将图像加载到TImage中。

图像列表存储了我所有透明的PNG图像。

我尝试使用位图(GetBitmap)，但我需要的是透明度。不幸的是，我有一个使用位图的白色背景。

谢谢!

Answer 1

常规TImageList使用位图。虽然它们可以部分透明，但实际上它只是一个假货。在Delphi中，您可以通过为位图分配一种单一的透明颜色来绘制透明的位图。准确的颜色将被绘制为100%透明，而其他颜色则不是。通常颜色取自图像的左下角。

TPicture本身不做任何事情。它只是一个TGraphic后代的容器。你必须找到一种可以是透明的图像。

一种方便的格式是PNG。PNG事件支持alpha通道，这意味着可以为每个像素指定不同的透明度值。

幸运的是，有一些TPngImageLists结合了TImageList的易用性和PNG的强大功能。你可以阅读this article。它是荷兰语的，但也许谷歌翻译可以帮助你。或者你可以找到一个关于这个主题的英语资源。我用过这个图像列表，它很棒，因为你可以有一个alpha通道的实际图标，并且仍然可以使用常规的工具栏和快速按钮。