Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
In this Discussion
- Eugene Balabuev (LMD) March 2021
- Quanos Service Solutions GmbH March 2021
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.
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