Changeset 256 for trunk/Packages


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/CevoComponents/ScreenTools.pas

    r245 r256  
    16231623                  UniFont[section].Style := UniFont[section].Style + [fsItalic];
    16241624              end;
    1625             // 0.8 constant is compensation for Lazarus as size of fonts against Delphi differs
    1626             UniFont[section].Size :=
    1627               Round(size * Screen.PixelsPerInch / UniFont[section].PixelsPerInch * 0.8);
     1625            UniFont[section].Size := Round(Size * 72 / UniFont[section].PixelsPerInch);
    16281626          end;
    16291627        end;
Note: See TracChangeset for help on using the changeset viewer.