Delphi TPopupActionBar没有ColorMap属性？

好的，我几乎有一个好看的UI，使用TActionManager、TActionMainMenuBars和ToToolBar，以DrawingStyle作为渐变来创建OfficeXP风格的界面

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

我现在需要TPopupActionBar弹出菜单来匹配菜单和工具栏，但是当我看不到为其分配颜色映射的方法时，我该怎么做呢

---

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

要分配ColorMap，可以使用组件的事件，然后检查是否为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