Too Small "Free Space Area" when using TElMenu with tdsOffice2003-Style

The Implementation of ElMenus.pas contains many code-fragements like:

    begin
      ImgW := 16;
      ImgH := 16;
    end;

this have to be changed to

    begin
      ImgW := MulDivPixelsPerInch(16);
      ImgH := MulDivPixelsPerInch(16);
    end;

where

function MulDivPixelsPerInch(Value: Integer): Integer;
begin
  result := MulDiv(Value, Screen.PixelsPerInch, 96);
end;

Please make the Menu HighDPI-Aware also when no ImageList is assigned.

Comments

Sign In or Register to comment.