paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 22:27:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: removing hard-coded 96ppi for darwin target

Browse Source 
git-svn-id: trunk@57679 -
This commit is contained in:
dmitry 2018-04-20 02:18:50 +00:00
parent 871c41e289
commit b09c4a25ea
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/application.inc
View File

@ -439,14 +439,6 @@ begin
raise Exception.Create(rsNoWidgetSet);
end;
WidgetSet.AppInit(ScreenInfo);
{$IFDEF DARWIN}
// Mac OSX (all WS) return 72 PPI for 100% scaling.
// The LCL needs 96 PPI for correct
// a) font size scaling (Height/Size ratio)
// b) High-DPI scaling (Application.Scaled)
ScreenInfo.PixelsPerInchX := MulDiv(ScreenInfo.PixelsPerInchX, 96, 72);
ScreenInfo.PixelsPerInchY := MulDiv(ScreenInfo.PixelsPerInchY, 96, 72);
{$ENDIF}
ScreenInfo.Initialized := True;
Screen.UpdateScreen;
// set that we are initialized => all exceptions will be handled by our HandleException