paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@53983 -
This commit is contained in:
juha 2017-01-23 00:25:58 +00:00
parent af53f65190
commit 738e927a6c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/carbon/carbonwsdialogs.pp
View File

@ -523,7 +523,8 @@ begin
nil, SizeOf(Size), nil, @Size) = noErr then nil, SizeOf(Size), nil, @Size) = noErr then
begin begin
//DebugLn('Size: ' + DbgS(RoundFixed(Size))); //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; end;
if GetEventParameter(AEvent, kEventParamFontColor, typeFontColor, if GetEventParameter(AEvent, kEventParamFontColor, typeFontColor,