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

carbon: code cleanup

Browse Source 
git-svn-id: trunk@27170 -
This commit is contained in:
dmitry 2010-08-23 07:35:36 +00:00
parent b905dfda78
commit dcb7c549f9
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbongdiobjects.pp
View File

@ -1222,7 +1222,7 @@ begin
else H := ALogFont.lfHeight;
Attr := kATSUSizeTag;
M := Abs(ALogFont.lfHeight) shl 16;
M := Abs(H) shl 16;
A := @M;
S := SizeOf(M);
OSError(ATSUSetAttributes(Result, 1, @Attr, @S, @A), Self, SName,

1
lcl/interfaces/carbon/carbonproc.pp
View File

@ -526,7 +526,6 @@ function CarbonFontIDToFontName(ID: ATSUFontID): String;
var
NameLength: LongWord;
FontName: UTF8String;
res: Integer;
const
SName = 'CarbonFontIDToFontName';
begin