delphi - TPopupActionBar没有ColorMap属性？

Question

好的，这样我就差不多有了一个好看的 UI，使用 TActionManager、TActionMainMenuBars 和 TToolBar 并以 DrawingStyle 作为渐变来创建 OfficeXP 风格的界面。

我也使用了几个 TPopupActionBar 弹出菜单，但我没有看到 ColorMap 属性。我使用 ColorMap 属性来更改默认 XP 样式颜色的颜色，并更改 TToolBar 的热门颜色以匹配菜单。

我现在需要 TPopupActionBar 弹出菜单来匹配菜单和工具栏，但是当我发现无法为其分配 ColorMap 时，我该如何执行此操作？

请原谅，如果这不是小事，我已经看过了，但看不到。我还尝试在运行时分配 ColorMap，但似乎没有它的属性？我可以更改 TPopupActionBar 的样式，但无法分配 ColorMap。

Answer 1

要分配 ColorMap，您可以使用 OnGetControlClass事件TPopupActionBar组件，然后检查 PopupMenu 是否不为 nil，最后赋值该属性的嵌套属性 ColorMap。

检查此示例。

procedure TFormMain.PopupActionBar1GetControlClass(Sender: TCustomActionBar;
  AnItem: TActionClient; var ControlClass: TCustomActionControlClass);
begin
  if Assigned(PopupActionBar1.PopupMenu) then
    PopupActionBar1.PopupMenu.ColorMap:= TwilightColorMap1;
end;

检查此图像，其中包含应用了 TwilightColorMap 的 TPopupActionBar