Changeset 115

Timestamp:

Feb 3, 2018, 2:03:37 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Wrong font size calculacted from fixed DPI.

File:

• trunk/Components/ScreenTools.pas (modified) (1 diff)

trunk/Components/ScreenTools.pas

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