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

cocoa: Fixes the font size in text drawing, this fixes TLabel with Font.Size>0 and nothing else set

Browse Source 
git-svn-id: trunk@46170 -
This commit is contained in:
sekelsenmat 2014-09-10 14:59:13 +00:00
parent ee813e253a
commit f838124711
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoagdiobjects.pas
View File

@ -528,10 +528,10 @@ begin
FName := AFontName;
if FName = 'default' then
begin
FName := NSStringToString(NSFont.systemFontOfSize(0).familyName);
FSize := Round(NSFont.systemFontSize);
end
if ALogFont.lfHeight = 0 then
FSize := Round(NSFont.systemFontSize)
else
FSize := Abs(ALogFont.lfHeight);