anchor.diff:      mi  := VisibleItem(n);
       x   := ItemHeight(mi);
       inc(h, x);
  -    x := FMenuFont.TextWidth(mi.Text);
  +    x := fpgStyle.MenuFont.TextWidth(mi.Text);
       if tw < x then
         tw := x;
   
       if mi.SubMenu <> nil then
  -      x := FMenuFont.Height
  +      x := fpgStyle.MenuFont.Height
       else
  -      x := FMenuFont.TextWidth(mi.HotKeyDef);
  +      x := fpgStyle.MenuFont.TextWidth(mi.HotKeyDef);
       if hkw < x then
         hkw := x;
     end;
  
positive.code:   if mi.Separator then
      Result := 5
    else
      Result := FMenuFont.Height + 2;
  end;
  
  function TfpgPopupMenu.MenuFocused: boolean;
  
negative.code:     if mi.HotKeyDef <> '' then
      begin
        s := mi.HotKeyDef;
        fpgStyle.DrawString(Canvas, rect.Right-fpgStyle.MenuFont.TextWidth(s)-FTextMargin, rect.Top, s, mi.Enabled);
      end;
  
      // process menu item submenu arrow image
  