Changeset 115 for trunk/Components
- Timestamp:
- Feb 3, 2018, 2:03:37 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Components/ScreenTools.pas
r111 r115 1600 1600 // 0.8 constant is compensation for Lazarus as size of fonts against Delphi differs 1601 1601 UniFont[section].size := 1602 round(size * 72/ UniFont[section].PixelsPerInch * 0.8);1602 round(size * Screen.PixelsPerInch / UniFont[section].PixelsPerInch * 0.8); 1603 1603 end; 1604 1604 end;
Note:
See TracChangeset
for help on using the changeset viewer.