TAdvMainMenu Default item in bold

VCL TMS VCL UI Pack
1

TAdvMainMenu doesn't draw the default item in bold, when AdvMenu.CurrentMenuStyle.AntiAlias <> aaNone

proposed change in red

procedure DrawMenuItemText(MenuItem: TMenuItem; ACanvas: TCanvas;
  const ACaption: string; var Rect: TRect; State: TOwnerDrawState; Flags: Longint);

... Line 1700...
        if (AdvMenu.CurrentMenuStyler.AntiAlias = aaNone) then
        begin
          DrawText(Handle, PChar(Text), Length(Text), Rect, Flags);
        end
        else
        begin
          Graphics := TGPGraphics.Create(Handle);
          gfontfamily := TGPFontFamily.Create(Font.Name);
          if Default then
            gfont := TGPFont.Create(gfontfamily, Font.Size, FontStyleBold, UnitPoint)
          else
            gfont := TGPFont.Create(gfontfamily, Font.Size, FontStyleRegular, UnitPoint);

2

Thanks for your suggestion.
You'r correct about this and we've applied this improvement. The next update will have this improvement.