使用Aero获取TProgressBar控件的颜色

Question

如何在启用Windows Aero功能的情况下以编程方式获取TProgressBar控件的条形颜色和背景颜色？

我正在使用第三方进度条控件，而不是Delphi附带的默认控件，我正在尝试使用正确的颜色绘制控件。

我使用的是Delphi 2010。

Answer 1

选项，按照对初学者最敏感的顺序对初学者最不敏感：

（1）取出第三方进度条，然后放入常规进度条。 （初学者，聪明的老家伙解决方案，具有讽刺意味的相同）

（2）获取皮肤/主题包，并按照您想要的方式绘制。 （中间体）

（3）学习使用Themes和UxThemes单元扩展自定义控件。 （高级）

在你从＃2和＃3获得足够的痛苦之后，你将回到＃1，而你身上的硬壳（明智的）旧计时器将做出与业余爱好者相同的决定。