TPopupActionBar没有ColorMap属性吗？

Question

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

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

我现在需要TPopupActionBar弹出菜单来匹配菜单和工具栏，但是当我看不到为它分配ColorMap的方法时，我该如何做呢？

对不起，如果这不是微不足道的，我已经看过了，看不到。我还试图在运行时分配一个ColorMap，但似乎没有它的属性？？我可以更改TPopupActionBar的样式，但不能分配ColorMap。

Answer 1

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

​