anchor.diff:      function    MenuFocused: boolean;
       function    SearchItemByAccel(s: string): integer;
     protected
  -    FMenuFont: TfpgFont;
  -    FMenuAccelFont: TfpgFont;
  -    FMenuDisabledFont: TfpgFont;
       FSymbolWidth: integer;
       FItems: TList;
       FFocusItem: integer;
  
positive.code:     if mi.HotKeyDef <> '' then
      begin
        s := mi.HotKeyDef;
        fpgStyle.DrawString(Canvas, rect.Right-FMenuFont.TextWidth(s)-FTextMargin, rect.Top, s, mi.Enabled);
      end;
  
      // process menu item submenu arrow image
  
negative.code:   if mi.Separator then
      Result := 5
    else
      Result := fpgStyle.MenuFont.Height + 2;
  end;
  
  function TfpgPopupMenu.MenuFocused: boolean;
  