delphi – TPopupActionBar没有ColorMap属性？

发布时间：2020-12-15 09:47:56 所属栏目：大数据来源：网络整理

导读：好吧,所以我几乎有一个好看的UI,使用TActionManager,TActionMainMenuBars和TToolBar以及DrawingStyle作为渐变来创建OfficeXP样式界面. 我也使用了几个TPopupActionBar弹出菜单,但我没有看到ColorMap属性.我使用ColorMap属性更改默认XP样式颜色的颜色,并更改T

好吧,所以我几乎有一个好看的UI,使用TActionManager,TActionMainMenuBars和TToolBar以及DrawingStyle作为渐变来创建OfficeXP样式界面.

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

我现在需要TPopupActionBar弹出菜单来匹配菜单和工具栏,但是当我看不到为它分配ColorMap时怎么办？

对不起,如果这是非常重要的,我已经看了,看不到.我也尝试在运行时分配一个ColorMap但似乎没有它的属性？我可以更改TPopupActionBar的样式,但不能指定ColorMap.

解决方法

要分配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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!