From 738e927a6c644a76b921a80e84b7f00b7740d10f Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 23 Jan 2017 00:25:58 +0000
Subject: [PATCH] LCL-Carbon: Fix FontDialog chosen font size. Issue #31213,
 patch from AlexeyT.

git-svn-id: trunk@53983 -
---
 lcl/interfaces/carbon/carbonwsdialogs.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonwsdialogs.pp b/lcl/interfaces/carbon/carbonwsdialogs.pp
index 2460751e0f..a932d251eb 100644
--- a/lcl/interfaces/carbon/carbonwsdialogs.pp
+++ b/lcl/interfaces/carbon/carbonwsdialogs.pp
@@ -523,7 +523,8 @@ begin
     nil, SizeOf(Size), nil, @Size) = noErr then
   begin
     //DebugLn('Size: ' + DbgS(RoundFixed(Size)));
-    FontDialog.Font.Size := RoundFixed(Size);
+    //API gives "size" which equals to LCL's height (LCL height has minus)
+    FontDialog.Font.Height := -RoundFixed(Size);
   end;
   
   if GetEventParameter(AEvent, kEventParamFontColor, typeFontColor,