Menu Width HighDPI (AdvMenus.pas )

VCL TMS VCL UI Pack
1

in TMSVCLUIPack v13.5.13.0

the width of top menus is too small in HighDPI.
This is related to function MeasureItem line 1166 {$IFNDEF DELPHIXE15_LVL} where FDPIScale always is 1.

 with MenuItem, AdvMenu.CurrentMenuStyler do
  begin
    {$IFNDEF DELPHIXE15_LVL}
    ParentMenu := GetParentMenu;
    if Assigned(ParentMenu.Owner) and (ParentMenu.Owner is TControl) then
    begin
      FDPIScale := AdvStyleIF.GetDPIScale((ParentMenu.Owner as TControl), nil);
    end
    else
    {$ENDIF}
      FDPIScale := 1;

using RAD Studio 13 Version 37.0.57242.3601 with october patch

2

We internally already looked into this, applied an improvement and this improvement will be included in the next release.

1 Like