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

LCL Carbon: implemented TFont.Quality

Browse Source 
git-svn-id: trunk@16919 -
This commit is contained in:
tombo 2008-10-07 14:25:16 +00:00
parent 1d184715b3
commit f754258730
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1036,6 +1036,7 @@ function TCarbonFont.CreateStyle(ALogFont: TLogFont; const AFaceName: String): A
var
Attr: ATSUAttributeTag;
M: ATSUTextMeasurement;
O: ATSStyleRenderingOptions;
B: Boolean;
S: ByteCount;
A: ATSUAttributeValuePtr;
@ -1043,6 +1044,8 @@ var
const
SSetAttrs = 'ATSUSetAttributes';
SName = 'CreateStyle';
ATSStyleRenderingOption: Array [NONANTIALIASED_QUALITY..ANTIALIASED_QUALITY] of
ATSStyleRenderingOptions = (kATSStyleNoAntiAliasing, kATSStyleApplyAntiAliasing);
begin
inherited Create(False);
@ -1108,6 +1111,17 @@ begin
OSError(ATSUSetAttributes(Result, 1, @Attr, @S, @A), Self, SName,
SSetAttrs, 'kATSUStyleStrikeThroughTag');
end;
if (ALogFont.lfQuality >= NONANTIALIASED_QUALITY) and
(ALogFont.lfQuality <= ANTIALIASED_QUALITY) then
begin
Attr := kATSUStyleRenderingOptionsTag;
O := ATSStyleRenderingOption[ALogFont.lfQuality];
A := @O;
S := SizeOf(O);
OSError(ATSUSetAttributes(Result, 1, @Attr, @S, @A), Self, SName,
SSetAttrs, 'kATSUStyleRenderingOptionsTag');
end;
end;
{------------------------------------------------------------------------------