Changeset 256
- Timestamp:
- Jun 10, 2020, 9:33:44 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CevoComponents/ScreenTools.pas
r245 r256 1623 1623 UniFont[section].Style := UniFont[section].Style + [fsItalic]; 1624 1624 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); 1628 1626 end; 1629 1627 end;
Note:
See TracChangeset
for help on using the changeset viewer.