paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 16:36:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix font selection

Browse Source 
git-svn-id: trunk@27254 -
This commit is contained in:
dmitry 2010-09-02 21:49:33 +00:00
parent fb61563630
commit 4475bded43
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/carbon/carbonproc.pp
View File

@ -508,7 +508,7 @@ begin
if SameText(FontName, 'default')
then fn:=CarbonDefaultFont
else fn:=FontName;
if (FontName <> '') then
if (fn <> '') then
begin
OSError(ATSUFindFontFromName(@fn[1], Length(fn),
kFontFullName, kFontMacintoshPlatform, kFontRomanScript,