From f754258730a8a1b7e7f590022a950e4621b7827c Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Tue, 7 Oct 2008 14:25:16 +0000
Subject: [PATCH] LCL Carbon: implemented TFont.Quality

git-svn-id: trunk@16919 -
---
 lcl/interfaces/carbon/carbongdiobjects.pp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lcl/interfaces/carbon/carbongdiobjects.pp b/lcl/interfaces/carbon/carbongdiobjects.pp
index fc5058e7aa..7872e93af5 100644
--- a/lcl/interfaces/carbon/carbongdiobjects.pp
+++ b/lcl/interfaces/carbon/carbongdiobjects.pp
@@ -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;
 
 {------------------------------------------------------------------------------