Changeset 256 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Jun 10, 2020, 9:33:44 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Wrong font size calculation. Fonts base DPI is 72 as in the original source and not Screen.PixelsPerInch.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1623 +1623 @@
                   UniFont[section].Style := UniFont[section].Style + [fsItalic];
               end;
-            // 0.8 constant is compensation for Lazarus as size of fonts against Delphi differs
-            UniFont[section].Size :=
-              Round(size * Screen.PixelsPerInch / UniFont[section].PixelsPerInch * 0.8);
+            UniFont[section].Size := Round(Size * 72 / UniFont[section].PixelsPerInch);
           end;
         end;