anchor.diff:  
     if bDisabled then
       ACanvas.Font.Color:= MenuStylerTheme.ColorFontDisabled
  +  else
  +  if bSel and (MenuStylerTheme.ColorFontSelected<>clNone) then
  +    ACanvas.Font.Color:= MenuStylerTheme.ColorFontSelected
     else
       ACanvas.Font.Color:= MenuStylerTheme.ColorFont;
   
  
positive.code:   TWin32MenuStylerTheme = record
      ColorBk: TColor;
      ColorBkSelected: TColor;
      ColorBorder: TColor; //used only if <>clNone
      ColorFont: TColor;
      ColorFontDisabled: TColor;
      ColorFontShortcut: TColor;
      CharCheckmark: WideChar;
  
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
  