paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +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; else H := ALogFont.lfHeight;
Attr := kATSUSizeTag; Attr := kATSUSizeTag;
M := Abs(ALogFont.lfHeight) shl 16; M := Abs(H) shl 16;
A := @M; A := @M;
S := SizeOf(M); S := SizeOf(M);
OSError(ATSUSetAttributes(Result, 1, @Attr, @S, @A), Self, SName, 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 var
NameLength: LongWord; NameLength: LongWord;
FontName: UTF8String; FontName: UTF8String;
res: Integer;
const const
SName = 'CarbonFontIDToFontName'; SName = 'CarbonFontIDToFontName';
begin begin