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

cocoa: font of the height is a negative number based on the font size. #32003

Browse Source 
git-svn-id: trunk@56998 -
This commit is contained in:
dmitry 2018-01-07 04:10:47 +00:00
parent 4a7772dab9
commit cf395e4176
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1276,7 +1276,7 @@ begin
Result := SizeOf(TLogFont);
FillChar(ALogFont^, SizeOf(ALogFont^), 0);
ALogFont^.lfFaceName := AFont.Name;
ALogFont^.lfHeight := Round( AFont.Size * DPI / 72);
ALogFont^.lfHeight := -Round( AFont.Size * DPI / 72);
Traits := NSFontManager.sharedFontManager.traitsOfFont(AFont.Font);
if (Traits and NSFontBoldTrait) <> 0 then
ALogFont^.lfWeight := FW_BOLD