delphi - Delphi IDE 中的叠加图标

Question

如何在 Delphi IDE 中实现覆盖图标，如下所示:

• 在编辑器的文件选项卡上；
• 在项目经理的树上；
• 在项目经理的弹出菜单上？

Answer 1

我最近一直在研究项目管理器的上下文菜单，但上下文菜单 (TPopupMenu) 没有分配给它的 TCustomImageList。

因此，要在上下文菜单上获取图像，您需要为其分配一个 TCustomImageList (TImageList)。我所做的是创建一个与 TPopupMenu 组件具有相同所有者的组件。

对于其他人，我知之甚少:

• 项目经理的树是virtual tree view ，因此可能值得在应用程序中使用它来看看可以做什么。

• 编辑器选项卡是自定义组件，因此可能需要一些低级 Hook 。看看Delphi IDE Colorizer如何处理自定义选项卡；这可能有助于 Hook 。

恳求:由于这是在玩弄 IDE 的内部结构，因此请不要假设您是那里的第一人并重新开始编写其他人的工作。

编辑:有一篇关于 Extending the Project Manager Context menu 的 EDN 文章