ActionMainMenuBar使用XPColorMap定义颜色

  with XPColorMap1 do
  begin
    Color := clSkyBlue;  //左边菜单
    MenuColor := $FFFFFF;  //下拉整个菜单面版
    ShadowColor := $CCCCCC;  //背景颜色
    //下拉边界颜色
    FrameTopLeftInner := $FFFFFF;   //左上边界颜色
    FrameTopLeftOuter := $000000;
    FrameBottomRightInner := $FFFFFF;  //右下边界颜色
    FrameBottomRightOuter := $000000;
    //顶级菜单
    BtnFrameColor  := $918221; //顶级菜单边框
    BtnSelectedColor := clBtnFace;  //下拉时按钮颜色
    //所有项
    SelectedColor := clSkyBlue;  //滑动选择时
  end;

效果图：