From a39f3e539cf41d60a31cb3a3acb4fd6a7c7e8ecd Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 7 Feb 2019 06:12:24 +0000
Subject: [PATCH] RxFPC:fix scaling

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6813 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxcontrols/rxinipropstorage.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxcontrols/rxinipropstorage.pas b/components/rx/trunk/rxcontrols/rxinipropstorage.pas
index 4b42ce060..3202919dd 100644
--- a/components/rx/trunk/rxcontrols/rxinipropstorage.pas
+++ b/components/rx/trunk/rxcontrols/rxinipropstorage.pas
@@ -123,7 +123,8 @@ begin
       ASize:=StrToIntDef(Result, -1);
       if ASize>-1 then
       begin
-        ASize1 := MulDiv(ASize, Screen.PixelsPerInch, 96);
+        //ASize1 := MulDiv(ASize, Screen.PixelsPerInch, 96);
+        ASize1 := MulDiv(ASize, 96, Screen.PixelsPerInch);
         Result := IntToStr(ASize1);
       end;
     end;