LCL-Carbon: Fix FontDialog chosen font size. Issue #31213, patch from AlexeyT.

git-svn-id: trunk@53983 -
This commit is contained in:
juha 2017-01-23 00:25:58 +00:00
parent af53f65190
commit 738e927a6c

View File

@ -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,