Changeset 115 for trunk/Components


Ignore:
Timestamp:
Feb 3, 2018, 2:03:37 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: Wrong font size calculacted from fixed DPI.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Components/ScreenTools.pas

    r111 r115  
    16001600            // 0.8 constant is compensation for Lazarus as size of fonts against Delphi differs
    16011601            UniFont[section].size :=
    1602               round(size * 72 / UniFont[section].PixelsPerInch * 0.8);
     1602              round(size * Screen.PixelsPerInch / UniFont[section].PixelsPerInch * 0.8);
    16031603          end;
    16041604        end;
Note: See TracChangeset for help on using the changeset viewer.