From c8beaba5c1e964f88f67b3191ff1123da2bd1933 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 19 Oct 2018 16:13:03 +0000
Subject: [PATCH] LCL-GTK2: Fix icon scaling in menuitems. Patch from Ondrej.

git-svn-id: trunk@59325 -
---
 lcl/interfaces/gtk2/gtk2winapi.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index 23cd57c25d..430d040536 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -4723,10 +4723,10 @@ begin
   //we will also have to add internal support for Papersizes etc..
 
   LOGPIXELSX : { Logical pixels per inch in X }
-    Result := RoundToInt(gdk_screen_width / (GetScreenWidthMM / 25.4));
+    Result := ScreenInfo.PixelsPerInchX;
 
   LOGPIXELSY : { Logical pixels per inch in Y }
-    Result := RoundToInt(gdk_screen_height / (GetScreenHeightMM / 25.4));
+    Result := ScreenInfo.PixelsPerInchY;
 
   SIZEPALETTE: { number of entries in color palette }
     if GetVisual then