delphi - 具有透明 PNG 图像和发光悬停效果的 TButton

Question

我正在使用 Delphi XE 并尝试更新旧的 Delphi 代码库。该软件最初是用 Delphi 7 开发的，并使用了 Jonathan Hosking 在 2001 年编写的 TPNGButton 的破解版本。TPNGButton 支持透明度和发光悬停效果。不幸的是，当项目移植到Delphi XE上时，所有图像都被拉伸(stretch)以填充整个按钮的区域。

我正在尝试使用 TButton 创建类似的按钮，但遇到了困难。我创建了一个新的测试项目，并添加了一个 TButton 和一个带有 PNG 图像的 TImageList。我将此图像列表添加到按钮的 Image 属性中，并选择了正确的 ImageIndex。这导致按钮具有正确的图像，但图像太小(16x16 像素)。

我尝试通过更改 TImageList 的大小来解决大小问题，但此后即使我输入以前的值，我也根本看不到图像。当然，即使是最新版本的 Delphi GUI 设计器也缺乏对撤消的支持，因此我必须删除图像列表并添加新的图像列表以将图像恢复到按钮。

是否有更好的方法来获得我想要的按钮类型，或者我必须自己编写代码或尝试修复被黑的 TPNGButton 实现？这难道不是2011年用Delphi进行GUI开发的最佳方式吗？

Answer 1

TAdvGlowButton不是免费的，但正是这种按钮。

TMS Component pack如果您想要一条可用的丝带，那么付费可能是值得的。

另请参阅rkGlassButton ，这是免费的。