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:   FTextMargin := 3;
    FItems      := TList.Create;
  
    // fonts
    FMenuFont         := fpgStyle.MenuFont;
    FMenuAccelFont    := fpgStyle.MenuAccelFont;
    FMenuDisabledFont := fpgStyle.MenuDisabledFont;
    FSymbolWidth      := FMenuFont.Height+2;
  
    FBeforeShow   := nil;
    FFocusItem    := -1;
  
negative.code:     mi  := VisibleItem(n);
      x   := ItemHeight(mi);
      inc(h, x);
      x := fpgStyle.MenuFont.TextWidth(mi.Text);
      if tw < x then
        tw := x;
  
      if mi.SubMenu <> nil then
        x := fpgStyle.MenuFont.Height
      else
        x := fpgStyle.MenuFont.TextWidth(mi.HotKeyDef);
      if hkw < x then
        hkw := x;
    end;
  