anchor.diff:    TWin32MenuStylerTheme = record
       ColorBk: TColor;
       ColorBkSelected: TColor;
  -    ColorBorder: TColor; //used only if <>clNone
  +    ColorBkSelectedDisabled: TColor; //used only if <>clNone
  +    ColorSelBorder: TColor; //used only if <>clNone
       ColorFont: TColor;
  +    ColorFontSelected: TColor; //used only if <>clNone
       ColorFontDisabled: TColor;
       ColorFontShortcut: TColor;
       CharCheckmark: WideChar;
  
positive.code:   dx, dxCell, dxMin, dxBig, Y: integer;
    ExtCell, ExtTall, Ext2: Types.TSize;
    NDrawFlags: UINT;
    bDisabled, bInBar, bHasSubmenu: boolean;
    BufW: UnicodeString;
    mark: WideChar;
    R: TRect;
  begin
    mi:= Sender as TMenuItem;
    bDisabled:= odDisabled in AState;
    bInBar:= mi.IsInMenuBar;
    bHasSubmenu:= (not bInBar) and (mi.Count>0);
    IconW:= 0;
  
    if odSelected in AState then
    begin
      ACanvas.Brush.Color:= MenuStylerTheme.ColorBkSelected;
      if MenuStylerTheme.ColorBorder<>clNone then
        ACanvas.Pen.Color:= MenuStylerTheme.ColorBorder
      else
        ACanvas.Pen.Color:= MenuStylerTheme.ColorBkSelected;
      ACanvas.Rectangle(ARect);
    end
    else
  
negative.code:   begin
      ColorBk:= clDkGray;
      ColorBkSelected:= clNavy;
      ColorBkSelectedDisabled:= clNone;
      ColorSelBorder:= clNone;
      ColorFont:= clWhite;
      ColorFontSelected:= clNone;
      ColorFontDisabled:= clMedGray;
      ColorFontShortcut:= clYellow;
      CharCheckmark:= #$2713;
  