paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: fix ScreenInfo.PixelsPerInch* values. Issue #31199, by Michl

Browse Source 
git-svn-id: trunk@55635 -
This commit is contained in:
ondrej 2017-08-05 13:57:35 +00:00
parent d2e3ca4cbc
commit 6de4e6bed6
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1004,6 +1004,8 @@ begin
Result:= lpGtk2;
end;
function gdk_screen_get_resolution(screen:PGdkScreen):gdouble; cdecl; external gdklib;
{------------------------------------------------------------------------------
Method: TGtk2WidgetSet.AppInit
Params: None
@ -1025,9 +1027,16 @@ begin
InitKeyboardTables;
{ Compute pixels per inch variable }
ScreenInfo.PixelsPerInchX :=
RoundToInt(gdk_screen_width / (GetScreenWidthMM / 25.4));
RoundToInt(gdk_screen_get_resolution(gdk_screen_get_default));
ScreenInfo.PixelsPerInchY :=
RoundToInt(gdk_screen_height / (GetScreenHeightMM / 25.4));
ScreenInfo.PixelsPerInchX;
if ScreenInfo.PixelsPerInchX <= 0 then
begin
ScreenInfo.PixelsPerInchX :=
RoundToInt(gdk_screen_width / (GetScreenWidthMM / 25.4));
ScreenInfo.PixelsPerInchY :=
RoundToInt(gdk_screen_height / (GetScreenHeightMM / 25.4));
end;
ScreenInfo.ColorDepth := gdk_visual_get_system^.depth;
end;