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