anchor.diff:    begin
       ColorBk:= clDkGray;
       ColorBkSelected:= clNavy;
  -    ColorBorder:= clNone;
  +    ColorBkSelectedDisabled:= clNone;
  +    ColorSelBorder:= clNone;
       ColorFont:= clWhite;
  +    ColorFontSelected:= clNone;
       ColorFontDisabled:= clMedGray;
       ColorFontShortcut:= clYellow;
       CharCheckmark:= #$2713;
  
positive.code:     CharSubmenu: WideChar;
      FontName: string;
      FontSize: integer;
      //indents in percents of avarage char width
      IndentMinPercents: integer; //indent from edges to separator line
      IndentBigPercents: integer; //indent from left edge to caption
      IndentIconPercents: integer; //indents around the icon
  
negative.code:   dx, dxCell, dxMin, dxBig, Y: integer;
    ExtCell, ExtTall, Ext2: Types.TSize;
    NDrawFlags: UINT;
    bSel, bDisabled, bInBar, bHasSubmenu: boolean;
    BufW: UnicodeString;
    mark: WideChar;
    R: TRect;
  begin
    mi:= Sender as TMenuItem;
    bSel:= odSelected in AState;
    bDisabled:= odDisabled in AState;
    bInBar:= mi.IsInMenuBar;
    bHasSubmenu:= (not bInBar) and (mi.Count>0);
    IconW:= 0;
  
    if bSel then
    begin
      if bDisabled and (MenuStylerTheme.ColorBkSelectedDisabled<>clNone) then
        ACanvas.Brush.Color:= MenuStylerTheme.ColorBkSelectedDisabled
      else
        ACanvas.Brush.Color:= MenuStylerTheme.ColorBkSelected;
      if MenuStylerTheme.ColorSelBorder<>clNone then
        ACanvas.Pen.Color:= MenuStylerTheme.ColorSelBorder
      else
        ACanvas.Pen.Color:= ACanvas.Brush.Color;
      ACanvas.Rectangle(ARect);
    end
    else
  