anchor.diff:    Menus;
   
   type
  -  atString = {$ifdef WIDE} UnicodeString {$else} string {$endif};
  +  atString = {$ifdef WIDE} WideString {$else} string {$endif};
     TatPopupMenu = {$ifdef TNT} TTntPopupMenu {$else} TPopupMenu {$endif};
     TatMenuItem = {$ifdef TNT} TTntMenuItem {$else} TMenuItem {$endif};
   
  
positive.code:   Result:= false;
  
    {$ifdef windows}
    exit(true);
    {$endif}
  
    {$ifdef darwin}
  
negative.code:   NIndentTop:= (FTabHeight - C.TextHeight('Wj')) div 2 + 1;
  
    {$ifdef WIDE}
    ExtTextOutW(C.Handle,
      RectText.Left,
      RectText.Top+NIndentTop,
      ETO_CLIPPED{+ETO_OPAQUE},
      @RectText,
      PWChar(TempCaption),
      Length(TempCaption),
      nil);
    {$else}
    ExtTextOut(C.Handle,
      RectText.Left,
  