delphi - 使用 Aero 获取 TProgressBar 控件的颜色

Question

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

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

我使用 Delphi 2010。

Answer 1

选项，按照对初学者最明智到最不明智的顺序排列:

(1) 取出第三方进度条，换上普通进度条。 (初学者，和聪明老家伙的解决办法，讽刺的是一样的)

(2) 获取皮肤/主题包，并使其按照您想要的方式绘制。 (中级)

(3) 学习使用 Themes 和 UxThemes 单元来扩展您的自定义控件。 (高级)

当你从#2和#3中受够了痛苦之后，你会回到#1，而你内心顽固(明智)的老前辈会做出与业余爱好者相同的决定。